Problema con pequeño Script

LatamHost · #1 (**permalink**) 19/09/2006, 19:27

Hola!

Amigos, tengo un pequeño problema con un programita y me gustaria saber si pueden darme una mano, me estoy volviendo loco. Se poquisimo de PERL (mas se de PHP) pero no entiendo el error:

Global symbol "$sess" requires explicit package name at ./notify_sms.really.old line 44.
Global symbol "$to" requires explicit package name at ./notify_sms.really.old line 44.
Global symbol "$text" requires explicit package name at ./notify_sms.really.old line 44.
Execution of ./notify_sms.really.old aborted due to compilation errors.

El codigo es:

Código:

      1 #!/usr/bin/perl -wT
      2
      3 use strict;
      4 use HTTP::Lite;
      5 use Getopt::Long;
      6 use vars qw($opt_version $opt_help $opt_username $opt_password $opt_api_id $opt_baseurl $opt_text $opt_to $PROGNAME);
      7 use lib "/usr/lib/nagios/libexec" ;
      8 use utils qw(%ERRORS &print_revision &support &usage);
      9
     10 $PROGNAME = "notify_sms";
     11
     12 sub print_help ();
     13 sub print_usage ();
     14
     15 Getopt::Long::Configure('bundling');
     16
     17 GetOptions
     18         ("v"   => \$opt_version, "version"    => \$opt_version,
     19          "h"   => \$opt_help, "help"       => \$opt_help,
     20          "a=s" => \$opt_api_id, "apiid=s" => \$opt_api_id,
     21          "b=s" => \$opt_baseurl, "baseurl=s" => \$opt_baseurl,
     22          "m=s" => \$opt_text, "message=s" => \$opt_text,
     23          "p=s" => \$opt_password, "password=s" => \$opt_password,
     24          "t=s" => \$opt_to, "to=s" => \$opt_to,
     25          "u=s" => \$opt_username, "username=s"  => \$opt_username);
     26
     27 if ($opt_version) {
     28         print_revision($PROGNAME,'$Revision: 1.1 $');
     29         exit $ERRORS{'OK'};
     30 }
     31 if ($opt_help) {print_help(); exit $ERRORS{'OK'};}
     32
     33 ($opt_api_id) || usage("Gateway api ID must be specified\n");
     34 ($opt_text) || usage("Message body must be specified\n");
     35 ($opt_password) || usage("Gateway login password must be specified\n");
     36 ($opt_to) || usage("Phone to number must be specified\n");
     37 ($opt_username) || usage("Gateway login username must be specified\n");
     38
     39 if (!$opt_baseurl) {
     40     $opt_baseurl = "http://api.clickatell.com";
     41 }
     42
     43 my $login_url = $opt_baseurl."/http/auth?user=".$opt_username."&password=".$opt_password."&api_id=".$opt_api_id;
     44 my $send_url = $opt_baseurl."/http/sendmsg?session_id=".$sess."&to=".$to."&text=".$text;
     45
     46 #print $text."\n";
     47
     48 my $http = new HTTP::Lite;
     49 my $req = $http->request($login_url);
     50 my $res = $http->body();
     51 my @sres = split(":", $res);
     52
     53 if ($sres[0] eq "OK") {

Que esta saliendo mal?

Gracias de antemano!!

monoswim · #2 (**permalink**) 19/09/2006, 19:54

Es que las variables SESS TO TEXT no están declaradas...Deberías de tener algo así como

my $sess = 'session';
my $yo = '[email protected]';
my $text = 'Que capo que soy';

El script no sabe que son esas variables porque no están definidas anteriormente en el script...

Espero que te sirva

Saludos

jferrero · #3 (**permalink**) 20/09/2006, 04:17

Es un problema más grave que el que te comenta monoswim, y además, muestra una de las virtudes de Perl.
Gracias a la línea 'use strict;', Perl nos obliga a declarar todas las variables que vamos a usar en nuestro programa. Si a la hora de ejecutarlo salen errores como los que te han salido a ti, debemos sospechar que algo hemos hecho mal.
Y, efectivamente, algo está mal: Las varaibles $sess, $to y $text están MAL escritas.
Deben ser $opt_to y $opt_text. De $sess, es más raro, porque no existe ni está definida antes $opt_sess.

Me temo que hay un grave problema de lógica en el programa.

LatamHost · #4 (**permalink**) 22/09/2006, 04:16

Muchas gracias chicos por las respuestas! Voy a ver entonces que hago.

Saludos!