Con este parche he empezado a arreglar los warnings de
esms.
No están todos los warnings corregidos.
Así que no lo apliques.
Lo envio aquí para que si quieres arreglar los warnings
que faltan, lo hagas.
Si quieres puedes aplicar todo excepto la primera línea
'perl -w'. Ya que si aplicaras esta solo confundiría a
los usuarios.
żQue te parece?
--- esms.old Wed Dec 19 23:03:48 2001
+++ esms Fri Feb 1 16:24:16 2002
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
# esms, envío de mensajes a móviles de Espańa
# http://esms.sourceforge.net
# Copyright (C) 2001 José Juan Zapater Vera
josej@zapater.fdns.net
@@ -261,7 +261,7 @@
$req->header ( Referer =>
"http://www.correo.movistar.net/enviar_mensajes.asp");
$cookie_jar->add_cookie_header($req);
- my $res=$ua->request($req);
+ $res=$ua->request($req);
# depuración a lo bestia
# print $res->content if ($debug);
@@ -322,7 +322,6 @@
exit(3);
}
-my $telefono = 0;
my $reverse = 0;
if (!GetOptions(
@@ -333,11 +332,10 @@
&help;
}
-$telefono = $ARGV[0];
-if ($telefono eq ""){
+if (!(defined($ARGV[0]))){
help();
}
-
+my $telefono = $ARGV[0];
my $prefserv = &obtener_servidor();
#print "Obtenido favorito: $prefserv.\n";
Logged In: YES
user_id=3101
en cuanto tenga tiempo me pondr a revisarlo y a completarlo...