aboutsummaryrefslogtreecommitdiffstats
path: root/system/doc/top/bin/otp_man_index
diff options
context:
space:
mode:
Diffstat (limited to 'system/doc/top/bin/otp_man_index')
-rwxr-xr-xsystem/doc/top/bin/otp_man_index106
1 files changed, 0 insertions, 106 deletions
diff --git a/system/doc/top/bin/otp_man_index b/system/doc/top/bin/otp_man_index
deleted file mode 100755
index 57a0f12d32..0000000000
--- a/system/doc/top/bin/otp_man_index
+++ /dev/null
@@ -1,106 +0,0 @@
-#!/opt/local/bin/perl
-
-use File::Find;
-use strict;
-
-#########################################
-# Usage:
-# $ cd $ERLANG_RELEASE
-# otp_man_index > doc/man_index.html
-#########################################
-
-my (@list,$info);
-
-find(\&wanted,'.');
-
-header();
-
-foreach $info (sort {lc($a->[0]) cmp lc($b->[0])} @list) {
- my ($module,$application,$dir,$path) = @$info;
-
- my $idx = -f "$dir/index.html" ? "$dir/index.html" : "$dir/../index.html";
- # Remove .html extension from module name, if there is one
- if ($module =~ /(\w+).html$/) {
- $module = "$1";
- }
- print " <TR>\n";
- print " <TD><A HREF=\"../$path\">$module</A></TD>\n";
- print " <TD><A HREF=\"../$idx\">$application</A></TD>\n";
- print " </TR>\n";
-}
-
-footer();
-
-###########################################################################
-
-sub wanted {
- return unless /\.html$/ and -f $_;
-
- open(FILE,$_) or die "ERROR: Can't open $File::Find::name: $!\n";
- my $line;
-
- while (defined ($line = <FILE>)) {
- if ($line =~ /<!-- refpage -->/) {
- close FILE;
- my $path = $File::Find::name;
- $path =~ s/\.\///; # Remove './' prefix
- my $dir = $File::Find::dir;
- $dir =~ s/\.\///; # Remove './' prefix
- $dir =~ m&([^/]+)/doc/html$&;
- my $application = $1;
- push(@list, [$_,$application,$dir,$path]);
- return;
- }
- }
- close FILE;
-}
-
-
-sub header {
- print <<EOS;
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<!-- This file was generated by the otp_man_index script -->
-<HTML>
-<HEAD>
- <link rel="stylesheet" href="otp_doc.css" type="text/css"/>
- <TITLE>Erlang/OTP Manual Page Index</TITLE>
-</HEAD>
-<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#FF00FF"
- ALINK="#FF0000">
-<CENTER>
-<!-- A HREF="http://www.erlang.org/">
-<img alt="Erlang logo" src="erlang-logo.png"/ >
-</A><BR -->
-<SMALL>
-[<A HREF="index.html">Up</A> |
-<A HREF="http://www.erlang.org/">Erlang</A>]
-</SMALL><BR>
-<P><FONT SIZE="+4">Manual Page Index</FONT><BR>
-</CENTER>
-<CENTER>
-<P>
-<TABLE BORDER=1>
-<TR>
- <TH>Manual Page</TH><TH>Application</TH>
-</TR>
-EOS
-}
-
-sub footer {
- my $year = (localtime)[5] + 1900;
- print <<EOS;
-</TABLE>
-</CENTER>
-<P>
-<CENTER>
-<HR>
-<SMALL>
-Copyright &copy; 1991-$year
-<a href="http://www.ericsson.com/technology/opensource/erlang/">
-Ericsson AB</a>
-</SMALL>
-</CENTER>
-</BODY>
-</HTML>
-EOS
-}