per-rfc.pl [plain text]

#!/usr/bin/env perl

#
#   Read in the references, and put into an associative array
#
open FILE, "<refs" || die "Error opening refs: $!\n";
while (<FILE>) {
    chop;
    split;
    
    $refs{$_[1]} = $_[0];
    $defs{$_[0]}{$_[1]}++;
}
close FILE;

#
#  now loop over the input RFC's.
#
foreach $file (@ARGV) {
    $def=$file;
    $def =~ s/\.txt//;

    $attribute = "zzzzz";

    # get the current reference
    $ref = $file;
    $ref =~ s/\..*//g;
    $rfc = $ref;
    $ref = "attributes-$ref";

    open OUTPUT, ">$ref.html" || die "Error creating $ref.html: $!\n";

    #
    #  Print out the HTML header
    #
    print OUTPUT <<EOF;
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<HTML>
<head>
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
   <meta name="GENERATOR" content="Perl">
   <title>$rfc Index of Attributes</title>
</head>
<body>
<h1>$rfc Attribute List</h1>
EOF

  $letter = "@";

  foreach $key (sort keys %{$defs{$def}}) {
    if (substr($key,0,1) ne $letter) {
      print OUTPUT "</UL>\n" if ($letter ne "@");
      $letter = substr($key,0,1);
      print OUTPUT "\n<H3>$letter</H3>\n\n";
      print OUTPUT "<UL>\n";
    }
    
    print OUTPUT "<A HREF=\"$refs{$key}.html#$key\">$key</A><BR />\n";

  }

  print OUTPUT "</UL>\n";
  print OUTPUT "</BODY>\n";
  close OUTPUT;
}