#/usr/bin/perl

open(MYFILE,"rfc2.txt");

print "<HTML><TITLE>Automatic RFC Index</TITLE>\n<BODY>\n";

while($tmp=<MYFILE>){
#	if($tmp =~ /^(.*?) (.*?)\.(.+)/){
	if($tmp =~ /^(\d\d\d\d) (.*?)\.(.+)/){
		print "<a href=\"rfc/rfc".$1.".txt\">*****</a> <b>$2</b> [ $3 ... ]\n<br>";
		}
}

print "</BODY></HTML>";
close(MYFILE);
