webstudioro has asked for the wisdom of the Perl Monks concerning the following question:
My system: Windows xp with sambar server 5.2[Fri Jul 11 15:51:44 2003] (eval 1): Array found where operator expect +ed at (eval 1) line 1, at end of line [Fri Jul 11 15:51:44 2003] (eva +l 1): (Do you need to predeclare Carp::longmess?) [Fri Jul 11 15:51:44 2003] (eval 1): Array found where operator expected at (eval 1) line 2, at e +nd of line [Fri Jul 11 15:51:44 2003] (eval 1): (Do you need to predeclare Carp:: +shortmess?) [Fri Jul 11 15:51:44 2003] (eval 1): Array found where operator expect +ed at (eval 1) line 3, at end of line [Fri Jul 11 15:51:44 2003] (eval 1): (Do you n +eed to predeclare Carp::shortmess?) [Fri Jul 11 15:51:44 2003] (eval 1): Array found wh +ere operator expected at (eval 1) line 4, at end of line [Fri Jul 11 15:51:44 2003] + (eval 1): (Do you need to predeclare Carp::longmess?) Undefined subroutine &Carp +::longmess called at Carp.pm line 296.
#!/usr/bin/perl use CGI; require "admin_sub.pl"; require "uzual_sub.pl"; require "variabile.pl"; &readForm; if ($FORM{'verify'} eq "account") { if (($FORM{'user'} eq "$adminUser") && ($FORM{'pws'} eq "$adminPas +sword")) { $query = new CGI; $cookie = $query->cookie(-name=>'$adminUser',-value=>'$adminPasswo +rd',-expires=>'+1y',-path=>'/',-domain=>'localhost',-secure=>'0'); print $query->header(-cookie=>$cookie); print "Content-type: text/html\n\n"; print "The cookie is: $ENV{'HTTP-COOKIE'}"; exit; } else { print "Content-type: text/html\n\n"; print "Error ."; exit; } exit; } print "Content-type: text/html\n\n"; print <<ENDHTML; <html> <head> <title>$websiteTitle</title> </head> <body> <table align=center border=0> <form action="http://localhost/cgi-bin/admin.pl" method="post"> <input type=hidden name="verify" value="account"> <tr><td> User: <input type=text name="user"><br> Password: <input type=password name="pws"><br> <input type=submit value="Log in!"> </td></tr> </form> </table> </body> </html> ENDHTML exit;
edited: Fri Jul 11 13:17:53 2003 by jeffa - code tags ... sigh
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
(jeffa) Re: CGI.pm error
by jeffa (Bishop) on Jul 11, 2003 at 13:31 UTC | |
by dreadpiratepeter (Priest) on Jul 11, 2003 at 13:50 UTC | |
by Anonymous Monk on Jul 11, 2003 at 14:20 UTC | |
by jeffa (Bishop) on Jul 11, 2003 at 17:03 UTC | |
by webstudioro (Acolyte) on Jul 12, 2003 at 07:54 UTC | |
by bart (Canon) on Jul 12, 2003 at 12:15 UTC | |
by jeffa (Bishop) on Jul 12, 2003 at 12:00 UTC | |
| |
|
Re: CGI.pm error
by demerphq (Chancellor) on Jul 12, 2003 at 12:17 UTC |