1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
#!/usr/bin/perl
#
# $XFree86: xc/config/util/mkhtmlindex.pl,v 1.2 2001/03/15 19:02:31 dawes Exp $
#
# Copyright © 2000,2001 by VA Linux Systems, Inc.
#
# Generate index files for HTML man pages.
#
# Author: David Dawes <dawes@xfree86.org>
#
#
# 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 <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>X.Org Manual pages: Section $vol</TITLE>
</HEAD>
<BODY BGCOLOR="#efefef" TEXT="black" LINK="blue" VLINK="#551A8B" ALINK="red">
<H1>X.Org Manual pages: Section $vol</H1>
<P>
<UL>
EOF
foreach $file (sort readdir dir) {
if ($file =~ "\.$vol\.html") {
open(file, "<$dir/$file") || die "Can't open $dir/$file";
while (<file>) {
chop;
if (/^<[hH]2>/) {
if (! /<\/[hH]2>$/) {
while (<file> && ! /<\/[hH]2>$/) {
;
}
}
$heading = "";
while (<file>) {
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
"<LI><A href=\"$file\">$fname</A> - $descr</LI>";
}
last;
}
}
close file;
}
}
print mindex <<EOF;
</UL>
<P>
</BODY>
</HTML>
EOF
close mindex;
closedir dir;
if (defined $empty) {
# print "Removing empty $indexname\n";
unlink $indexname;
}
}
|
