Test/index.html

   1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
   2 <HTML>
   3
   4 <HEAD>
   5
   6 <TITLE>Test directory</TITLE>
   7 <META CONTENT='text/ssperl;  CGI="$SERVER_NAME $DIRECTORY"'>
   8
   9 </HEAD>
  10
  11 <BODY>
  12
  13 <H1 ALIGN="CENTER">Test directory</H1>
  14 <SCRIPT TYPE='text/ssperl'>
  15         $DIRECTORY =~ s!\.\./*!!g;
  16         $result = CGIscriptor::BrowseDirs("Test", "", "$DIRECTORY", 'DIRECTORY', ".");
  17         "";
  18 </SCRIPT>
  19
  20 </BODY>
  21
  22 </HTML>