#!/usr/bin/perl -w
#
# $Id: mkindex.pl,v 1.2 2000/01/28 16:07:37 kjc Exp $
#
# usage: mkindex.pl
#	mkindex.pl searches files whose names are "<digit+>.html" in
#	the current directory, and creates an index page for them.
#

$idxfile = "index.html";

open(HOUT,"> $idxfile");

print HOUT "<HTML><HEAD>\n";
print HOUT "<TITLE>Traffic Trace Page</TITLE>\n"; 
print HOUT "</HEAD>\n\n";
print HOUT "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#330099\" ALINK=\"#FF9933\" VLINK=\"#6666CC\">\n";
print HOUT "<H3>Traffic Trace Page</H3> Daily Trace<HR>\n"; 

$month = 0;
while (<*.html>) {
    if (/^(\d{4})(\d{2})(\d{2})(\d+).html/) {
	if ($month != $2) {
	    $month = $2;
	    print HOUT "\n\n<BR><B>$1/$month: <\B>\n";
	}
	print HOUT " <A HREF=$_>$3</A> \n";
    }
}
print HOUT "<P>\n";

print HOUT <<EOF;
</BODY>
</HTML>
EOF

close(HOUT);

exit 0;
syntax highlighted by Code2HTML, v. 0.9.1