makelink.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# makelink.cgi
# Create a symbolic link

require './file-lib.pl';
&ReadParse();
&switch_acl_uid();
print "Content-type: text/plain\n\n";
if (!&can_access($in{'from'})) {
	print &text('link_efrom', $in{'from'}),"\n";
	}
elsif ($access{'follow'}) {
	print $text{'link_efollow'},"\n";
	}
elsif (!symlink($in{'to'}, $in{'from'})) {
	print "$!\n";
	}
else {
	print "\n";
	print &file_info_line($in{'from'}),"\n";
	}