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

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

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

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

$temp= 1;

print "<B>List of Topics</B>";
print "<HR><TABLE WIDTH='80%'>";

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

foreach $key (@topics){
  if($temp == 1){
    print "<TR BGCOLOR='#F7F7F7' VALIGN='top'>";
    $temp= 2;
  }
  else{
    print "<TR BGCOLOR='#dedfdf'  VALIGN='top'>";
    $temp= 1;
  }
 ($name, $subject, $message, $date1, $date2)=split(/$spacer/,$key);
 
 $temp2= "\"$subject\"";
 
 print "<TD><FONT FACE = 'arial' SIZE = '2'><B>&nbsp $name &nbsp</B></TD>
 <TD><FONT FACE = 'arial' SIZE = '2'>&nbsp $subject &nbsp</TD>
 <TD>  <FONT FACE = 'arial' SIZE = '2'>&nbsp $date1 $date2 &nbsp</TD>
 <TD><FORM ACTION='/cgi-bin/forumgototopic.pl' METHOD='post'>
 <INPUT TYPE='hidden' NAME='subjectselected' VALUE=$temp2>
 <INPUT TYPE='submit' VALUE='Read'></FORM></TD>
 </TR>";
}

print "</TABLE><HR>";
print "<BR>";

print "<FORM ACTION='/cgi-bin/forumnewtopic.pl' METHOD='post'>";
print "<INPUT TYPE='submit' VALUE='Create a new topic'>";
print "</FORM>";

print $query->end_html;