#!/opt/local/bin/perl @db = ; @db = sort(@db); foreach $record (@db) { ($name,$category,$description) = split(/:/,$record); if (index($catlist,$category) == -1) { $catlist .= $category . ","; } } chop($catlist); @catlist = split(/,/,$catlist); @catlist=sort(@catlist); open(HEAD,"cat_head.html"); while () { print; } close(HEAD); print "\n"; print "\n"; print ("

This listing generated: ",`date`,"\n"); print "

\n"; print "

The routines are organized by these categories:

\n"; print "

%s\n",$categ,$category; $categ++; } printf "
Alphabetical list of all routines\n",$categ; print "

\n"; print "\n"; $categ=0; foreach $category (@catlist) { printf "

%s

\n\n",$categ,$category; foreach $record (@db) { ($name,$thiscat,$description) = split(/:/,$record); chop($description); if ($thiscat eq $category) { printf "\n",$name,uc($name),$description; } } print "

%-8s

\n"; $categ++; } print "\n"; printf "

All routines in alphabetic order:

\n",$categ; print "\n"; print "\n"; foreach $record (@db) { ($name,$thiscat,$description) = split(/:/,$record); chop($description); printf "\n",$name,uc($name),$description; } print "

%-8s

\n"; open(TAIL,"cat_tail.html"); while () { print; } close(TAIL);