#! /usr/bin/perl
if (@ARGV != 1) {
    die "usage: revise_source_html <TXxxxXxxx.xx.html>\n";
}
$f=$ARGV[0];
$src=$f;
$src=~s/.html//;
$class=$f;
$class=~s/.[a-z][a-z].html//;

$ext=$src;
$ext=~s/$class//;
if ( $ext eq ".hh" ) {
    $aext = ".cc";
} else {
    $aext = ".hh";
}
$another="$class$aext";
$anotherlink="$class$aext.html";
$classlink="$class.html";

open( SINPUT, "<$f" );
while ( <SINPUT> ) {
    open( TMP, ">>TMPFILE" );

    if ( /^<TITLE>Enscript Output<\/TITLE>$/ ) {
	print TMP "<TITLE>$src<\/TITLE>\n";
	print TMP "<!--#include file=\"header.html\"-->\n";
    } elsif ( /^<BODY BGCOLOR/ ) {
	print TMP "<BODY>\n";
	print TMP "<!--#include file=\"top.html\"-->\n";
    } elsif ( /^<a NAME=\"top\">$/ ) {
	print TMP "\n";
    } elsif ( /^<a NAME=\"file1\">$/ ) {
	print TMP "\n";
    } elsif ( /^<H1>$src<\/H1>$/ ) {
	print TMP "<TR>\n";
	print TMP " <TD BGCOLOR=#8888FF COLSPAN=7 ALIGN=LEFT VALIGN=TOP>\n";
	print TMP "  <H1>$src<\/H1>\n";
	print TMP " <\/TD>\n";
	print TMP "<\/TR>\n";
	print TMP "<TR>\n";
	print TMP " <TD BGCOLOR=#FFFFAA COLSPAN=7 ALIGN=LEFT VALIGN=TOP>\n";
	print TMP "  <A HREF=\"$classlink\">$class饹β<\/A>\n";
	print TMP " <\/TD>\n";
	print TMP "<\/TR>\n";
	print TMP "<TR>\n";
	print TMP " <TD BGCOLOR=#FFFFAA COLSPAN=7 ALIGN=LEFT VALIGN=TOP>\n";
	print TMP "  <A HREF=\"$anotherlink\">$another<\/A>\n";
	print TMP " <\/TD>\n";
	print TMP "<\/TR>\n";
	print TMP "<!--#include file=\"menu.html\"-->\n";
	print TMP "<TR>\n";
	print TMP " <TD ALIGN=LEFT VALIGN=TOP BGCOLOR=#FFFFFF COLSPAN=7>";
    } elsif ( /^<HR>$/ ) {
	print TMP " <\/TD>\n";
	print TMP "<\/TR>\n";
    } elsif ( /^<ADDRESS>Generated by/ ) {
	print TMP "<TR>\n";
	print TMP " <TD BGCOLOR=#FFFFFF ALIGN=LEFT VALIGN=TOP COLSPAN=7>\n";
	print TMP "  <B>\$Id\$<\/B>\n";
	print TMP "  <BR>\n";
	print TMP "  <B>\$Name\$<\/B>\n";
	print TMP " <\/TD>\n";
	print TMP "<\/TR>\n";
	print TMP "<!--#include file=\"signature.html\"-->\n";
	print TMP "<!--#include file=\"bottom.html\"-->\n";
    } else {
	print TMP $_;
    }

    close( TMP );
}

system( "mv TMPFILE $f" );

close(SINPUT);
1;
