upload.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# upload.cgi
# Upload a file

require './file-lib.pl';
&header();
&ReadParseMime();

if (!$in{'file'}) {
	print "<p><b>$text{'upload_efile'}</b><p>\n";
	}
elsif (!-d $in{'dir'}) {
	print "<p><b>$text{'upload_edir'}</b><p>\n";
	}
else {
	&switch_acl_uid();
	$in{'file_filename'} =~ /([^\\\/]+)$/;
	$path = "$in{'dir'}/$1";
	if (!&can_access($path)) {
		print "<p><b>",&text('upload_eperm', $path),"</b><p>\n";
		}
	elsif (!open(FILE, ">$path")) {
		print "<p><b>",&text('upload_ewrite', $path, $!),"</b><p>\n";
		}
	else {
		if ($in{'dos'}) {
			$in{'file'} =~ s/\r\n/\n/g;
			}
		print FILE $in{'file'};
		close(FILE);
		$info = &file_info_line($path);
		print "<script>\n";
		print "opener.document.FileManager.",
		      "upload_notify(\"$path\", \"$info\");\n";
		print "close();\n";
		print "</script>\n";
		}
	}