file/root.cgi

   1 #!/usr/local/bin/perl
   2 # root.cgi
   3 # Return information about the root directory
   4
   5 require './file-lib.pl';
   6 print "Content-type: text/plain\n\n";
   7 &go_chroot();
   8 print &file_info_line("/"),"\n";