delete.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# delete.cgi
# Delete some file or directory

require './file-lib.pl';
&ReadParse();
&switch_acl_uid();
print "Content-type: text/plain\n\n";
if (!&can_access($in{'file'})) {
	print &text('delete_eaccess', $in{'file'}),"\n";
	exit;
	}
$out = `rm -rf "$in{'file'}" 2>&1`;
if ($?) { print $out; }
else { print "\n"; }