#!/usr/bin/perl # # $XFree86: xc/config/util/mkhtmlindex.pl,v 1.3 2001/03/18 14:49:01 dawes Exp $ # # 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 < XFree86[tm] Manual pages: Section $vol

XFree86[tm] Manual pages: Section $vol