#!/usr/bin/perl

$infile = $ARGV[0];
$outfile = $infile;
$outfile =~ s/html/asp/;

open INFILE, $infile;
open OUTFILE, ">$outfile";

while (<INFILE>)
{
	if (/<h2>(.*?)<\/h2>/)
	{
		$letter = $1;
		goto DONE;
	}
}

die "1";

DONE:

print OUTFILE <<"HEAD";
<%
        \$page_title = \"Marxism Glossary - $letter\";
        \$include_print_link = true;
        include \"/www/newyouth/yfis-head.asp\";
%>
<p><img src=\"/images/glossaryban.gif\" alt=\"Marxism Glossary\" WIDTH=\"211\" HEIGHT=\"18\">
<h2>$letter</h2>

HEAD

while (<INFILE>)
{
	$line = $_;
	print $line;
	if (/marxismglossary/)
	{
		goto DONE2;
	}

	print OUTFILE $line;
}

die "2";

DONE2:

print  OUTFILE <<'FOOT';

<p><a href="/archives/theory/marxismglossary.asp"><small>Back to the Glossary of Marxist Terms</small></a></p>

<%
	include "/www/newyouth/yfis-foot.asp";
%>
FOOT

close OUTFILE;
close INFILE;