#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\n\n";
print "\<HTML\>\
\<HEAD\>\
\<TITLE\>RFC\ Index\<\/TITLE\>\
\<\/HEAD\>\
\<BODY\>\
\<SCRIPT\ type\=\"text\/javascript\"\ src\=\"\.\.\/pagetop\.js\"\>\<\/SCRIPT\>\
\<B\>Connected\:\ An\ Internet\ Encyclopedia\<\/B\>\
\<BR\>\
\<EM\>RFC\ Index\<\/EM\>\<BR\>\
\<HR\>\<CENTER\>\
\<B\>Up\:\<\/B\>\
\<A\ HREF\=\"\.\.\/index\.htm\"\>Connected\:\ An\ Internet\ Encyclopedia\<\/A\>\<BR\>\
\<B\>Up\:\<\/B\>\
\<A\ HREF\=\"index\.htm\"\>Requests\ For\ Comments\<\/A\>\<BR\>\
\<\/CENTER\>\
\<HR\>\<P\>\
\<H3\>RFC\ Index\<\/H3\>\<P\>\
";
print "\<TITLE\>";
print "RFC\ Index";
print "\<\/TITLE\>";
print "\
\
";
print "\<PRE\>";
print "\
";


chdir("/var/www/html/CIE/RFC");

open(RFC, "<Orig/rfc-index.txt");

while (<RFC>) {
    if (m:^(0*)([1-9][0-9]*) :) {
	if (-d $2) {
	  s:^(0*)([1-9][0-9]*) :<A HREF="$2/index.htm">$1$2</A> :;
	} elsif (-f "Orig/rfc$2.txt") {
	  s:^(0*)([1-9][0-9]*) :<A HREF="Orig/rfc$2.txt">$1$2</A> :;
	}
    }
    print;
}

print "\
";
print "\<\/PRE\>";
print "\
";
print "\<P\>\<HR\>\
\<B\>Connected\:\ An\ Internet\ Encyclopedia\<\/B\>\
\<BR\>\
\<EM\>RFC\ Index\<\/EM\>\
\<\/BODY\>\
\<\/HTML\>\
";