#!C:/perl/bin/perl.exe use CGI; $query = new CGI; $name= $query->param('name'); $subject= $query->param('subject'); $message= $query->param('message'); $date1= $query->param('date1'); $date2= $query->param('date2'); $password= $query->param('password'); $spacer= "OOPHOI"; print $query->header; print $query->start_html(-title=>'Discussion Board'); if($password eq "stats"){ $message =~ s/\n/
/g; $message =~ s/\r/ /g; open (INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/topics.txt"); print INFO "$name $spacer"; print INFO "$subject $spacer"; print INFO "$message $spacer"; print INFO "$date1 $spacer"; print INFO "$date2\n"; close (INFO); print ""; print "Discussion Forum
Perl CGI for Internet Research


"; print "Your message has been saved.
"; print "
"; print ""; print "
"; } else{ print ""; print "Discussion Forum
Perl CGI for Internet Research


"; print "You entered an invalid password.
If you think you have made an error, please use the back button on your browser and try again."; } print $query->end_html;