3
my @files = `ls -d *\-*`;
7
# Put in some boilerplate stuff -- Cribbed from the Erlang distribution.
9
print "<html>\n<head>\n";
10
print " <title>Erlang Library Modules Index</title>\n";
11
print " <style type=\"text/css\">\n";
13
print " body { background: white; margin: 3em }\n";
14
print " body { font-family: Verdana, Arial, Helvetica, sans-serif }\n";
15
print " h1 h2 h3 h4 { font-family: Verdana, Arial, Helvetica, sans-serif }\n";
16
print " h1 { font-size: 48 }\n";
17
print " p li { font-family: Verdana, Arial, Helvetica, sans-serif }\n";
21
print "<body bgcolor=white>\n";
22
print "<center><h1>Index of Library Functions</h1></center><hr>\n";
23
print "<table border=0 cellspacing=10 width=\"100%\">\n";
26
foreach $filename (@files) {
27
my($name) = $filename;
28
$name =~ s/[\d\.\-]//g;
29
print STDERR "Incorporating $filename\n";
30
print '<tr><td><strong><a href="' . $filename;
31
print '/doc/html/index.html">' . $name . '</strong></td>';
34
# Get short description
37
my(@info) = `grep "short:" $filename/info`;
38
foreach $line (@info) {
49
print "</body></html>\n";
51
print STDERR "Finished generating index.\n";