#!/usr/bin/perl
$user="tlcplus";
$passwd="tlcgo";
print "Content-type: text/html\n\n";
print "<BODY BGCOLOR=#000000 TEXT=#FFFFFF>\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@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;
}
if(($FORM{'user'}==$user)&&($FORM{'passwd'}==$passwd)){
	open(F,">$FORM{'FILE'}");
	print F $FORM{'position'};
	close(F);	
	print "ThankYou";
}else{
	print "Authorization File!!!";
}
