#!/usr/bin/perl 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")) { print "Set-Cookie: $user=$pws; expires=; path=/; domain=localhost;"; print "Content-type: text/html\n\n"; print "The cookie is: $ENV{'HTTP-COOKIE'}"; exit; } else { print "Content-type: text/html\n\n"; print "Username-ul sau parola nu sunt bune."; exit; } exit; } print "Content-type: text/html\n\n"; print < $websiteTitle :: Shop Admin.
User: Password:
ENDHTML exit;