openfile.cgi

 

---

#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;


$comments = $formdata{'comments'};

open (LOG, ">>../../logs/logfile.txt") || &ErrorMessage;
print LOG "$comments\n";
close (LOG);

print "Content-type: text/html\n\n";
print "<P>You commented thusly: <BLOCKQUOTE><P><I>$comments</I></BLOCKQUOTE>\n";
print "<HR>Would you like to see all the messages? <A HREF=\"http://www.lawsonhelp.com/cgi-bin/readfromlog.cgi\">Yes</A>";

---