#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<Head><Title>You better RU...........N!</Title></Head>";
print "<Body><H1>Phf? Well that is too old man just a bit behind I guess </H1>";

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;
}

&blank_response unless $FORM{'comments'};


open (LOGFILE, ">>/usr/local/etc/httpd/htdocs/computer.txt");
 

 
print LOGFILE "$FORM{'comments'}\n";
print LOGFILE "==========================================================================\n";


close (LOGFILE);


print "Thank you!<P>";
sub blank_response
{
    print "Sorry but you  can get some cool stuff if you go to";
    print "<h4><font color=#ff4545>www.getout'tahere.com</font></h4>";


    exit;
}

# by me kaskasbaba so get the hell out before I shoot you again.
