aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/config/util/mkhtmlindex.pl
diff options
context:
space:
mode:
Diffstat (limited to 'nx-X11/config/util/mkhtmlindex.pl')
-rw-r--r--nx-X11/config/util/mkhtmlindex.pl103
1 files changed, 0 insertions, 103 deletions
diff --git a/nx-X11/config/util/mkhtmlindex.pl b/nx-X11/config/util/mkhtmlindex.pl
deleted file mode 100644
index 10030910e..000000000
--- a/nx-X11/config/util/mkhtmlindex.pl
+++ /dev/null
@@ -1,103 +0,0 @@
-#!/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;
- }
-}