index.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# index.cgi
# Output HTML for the file manager applet

require './file-lib.pl';
&header($text{'index_title'});
print <<EOF;
<script>
function upload(dir)
{
open("upform.cgi?dir="+dir, "upload", "toolbar=no,menubar=no,scrollbar=no,width=450,height=200");
}
</script>

<applet code=FileManager name=FileManager width=100% height=90% MAYSCRIPT>
<param name=root value="$access{'root'}">
<param name=follow value="$access{'follow'}">
$text{'index_nojava'} <p>
</applet>
<hr>
EOF
&footer("/", $text{'index'});