#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;
$subjectselected= $query->param('subjectselected');
$spacer= "OOPHOI";

open (INFO, "$ENV{'DOCUMENT_ROOT'}/data/topics.txt");
  @topics = <INFO>;
close (INFO);

open (INFO, "$ENV{'DOCUMENT_ROOT'}/data/replys.txt");
  @replys = <INFO>;
close (INFO);

$temp=1;

print $query->header;
print $query->start_html(-title=>$subjectselected);
print "<FONT FACE = 'arial' SIZE = '2'>";

print "<B>Discussion Forum<BR>Perl CGI for Internet Research<BR></B><BR><BR>";

print "<B>Topic</B>:  $subjectselected<BR>";

print "<HR><TABLE WIDTH='80%'>";

print "<TR BGCOLOR='#330099' VALIGN='top'>
<TD  VALIGN='top'><FONT FACE = 'arial' SIZE = '2' COLOR='white'><B>Name &nbsp</B></TD>
<TD  VALIGN='top'><FONT FACE = 'arial' SIZE = '2' COLOR='white'><B>Message &nbsp</B></TD>
<TD  VALIGN='top'><FONT FACE = 'arial' SIZE = '2' COLOR='white'><B>Date &nbsp</B></TD>
</TR>";

foreach $key (@topics){

  ($name, $subject, $message, $date1, $date2)=split(/$spacer/,$key);
  
  if($subject eq $subjectselected){
    
	if($temp == 1){
      print "<TR BGCOLOR='#F7F7F7' VALIGN='top'>";
      $temp= 2;
    }
    else{
      print "<TR BGCOLOR='#dedfdf'  VALIGN='top'>";
      $temp= 1;
    }
  
  print "<TD  VALIGN='top'> 
  <FONT FACE = 'arial' SIZE = '2'> 
  <B>$name &nbsp <BR>&nbsp</B></TD>
  <TD  VALIGN='top'> <FONT FACE = 'arial' SIZE = '2'>$message</TD>
  <TD  VALIGN='top'> <FONT FACE = 'arial' SIZE = '2'>$date1 $date2 </TD></TR>";
  }
}

foreach $key (@replys){

  ($name, $subject, $message, $date1, $date2)=split(/$spacer/,$key);

  if($subject eq $subjectselected){
    if($temp == 1){
    print "<TR BGCOLOR='#F7F7F7' VALIGN='top'>";
    $temp= 2;
    }
  else{
    print "<TR BGCOLOR='#dedfdf'  VALIGN='top'>";
    $temp= 1;
    }
  
  print "<TD  VALIGN='top'>
  <FONT FACE = 'arial' SIZE = '2'>
  <B>$name &nbsp <BR>&nbsp</B></TD>
  <TD  VALIGN='top'> <FONT FACE = 'arial' SIZE = '2'>$message</TD>
  <TD  VALIGN='top'> <FONT FACE = 'arial' SIZE = '2'>$date1 $date2 </TD></TR>";
  }
}




print "</TABLE>";
print "<HR><BR><A HREF='/cgi-bin/forumdiscussion.pl'><B>Return to main page</B></A><BR>";
 $temp2= "\"$subjectselected\"";

print "<FORM ACTION='/cgi-bin/forumnewreply.pl' METHOD='post'>";
print "<INPUT TYPE='hidden' NAME='date1' VALUE=$date1>";
print "<INPUT TYPE='hidden' NAME='date2' VALUE=$date2>";
print "<INPUT TYPE='hidden' NAME='subjectselected' VALUE=$temp2>";
print "<INPUT TYPE='submit' VALUE='Submit a Reply'>";
print "</FORM>";

print $query->end_html;