<%
opendir ( DIR, "." );
@dirs = grep -d, readdir ( DIR );
closedir ( DIR );
print "\n";
print "- Directories:\n";
for $i (@dirs ) {
print "
- $i\n";
}
opendir ( DIR, "." );
@files = grep !-d, readdir ( DIR );
closedir ( DIR );
print "
\n";
@files = grep !m/index.asp/, @files;
print "Files:\n";
print"\n";
for $i (@files ) {
$size = int((-s $i)/1.e3);
print"\n";
print "| $i | $size kB | \n";
print"
\n";
}
print"
\n";
%>