#!/Perl/bin/perl

require "cgi-lib.pl";
require "common.pl";
require "cookie.lib";

print &PrintHeader;

$aon=1;

&initial;

$input="seeforum.htm";
$forum=$input{'forum'};

open(HTM,$input);
  while (<HTM>) {
      s/_FORUM_/$forum/;
      s/_NAME_/$name/;
      print $_;
  }
close HTM;

$path_forum=$pathf . $s . $forum;

opendir (DIR,$path_forum);
@allfiles=readdir DIR;
closedir DIR;

@files = reverse sort @allfiles;

foreach $d (0 .. $#files) {
  $file=$files[$d];
  &comm("FILE= $file");
  next if (length($file)<5);

  $htmlfile=$sunix . "forums" . $sunix . $forum . $sunix . $file;

  ($type,$when,$who,$topic)=split(/-/,$file);
  $when1=substr($when,0,4) . "-";
  $when1.=substr($when,4,2) . "-";
  $when1.=substr($when,6,2) . " ";
  $when1.=substr($when,9,2) . ":";
  $when1.=substr($when,11,2) . ":";
  $when1.=substr($when,13,2) . " ";

  ($topic,$htm)=split(/\./,$topic);

  if ($type eq "R") {
    ($type2,$when2,$who,$entry)=split(/-/,$file);
    ($entry,$htm)=split(/\./,$entry);
    $before=$REF{"$entry"};
    $refer="$before $when2 $who $htmlfile __";
    &comm("ENTRY=[$entry] REFER=[$refer]");
    $REF{"$entry"}=$refer;
  }
  if ($type eq "P") {
    print "<tr><td align=center><table width=100% border=0 cellspacing=0 cellpadding=3>\n";
    print "<tr><td><li>";
    print "<font size=2 color=black>$when1</font>";
    print "<font size=1 color=navy>by:</font>";    
    print "<font size=2 color=navy>$who</font>";
    print "<font size=3> <a href=\"/cgi-bin/replye.pl?ref=";
    print $file;
    $hrefinfo='&name=' . $name . '&forum=' . $forum . '"';
    print $hrefinfo;
    print ">$topic</a>";
    print "</font></td>";
    print "</tr>\n";

    $refer=$REF{"$when"};
    &comm("ENTRY2=[$when] REFER=[$refer]");
    @refs=split(/__/,$refer);
    foreach $r (0 .. $#refs) {
        ($v,$when2,$who,$htmlfile)=split(/\s+/,$refs[$r]);
        print "<tr><td colspan=3><table border=0 cellspacing=0 cellpadding=3>\n";
        print "<tr>";
        print "<td width=20%>&nbsp</td><td><font color=purple ><a href=";
        print $htmlfile;
        $re=$r+1;
        print "><font size=2>Response $re</a>";
        print "</font> </td>\n";
        print "<td><font size=2>(on: <font color=navy>$when1</font>";
        print "by <font color=navy >$who</font>)</font></td>";
        print "</tr>";
        print "</table></td></tr>\n";
    }
    print "</table></td></tr><tr><td>&nbsp;<br></td></tr>\n";

  }

}

print "</table></center></td></tr></table>\n";
print "<font size=1><a href=javascript:history.back()>Back</a></font>\n";
print "</center>";
exit;