#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;

$name= $query->param('name');
$subjectselected= $query->param('subjectselected');
$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 Forum');

if($password eq "stats"){
  $message =~ s/\n/<BR>/g;
  $message =~ s/\r/ /g;
  
  open (INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/replys.txt");
    print INFO "$name$spacer";
    print INFO "$subjectselected$spacer";
    print INFO "$message$spacer";
    print INFO "$date1$spacer";
    print INFO "$date2\n";
  close (INFO);
  
  print "<FONT FACE = 'arial' SIZE = '2'>";
  print "<B>Discussion Forum<BR>Perl CGI for Internet Research<BR></B><BR><BR>";


  print "Your reply has been saved.<BR>";
  print "<FORM ACTION='/cgi-bin/forumgototopic.pl' METHOD='post'>";
  
  $temp2= "\"$subjectselected\"";
  
  print "<INPUT TYPE='hidden' NAME='subjectselected' VALUE=$temp2>";
  print "<INPUT TYPE='submit' VALUE='Return to topic'> ";
  print "</FORM>";

  print "<FORM ACTION='/cgi-bin/forumdiscussion.pl' METHOD='post'>";
  print "<INPUT TYPE='submit' VALUE='Go to main page'>";
  print "</FORM>";
}

else{
  print "<FONT FACE = 'arial' SIZE = '2'>";
  print "<B>Discussion Forum<BR>";
  
  print "You entered an invalid password.<BR>
  If you think you have made an error, please use the <I>back</I> button on your browser and try again.";
}
print $query->end_html;