#!/usr/bin/perl # # Copyright © 2000,2001 by VA Linux Systems, Inc. # # Generate index files for HTML man pages. # # Author: David Dawes # # # Best viewed with tabs set to 4 # if ($#ARGV ne 0) { print STDERR "Usage: mkhtmlindex.pl htmlmandir\n"; exit 1; } $dir = $ARGV[0]; if (! -d $dir) { print STDERR "$dir is not a directory\n"; exit 1; } @vollist = ("1", "2", "3", "4", "5", "6", "7", "8", "9", "o", "l", "n", "p"); $indexprefix = "manindex"; foreach $vol (@vollist) { $empty = "yes"; $indexname="$dir/$indexprefix$vol.html"; # print "Processing volume $vol\n"; open(mindex, ">$indexname") || die "Can't create $indexname"; opendir(dir, "$dir") || die "Can't open $dir"; print mindex < X.Org Manual pages: Section $vol

X.Org Manual pages: Section $vol

) { chop; if (/^<[hH]2>/) { if (! /<\/[hH]2>$/) { while ( && ! /<\/[hH]2>$/) { ; } } $heading = ""; while () { if (/^<[hH]2>/) { last; } $heading = "$heading" . "$_"; } if ($heading) { undef $empty; $heading =~ s/--/-/; ($name, $descr) = split(/-/, $heading, 2); $file =~ /(.*)\.$vol\.html/; $fname = $1; $descr =~ s/<[pP]>//g; print mindex "

$fname - $descr

"; } last; } } close file; } } print mindex <

EOF close mindex; closedir dir; if (defined $empty) { # print "Removing empty $indexname\n"; unlink $indexname; } }