man-page-generation-20051220

[openafs.git] / doc / man-pages / generate-file-map

diff --git a/doc/man-pages/generate-file-map b/doc/man-pages/generate-file-map
deleted file mode 100755 (executable)
index 8428c07..0000000
--- a/doc/man-pages/generate-file-map
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl
-#
-# From an AFS Administrative Reference HTML page, try to figure out what
-# command or file it corresponds to and output the appropriate generate-pod
-# command.  Intended to be run as follows:
-#
-#     generate-file-map *.htm > generate-pods.sh
-#
-# Each line of the output will be a generate-pod invocation, saving its output
-# to the appropriate POD file.
-
-my %except = map { $_ => 1 }
-    ('Table of Contents', 'Audience and Purpose', 'Organization',
-     'How to Use This Document', 'Related Documents',
-     'Typographical Conventions');
-
-for my $file (@ARGV) {
-    my $command;
-    open (IN, '<', $file) or die "$0: cannot open $file: $!\n";
-    while (<IN>) {
-        s/<I>//g;
-        s%</I>%%g;
-        if (/<H2><A [^>]+>([^<]+)/) {
-            $command = $1;
-            last;
-        }
-    }
-    if ($command) {
-        next if $except{$command};
-        next if $command =~ /\(AFS version\)/;
-        $command =~ s/,.*//;
-        $command =~ s/ and.*//;
-        $command =~ s/\s/_/g;
-        $command =~ s/([\(\)])/\\$1/g;
-        print "../../man-pages/generate-pod $file >"
-            ." ../../man-pages/pod/$command.pod\n";
-    }
-}