list.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# list.cgi
# Return a list of files in some directory

require './file-lib.pl';
&ReadParse();
&switch_acl_uid();
print "Content-type: text/plain\n\n";
$d = $in{'dir'} eq "/" ? "" : $in{'dir'};
if (!&can_access($in{'dir'})) {
	print $text{'list_eaccess'},"\n";
	}
elsif (!opendir(DIR, $in{'dir'})) {
	print "$!\n";
	}
else {
	print "\n";
	@files = sort { $a cmp $b } readdir(DIR);
	@files = grep { $_ ne "." && $_ ne ".." } @files;
	@files = grep { &can_access("$d/$_") } @files;
	closedir(DIR);
	foreach $f (".", "..", @files) {
		print &file_info_line("$d/$f"),"\n";
		}
	}