root.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# root.cgi
# Return information about the root directory

require './file-lib.pl';
print "Content-type: text/plain\n\n";
print &file_info_line("/"),"\n";