$websiteTitle

[Fri Jul 11 15:51:44 2003] (eval 1): Array found where operator expected at (eval 1) line 1, at end of line [Fri Jul 11 15:51:44 2003] (eval 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 end 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 expected at (eval 1) line 3, at end 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 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 "$adminPassword")) {
	$query = new CGI;
	$cookie = $query->cookie(-name=>'$adminUser',-value=>'$adminPassword',-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 <

$websiteTitle






User: 

Password: 








ENDHTML

exit;