#!/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 "Content-type: text/html\n\n"; print "Set-Cookie: .$user.=.$pws.; expires=..; path=./.; domain=.localhost.;"; 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;