#!/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;