read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); 
@pairs=split(/&/,$buffer); 
foreach $pair (@pairs) { 
	($name, $value)=split(/=/,$pair); 
	$value =~ tr/+/ /;
	$value=~s/%(..)/pack("c",hex($1))/ge;
	$f{$name}=$value; 
	chomp($f{$name});
}

print "<tr><td bgcolor=#CCCCCC><b>&nbsp;File Removal</b></td></tr></table>";

if(($f{'action'} eq "delete")&&(open(FILE,$f{'file'}))){
	unlink($f{'file'})||print "<h1>Could Not Delete: ".$f{'file'}."</h1>";
}
$dir=$f{'dir'} if $f{'password'} eq $password;
opendir(DIR,$dir);
@files=readdir(DIR);
closedir(DIR);
@files=sort(@files);

print "Directory Content:";

$i=0;
foreach	$file(@files){
	if((!opendir(TEST,$dir."/".$file))&&($f{'password'} eq $password)&&($file ne ".")&&($file ne "..")){
		$i++;
		print "<input type=checkbox name=file value=\"".$dir."/".$file;
		if($i==1){
			print "\" checked>";
		}else{
			print "\">";
		}
		print $file."<BR>\n";
	}
}
print "<input type=hidden name=dir value=\"".$location."\">\n";