envio de sms

[Motki]

Hola de nuevo monoswim,

El viernes pasado despues de ver que teoricamente funcionaba decidí volver a enviar con el debug=1 para ver lo que pasaba..
Quité el exit 0 del
if ( $CREDITO_FIN < 1 ) {
print "ERROR Parametros\n\n";
exit 0;
} else {
print "$errtxt\n";
exit 0;
}

} else {
print "ERROR Socket\n";
exit 0;
}

y me funcionó! (bueno, el sms lo recibí 1 hora despues, pero eso ya es problema del proveedor, hoy he vuelto ha realizar la misma prueba y lo he recibo al instante)
Ahora solo espero que quitándole el debug=1 funcione todo ok.

Gracias por tu ayuda, ya que la sintaxis de PERL no la conozco y me resultaba un poco dificil identificar ciertas cosas.

:)