80 lines
1.8 KiB
Perl
Executable File
80 lines
1.8 KiB
Perl
Executable File
#!/usr/sbin/perl
|
|
|
|
# Notes:
|
|
#
|
|
# - going to have a problem with casing
|
|
# - handle metachars
|
|
|
|
# ----------------------------------------------------
|
|
# VARIABLES
|
|
|
|
$docroot = "\/performer";
|
|
$absdocroot = "\/var\/www\/htdocs\/performer";
|
|
$dbsdir = "\/var\/www\/htdocs\/performer\/dbs";
|
|
$mandir = "/var/www/htdocs/performer/html_mans";
|
|
$cgiroot = "\/cgi-bin";
|
|
$fullcgiroot = "/var/www/cgi-bin";
|
|
# ----------------------------------------------------
|
|
|
|
# Main
|
|
|
|
|
|
# LOOK for *.html in html_mans and in html_mans/B
|
|
|
|
|
|
opendir(MANDIR,"$mandir");
|
|
@manlist = readdir MANDIR;
|
|
closedir(MANDIR);
|
|
foreach $MAN_PAGE (@manlist) {
|
|
if ($MAN_PAGE =~ /.*\.html$/ ) {
|
|
push(@man,"$MAN_PAGE/G");
|
|
}
|
|
}
|
|
|
|
opendir(MANDIRB,"$mandir/B");
|
|
@manlistb = readdir MANDIRB;
|
|
closedir(MANDIRB);
|
|
foreach $MAN_PAGEB (@manlistb) {
|
|
if ($MAN_PAGEB =~ /.*\.html$/ ) {
|
|
push(@man,"$MAN_PAGEB/B");
|
|
}
|
|
}
|
|
|
|
|
|
print "Content-type: text/html\n\n"; # Required for HTTP/1.0 compat.
|
|
print "<BODY BGCOLOR=\"f2f5bd\">\n";
|
|
print "<H3>Man Pages</H3>\n";
|
|
|
|
# --------------------------------------------------
|
|
# Hard coded perfly and pf man pages
|
|
|
|
print " \; \; \; \; \;<A HREF=\"$docroot/html_mans/man1/perfly.html\">perfly</A><BR>\n";
|
|
print " \; \; \; \; \;<A HREF=\"$docroot/html_mans/man1/pfconv.html\">pfconv</A><BR>\n";
|
|
# --------------------------------------------------
|
|
|
|
foreach $list (sort(@man)) {
|
|
$list =~ s/^(.*).html\/(\w)/$1/;
|
|
$dir = $2;
|
|
#print "$list $dir\n";
|
|
if ($dir eq "G") {
|
|
print " \; \; \; \; \;<A HREF=\"$docroot/html_mans/$list.html\">$list</A><BR>\n";
|
|
} elsif ($dir eq "B") {
|
|
print " \; \; \; \; \;<A HREF=\"$docroot/html_mans/B/$list.html\">$list</A><BR>\n";
|
|
}
|
|
}
|
|
|
|
print "<P>\n</BODY>\n</HTML>";
|
|
|
|
#foreach $list (@genman) {
|
|
# print "Gen $list\n";
|
|
#}
|
|
|
|
#foreach $list (@bman) {
|
|
# print "B $list\n";
|
|
#}
|
|
|
|
|
|
|
|
|
|
|