My script

[Soccerguy12]

I really dont know perl at all and I have no way of testing my script. COuld someone possibly tell me if this would work:

#!/usr/bin/perl



if ($ENV{'REQUEST_METHOD'} eq 'POST') {

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name} = $value;
}


$usr = $FORM{'usr'};
$txt = $FORM{'txt'};
$pword = $FORM{'pword'};
$date
if($usr eq "Mike" && $pword eq "mike")
{
if(unlink("Mike.html");)
{
unlink("Mike.html");
link("Mike.html");
}
else{link("Mike.html");}
open(PAGE,|"Mike.html")
print PAGE "$date;"
print PAGE "$txt;"
close (PAGE);

}

[aprelium]

Soccerguy12,

This script seems to be fine. If you execute it on Abyss, you'll get error 200. This means that the script sent no output to the server which is the case. To avoid this message, add at the end these line: