#!/Perl/bin/perl

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

print &PrintHeader;

$aon=1;

&initial;

&check_admin; 

&print_skel;

sub do_content {

  &deletes;

 
}
exit;

#---> Subs
sub deletes {

print "
<form method=\"post\" action=\"/cgi-bin/delete1.pl\" >
<table width=80% border=0 cellpadding=5 cellspacing=5><tr><td align=center>
<font color=white size=5><font color=yellow>Delete</font> forum entry:</font></td></tr>";

   opendir (DIR1,"$pathf");
   @files1=readdir DIR1;
   closedir DIR1;

   foreach $f1 (0 .. $#files1) {
     $dir1=$files1[$f1];
     if (substr($dir1,0,1) ne "."){
     $dir="$pathf" . $s . $dir1;

     $dir1="GuestBook" if ($dir1 eq "gb");

     print "<tr><td><font size=3>Forum: <b>$dir1</b></font></td></tr>\n";

     opendir (DIR2,$dir);
     @files2=readdir DIR2;
     closedir DIR2;

     foreach $f2 (0 .. $#files2) {
       $file=$files2[$f2];
       if (length($file)>2) {
        # if (substr($file,0,2) ne "R-") {
           $delfile="$dir" . $s . $file;
           print "<tr><td><font size=2>
           <input type=radio name=file value=$delfile> $file
           </font></td></tr>\n";
        # }
       }
     }
     }
   }
print "

<tr><td align=center>
<font size=4>
Press: <input type=\"submit\" value=\"Delete\">
</font></td></tr></table></form>";

}