#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<Head><Title>Thank you</Title></Head>\n";
print "<Body bgcolor=ffffff><center><H1>Please Write A Message</center></H1>\n";

# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    # Un-Webify plus signs and %-encoding
    $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 (F, ">>ttt");
print F "$FORM{'username'}<br><dd>$FORM{'comments'}\n";
close (F);
  


print "<center><img src=\"/guest/rain.gif\"></center>\n";





print "<center><h2><i>These comments have already been written</i></center></h2>\n";
open (F, ttt);
print (ttt);
close (F);
print "<font size=3 color=green><center>Last update: \n";
print local(time);


print "</center></font>\n";
print "<hr>\n";
print "<font size=4 color=red>\n";
print "</font></center>\n";


print "<center>\n";
print "<form Method=\"POST\" Action=\"/cgi-bin/dan.pl\">\n";
print "<i><b>Please enter your name:</b></i>\n";
print "<input type=\"text\" Name=\"username\"><br><p>\n";
print "<i><b>Please enter your comments below:</b></i><br>\n";
print "<input type=\"text\" Name=\"comments\" size=\"80\"><br><p>\n";
print "<input type=\"submit\"> <input type=\"reset\">\n";
print "</form></center>\n";







sub blank_response
{
    print "Your comments appear to be blank, and thus were not sent ";
    print "to our webmasters.  Please re-enter your comments, or ";
    print "return to our <A HREF=\"/\">home page</A>, if you want.<P>";
    exit;
}

print "</body>";
