#!/usr/bin/perl
opendir(MAINDIR,"..");
@alldirs = readdir(MAINDIR);
print "Content-type: text/html\n\n";
print qq(
Administration
Administer Message Board:
);
foreach $i (0 .. $#alldirs) {
($alldirs[$i] !~ /^SRC$/) && ($alldirs[$i] !~ /^admin$/) &&
($alldirs[$i] !~ /^\./) && ($alldirs[$i] !~ /^CGI.pm$/) &&
($alldirs[$i] !~ /^README$/) &&
print "- $alldirs[$i]";
}
print "
";