use CGI qw/:standard/;
use CGI::Cookie;
print "\n\rValidating";
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $request,$ENV{'CONTENT_LENGTH'}) or die "Could not get query\n";
}
@parameters = split(/&/,$request);
foreach $p (@parameters){
$p =~ s/\+/ /g;
($para,$value) = split(/=/,$p);
$para =~ s/%([0-9A-F][0-9A-F])/pack("c",hex($1))/ge;
$value =~ s/%([0-9A-F][0-9A-F])/pack("c",hex($1))/ge;
$PAIRS{$para} = $value;
}
if($PAIRS{"login_id"} eq("admin") && $PAIRS{"login_password"} eq("go")){
$login_cookie = new CGI::Cookie(-name=>'loginID',-value=>'admin');
$password_cookie = new CGI::Cookie(-name=>'loginPassword',-value=>'go');
header(-cookie=>[$login_cookie,$password_cookie]);
print "";
}
else{
print "";
}
print "";