class9_05

Please send questions to st10@humboldt.edu .
#!/usr/bin/perl -w

# will this save the info from the form on class9_05.html?

open HTML_INFO, ">> class9_05_sent_info"
   or die "Cannot open class9_05_sent_info: $!";

# first: get the information from the HTML form as one big string:

read STDIN, $info_string, $ENV{"CONTENT_LENGTH"}; 

# try to save it to class9_05_sent_info:

print HTML_INFO "$info_string\n";

close HTML_INFO;

# try to send back a confirmation page

print "Content-type: text/html", "\n\n";
print "<html>\n";
print "<head><title>Confirmation</title></head>\n";
print "<body><h1>Confirmation</h1>\n";
print "<hr>\n";
print "Information transferred?\n";
print "</body>\n";
print "</html>\n";

# end of class9_05.pl