#!/Perl/bin/perl

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

print &PrintHeader;

$aon=1;

&initial;

&check_admin;

$file=$input{'file'};

unlink $file;

($w1,$original,$owner,$replyto,$other)=split(/-/,$file,5);

$ri=rindex($file,$s);
$fn=substr($file,$ri+1);

$dir=substr($file,0,$ri);

$msg="$fn deleted<br>";

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

foreach $f (0 .. $#files) {
  
  $df=$files[$f];
  if ($df =~ /$original/) {
     $delfile=$dir . $s . $df;
     unlink $delfile;
     $msg=$msg . "$df deleted<br>";
  }
}
$addtlink="<a href=javascript:history.go(-2)>Admin page</a>";

&good("$msg");

exit;