rename.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# rename.cgi
# Rename some file

require './file-lib.pl';
&switch_acl_uid();
print "Content-type: text/plain\n\n";
&ReadParse();
if (!&can_access($in{'old'})) {
	print &text('rename_eold', $in{'old'}),"\n";
	}
elsif (!&can_access($in{'new'})) {
	print &text('rename_enew', $in{'new'}),"\n";
	}
elsif (!rename($in{'old'}, $in{'new'})) {
	print "$!\n";
	}
else {
	print "\n";
	}