#!/Perl/bin/perl

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

print &PrintHeader;

$aon=1;
&initial;


opendir (DIR,$pathf);
@files=readdir DIR;
closedir DIR;

foreach $d (0 .. $#files) {
  $file=$files[$d];
  print "\n<!-- $file -->\n";
  next if (length($file)<3);
  next if (index($file,"-")>-1);

  print "<tr>";
  print "<td>";
  print "<font class=s2> <a href=/cgi-bin/seeforum.pl?";
  print "name=" . $name . "&forum=$file>$file</a>";
  print "</font></td></tr></table>\n";
  print "</td></tr>";
}

print "</table></center></td></tr></table></center>\n";
exit;