#!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 "";
}
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;