#!/usr/bin/perl
$unicode = "yes";
#$debug = "yes";
&printheader();
print "<blockquote>";
$pageno = 1;
while (<>) {
if (/<NEW PAGE>/) {
	$pageno++;
	s/^/<hr noshade size=2><h3 align=center>/;
	if ($debug eq "yes") {
		s/$/ - $pageno<\/h3><hr noshade size=2>/;
	} else {
		s/$/<\/h3><hr noshade size=2>/;
	}
}
#s/^<TAB>/<br>\&nbsp;\&nbsp;\&nbsp\&nbsp;\&nbsp;\&nbsp;\&nbsp\&nbsp;/;
s/^<TAB>/<br><img src=cleardot.gif width=50 height=8>/;
#s/<TAB>/\&nbsp;\&nbsp;\&nbsp\&nbsp;\&nbsp;\&nbsp;\&nbsp\&nbsp;/g;
s/<TAB>/<img src=cleardot.gif width=50 height=8>/g;
s/\&nbsp;/<img src=cleardot.gif width=25 height=8>/g;
s/(<SC>.*?<\/SC>)/<small>\U$1<\/small>/g;
s/^$/<P>/;
&dounicode() if ($unicode eq "yes");
#s/<w1lf>/<w1lf><\!\-\- /g;
#s/<\/w1lf>/ \-\-><\/w1lf>/g;
#s/w1.getter/glrdictquotesp/g;
#s/\[\[[a-z]*\]\]//g;
#s/[\ \.]\(<question>\)//g;
#s/<br> <br> <\!\-\- p\. [0-9]+ \-\-><br> <br>//g;
s/\/cgi\-bin\/sndadictp2/$serverbase\/dsl\/snda4frames.php/g;
s/onMouseOver/target=textwindow onMouseOver/g;
if (/<sense/) {
s/<sense><b>([I,1]<)/ <sense>\&nbsp;\&nbsp;<b>$1/g;
s/<sense><b>([0-9a-zA-Z])/<br><sense>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1/g;
s/<sense>(\([2-9]\))/<br><sense>\&nbsp;\&nbsp;\&nbsp;\&nbsp;$1/g;
s/<sense>(\([0-9][0-9]\))/<br><sense>\&nbsp;\&nbsp;\&nbsp;\&nbsp;$1/g;
s/<sense\/>/<br><sense>\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
$linkno++ if (/<sense n=/);
#print "<BR><B><font color=red>$linkno<\/font></B>\n";
##print "<BR><B><font color=red>$linkno for $&$'<\/font></B>\n";
s/<sense n="([A-Za-z0-9]+)" level="([A-Za-z0-9]+)"> (<pos>.*?<\/pos>) <sense n="([A-Za-z0-9]+)" level="([A-Za-z0-9]+)">/<a name="$linkno">\&nbsp;<\/a><br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> $3 <b>$4\.<\/b> /g;
s/<sense n="([\(\)A-Za-z0-9]+)" level="([A-Za-z0-9]+)" usg="obsol\.">/<a name="$linkno">\&nbsp;<\/a><br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&dagger; <b>$1\.<\/b> /g;
s/<sense n="([\(\)A-Za-z0-9]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">/<a name="$linkno">\&nbsp;<\/a><br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
s/<sense n="([\(\)A-Za-z0-9]+)" level="([A-Za-z0-9]+)">/<a name="$linkno">\&nbsp;<\/a><br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
s/<sense n="([A-Za-z0-9]+)">/<a name="$linkno">\&nbsp;<\/a><br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense level="([A-Za-z0-9]+)">/<a name="$linkno">\&nbsp;<\/a><br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
s/<sense type="([A-Za-z0-9]+)">/<a name="$linkno">\&nbsp;<\/a><br>\&nbsp;\&nbsp;\&nbsp;\&nbsp; /g;
s/<sense level="([A-Za-z0-9]+)">/<a name="$linkno">\&nbsp;<\/a><br>\&nbsp;\&nbsp;\&nbsp;\&nbsp; /g;
####
## Experimental set
####
##s/<sense n="([A-Za-z0-9]+)" level="([A-Za-z0-9]+)"> (<pos>.*?<\/pos>) <sense n="([A-Za-z0-9]+)" level="([A-Za-z0-9]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> $3<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$4\.<\/b> /g;
#s/<sense n="([A-Z]+)" level="([A-Za-z0-9]+)"> (<pos>.*?<\/pos>) <sense n="([0-9]+)" level="([A-Za-z0-9]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> $3<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$4\.<\/b> /g;
##s/<sense n="([\(\)A-Za-z0-9]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense n="([A-Z]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense n="([0-9]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense n="([\(\)0-9]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense n="([A-Za-z0-9]+)" level="([A-Za-z0-9]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense n="([A-Z]+)" level="([A-Za-z0-9]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense n="([0-9]+)" level="([A-Za-z0-9]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense n="(\(\)[0-9]+)" level="([A-Za-z0-9]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense n="([\(\)A-Za-z0-9]+)" level="([A-Za-z0-9]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
##s/<sense n="([A-Za-z0-9]+)">/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
#s/<sense type="([A-Za-z0-9]+)">//g;
#s/<sense level="([A-Za-z0-9]+)">//g;
}
s/<eg>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<eg>/g;
# small cits
#s/<cit (.*)?>/<small><cit $1>/g;
#s/<cit>/<small><cit>/g;
#s/<\/cit>/<\/cit><\/small>/g;
# non-small cits
s/<cit n=(.*)?>/<cit $1>/g;
s/<cit "(.*)?">/<cit $1><font color="#6600ff"><b>$1<\/b><\/font>/g;
s/<entry.*source="DOST">/<br><entry source=DOST><font color=white><b style="background: #6600ff;">\&nbsp;DSL&nbsp;-&nbsp;DOST\&nbsp;<\/b><\/font>&nbsp;\&nbsp;/g unless ($titleframe eq "yes");
s/<entry>/<br><entry><font color=white><b style="background: #6600ff;">\&nbsp;DSL&nbsp;-&nbsp;$dlabel\&nbsp;<\/b><\/font>&nbsp;\&nbsp;/g unless ($titleframe eq "yes");
#s/<entry>/<p><img src=\/redarrowright.gif height=8 width=8> <entry>/;
#s/<\/entry>/<img src=\/redarrowleft.gif height=8 width=8><\/entry>/;
s/<\/entry>/<\/entry>\n<br>\n<br><hr size=2 noshade color=#6600ff>/;
#s/<hg>/<big>/;
#s/<\/hg>/<\/big>/;
s/<ref target="">/<small><font color="\#990099"><ref target="">/g;
s/<ref>/<small><font color="\#990099"><ref>/g;
s/<\/ref>/<\/ref><\/font><\/small>/g;
s/<pron>/<font color=black><b>/g unless ($unicode eq "yes");
s/<\/pron>/<\/b><\/font>/g unless ($unicode eq "yes");
#s/<note>/<br><note>/g;
if (/<form/) {
	if ($entry == 1 && $titleframe eq "yes") {
		$hwtitle = $_;
		chomp($hwtitle);
		$hwpos = $hwtitle;
		$hwtitle =~ s/^.*?>([A-Z\-\ ]*)<\/form>.*$/$1/;
		$hwtitle =~ s/<[a-z\/]*?>//g;
		$hwtitle =~ s/\&aacu;/\&aacute;/g;
		$hwtitle =~ s/\&eacu;/\&eacute;/g;
		$hwtitle =~ s/\&oacu;/\&oacute;/g;
		$hwtitle =~ s/\&uacu;/\&uacute;/g;
		$hwtitle =~ s/\&yacu;/\&yacute;/g;
		if ($hwpos =~ /<pos>/) {
			$hwpos =~ s/^.*?>([a-z\.]*)<\/pos>.*$/$1/;
		} else {
			$hwpos =~ s/^.*?>([a-z\.]*)<\/i>.*$/$1/;
		}
		$hwpos = "<i>$hwpos</i>" if ($hwpos ne "");
		$hwpos = "<i></i>" if ($hwpos eq "");
		&dotitlebar();
		last;
		exit;
	}
$linkno++ if (/>[A-Z]+<\/form>/);
#print "<BR><B><font color=red>$linkno<\/font></B>\n";
s/<form usg="obs">/<font color=#6600ff><b>\&dagger; /g;
s/<form usg="obsol">/<font color=#6600ff><b>\&Dagger; /g;
s/<form usg="nonce">/<font color=#6600ff><b>\&\#182; /g;
s/<form type="abbr">/<font color=#6600ff><b>/g;
s/<form type="variant">/<font color=#6600ff><b>/g;
s/<form>/<font color=#6600ff><b>/g;
s/<\/form>/<\/b><\/font>/g;
s/(<font color=#6600ff><b>)([A-Z]+)(<\/b><\/font>)/<a name="$linkno">$1$2$3<\/a>/;
}
if (/<trform/) {
$linkno++;
#print "<BR><B><font color=red>$linkno<\/font></B>\n";
s/<trform>/<a name="$linkno">\&nbsp;<\/a><font color=#6600ff><b>/;
s/<trform>/<font color=#6600ff><b>/g;
s/<\/trform>/<\/b><\/font>/g;
}
s/<date>/<b>/g;
s/<\/date>/<\/b>/g;
s/<sc>/<small>/g;
s/<\/sc>/<\/small>/g;
s/<\/l><l>/<\/l> \/ <l>/g;
#s/<geo>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<geo><font color=#6600ff>/g;
#s/<geo>/<geo><font color=#6600ff><b style="background: lightgrey;">/g;
s/<cno>(\([0-9]*\))<\/cno> <cit><geo>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<font color=#aa0000>$1\&nbsp;<b>\*/g;
s/<cit><geo>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<geo><font color=#aa0000><b>\*/g;
s/<cit><q>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
s/<cit>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
s/<q>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<qt>/g;
s/<\/q>/<\/qt>/g;
s/<\/geo>/<\/b><\/font><\/geo>/g;
s/<author>/<author><font color=blue>/g;
s/<\/author>/<\/font><\/author>/g;
s/<pos>/<i>/g;
s/<\/pos>/<\/i>/g;
# grab bad DOST dates
s/([0-9][0-9][0-9][0-9]\-[0-9][0-9]) <title>/<b>$1<\/b> <font color=blue><i>/g;
s/([0-9][0-9][0-9][0-9]\-[0-9]) <title>/<b>$1<\/b> <font color=blue><i>/g;
s/([0-9][0-9][0-9][0-9]) <title>/<b>$1<\/b> <font color=blue><i>/g;
s/<title>/<font color=blue><i>/g;
s/<\/title>/<\/i><\/font>/g;
#s/<sps>/<\!\-\- /g;
#s/<\/sps>/ \-\->/g;
s/<sup>/<sup><font size=-2>/g;
s/<\/sup>/<\/font><\/sup>/g;
s/<su>/<sup><font size=-2>/g;
s/<\/su>/<\/font><\/sup>/g;
#s/<wpr>/<font color=black>\\/g;
#s/<\/wpr>/\\<\/font>/g;
#s/<et>/\[/g;
#s/<\/et>/\]/g;
#s/<syn>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
#s/<b>syn<\/b>/<b>SYN<\/b>/g;
#s/<sub>/\&nbsp;\&nbsp;<b>\&\#45;<\/b>\&nbsp;\&nbsp;/g;
#s/<\/sub>//g;
s/\&hellip\;/.../g;
s/\&aacu\;/\&aacute;/g;
s/\&eacu\;/\&eacute;/g;
s/\&oacu\;/\&oacute;/g;
s/\&uacu\;/\&uacute;/g;
s/\&yacu\;/\&yacute;/g;
s/\&agra\;/\&agrave;/g;
s/\&egra\;/\&egrave;/g;
s/\&ogra\;/\&ograve;/g;
s/\&ugra\;/\&ugrave;/g;
s/\&Ae\;/\&AElig;/g;
s/\&ae\;/\&aelig;/g;
s/\&dd\;/.../g;
s/\&ast\;/\*/g;
#s/\&mdash\;/\&\#45;/g;
#s/\&em\;/\&\#45;/g;
s/\&mdash\;/\-\-\-/g;
s/\&em\;/\-\-\-/g;
s/\&dash\;/\-/g;
s/\&ndash\;/\-/g;
s/\&ortail\;/<font size=-1><b>Q<\/b><\/font>/g;
s/\&orhook\;/<font size=-1>Q<\/font>/g; # curlier, but usu in ital...
s/<etym>/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<etym>/g;
s/\]\]/\]/g;
s/\&nbsp\./\&nbsp;/g;
s/\&th\./\&thorn;/g;
#s/\&th\./<u>th<\/u>/g;
#s/\&thorn;/<u>th<\/u>/g;
s/\&ng\./<u>ng<\/u>/g;
s/\&mac\./<mac>/g;
s/\&([A-Za-z])macr\;/<mac>$1<\/mac>/g;
s/\&([A-Za-z])mac\;/<mac>$1<\/mac>/g;
s/\&dotbl\./<dotbl>/g;
s/\&dotab\./<dotab>/g;
s/\&frown\./<frown>/g;
s/\&asper\./<asper>/g;
s/\&lenis\./<alenis>/g;
s/\&hw\./\~/g;
#s/\&prime\;/\&\#180;/g;
s/\&prime\;/<img src=$serverbase\/dsl\/IPA\/ipa.quot.gif border=0 alt="'">/g;
s/\&turnalpha\;/<img src=$serverbase\/dsl\/IPA\/ipa.turnA.gif border=0 alt=a>/g;
s/\&yogh\;/<img src=$serverbase\/dsl\/IPA\/ipa.yGH.gif border=0 alt=3>/g;
s/\&ygh\;/<img src=$serverbase\/dsl\/IPA\/ipa.yGH.gif border=0 alt=3>/g;
s/\&Yogh\;/<img src=$serverbase\/dsl\/IPA\/ipa.YGH.gif border=0 alt=3>/g;
s/\&Ygh\;/<img src=$serverbase\/dsl\/IPA\/ipa.YGH.gif border=0 alt=3>/g;
s/\&([A-Za-z]*gr)\;/<img src=$serverbase\/dsl\/greek\/$1.gif align=top border=0 alt=$1>/g;
s/=\/IPA/=$serverbase\/dsl\/IPA/g;
s/=\/greek/=$serverbase\/dsl\/greek/g;
s/=\/GREEK/=$serverbase\/dsl\/GREEK/g;
#s/\-/\&\#173;/g;
#s/cgi\&173;/cgi\-/g;
## Special characters for Mac or Win browsers
#s/\&Dagger\;/<img src=$serverbase\/GREEK\/dagger2.gif border=0 alt=+>/g;
s/\&<SMALL>AMP<\/SMALL>;/\&amp;/g;
s/\&<SMALL>APOS<\/SMALL>;/\&apos;/g;
s/\&<SMALL>LDQUO<\/SMALL>;/\&ldquo;/g;
s/\&<SMALL>LSQUO<\/SMALL>;/\&lsquo;/g;
s/\&<SMALL>RDQUO<\/SMALL>;/\&rdquo;/g;
s/\&<SMALL>RSQUO<\/SMALL>;/\&rsquo;/g;
s/\&<SMALL>YGH<\/SMALL>;/<img src=$serverbase\/dsl\/IPA\/ipa.YGHlblue.gif border=0 alt=3>/g;
s/\&<SMALL>SCI<\/SMALL>;/\&sci;/g;
if ($browseros =~ /Win/) {
	s/\&sci\;/<small><small><b>I<\/b><\/small><\/small>/g;
	s/\&Dagger;/\&\#134;/g;
	s/\&dagger;/\&\#134;/g;
#	s/\&schwa\./<font face=symbol size=-1>\&\#182;<\/font>/g;
	s/\&\#96;/\&\#145\;/g;
	s/\&\#39;/\&\#146\;/g;
	s/\&\#45;/\&\#150\;/g;
	s/\&oe\./\&\#156;/g;
	s/\&Oe\./\&\#140;/g;
	s/\&ldquo\;/\&\#145;\&\#145;/g;
	s/\&lsquo\;/\&\#145;/g;
	s/\&rdquo\;/\&\#146;\&\#146;/g;
	s/\&rsquo\;/\&\#146;/g;
	s/\&apos\;/\&\#146;/g;
}
elsif ($browseros =~ /Macintosh/) {
	s/\&sci\;/<small><small>I<\/small><\/small>/g;
	s/\&Dagger;/\&\#134;/g;
	s/\&dagger;/\&\#134;/g;
#	s/\&schwa\./<font face=symbol size=-1>\&\#182;<\/font>/g;
	s/\&\#96;/\&\#145\;/g;
	s/\&\#39;/\&\#146\;/g;
	s/\&\#45;/\&\#150\;/g;
	s/\&\#173;/\-/g;
	s/\&oe\./\&\#156;/g;
	s/\&Oe\./\&\#140;/g;
	s/\&thorn;/<thorn>th<\/thorn>/g;
	s/\&THORN;/<THORN>Th<\/THORN>/g;
	s/\&eth;/<eth>th<\/eth>/g;
	s/\&ETH;/<ETH>Th<\/ETH>/g;
	s/\&ldquo\;/\&\#145;\&\#145;/g;
	s/\&lsquo\;/\&\#145;/g;
	s/\&rdquo\;/\&\#146;\&\#146;/g;
	s/\&rsquo\;/\&\#146;/g;
	s/\&apos\;/\&\#146;/g;
} else {
	s/\&sci\;/<small><small>I<\/small><\/small>/g;
	s/\&Dagger\;/<img src=$serverbase\/GREEK\/ddagger2.gif border=0 alt=+>/g;
	s/\&dagger\;/<img src=$serverbase\/GREEK\/dagger2.gif border=0 alt=+>/g;
	s/\&oe\./<oe>oe<\/oe>/g;
	s/\&Oe\./<Oe>OE<\/Oe>/g;
#	s/\&schwa\./<font size=-1><b>\@<\/b><\/font>/g;
	s/\&ldquo\;/``/g;
	s/\&lsquo\;/`/g;
	s/\&rdquo\;/''/g;
	s/\&rsquo\;/'/g;
	s/\&apos\;/'/g;
}
s/Not listed, breaking/<br><b>Sorry, no matches found for "$qquery"<\/b>/;
## Try to start at the first hit printed red if the result of a test search
if ($fhit ne "") {
$fhit =~ s/ AND /\\b\|\\b/g;
$fhit =~ s/ OR /\\b\|\\b/g;
#$fhit =~ s/+AND+/\\b\|\\b/g;
#$fhit =~ s/+OR+/\\b\|\\b/g;
#$fhit =~ s/ /\\b\|\\b/g; # test this
#$fhit =~ s/+/\\b\|\\b/g; # test this
#$fhit =~ s/\*/\.\*/; # test this
#print "fhit is '$fhit'\n";
#	s/($fhit)/<a name="fhit"><font color=red>$1<\/font><\/a>/i;
	if (/\b$fhit\b/i) {
#		s/^/<a name="fhit"><font color=red>===\&gt; <\/font><\/a>/;
#		s/^/<br><a name="fhit"><img src=$serverbase\/dsl\/bitem00.gif border=0><font color=#6600ff><b>Search for "$fhit"<\/b><\/font><img src=\/sndatest\/bitem00.gif border=0> <\/a><br>/;
#		s/^/<a name="fhit"><img src=$serverbase\/dsl\/bitem00.gif border=0><img src=$serverbase\/dsl\/bitem00.gif border=0> <\/a>/;
		s/^/<a name="fhit">\&nbsp;<\/a>/;
#		s/\b($fhit)\b/<font color=red><b>$1<\/b><\/font>/gi;
#		s/\b($fhit)\b/<font color=white><b style="background: \#6600ff;">\&nbsp;$1\&nbsp;<\/b><\/font>/gi;
		s/\b($fhit)\b/<font color=white><b style="background: \#aa0000;">\&nbsp;$1\&nbsp;<\/b><\/font>/gi unless (/=$fhit/i || $dregion eq "form");
	}
}
print;
}

close(TARGFILE);
print "</blockquote>";

sub printheader
{
#printf("Content-type: text/html\n\n");
#print "<style><!-- TD { font-family: Times,Palatino,Garamond,arial,helvetica; font-weight: bold; } --></style>\n";
#print "<style><!-- TD { font-family: \"arial unicode MS, Lucida Sans Unicode\"; font-size: 100%; } --></style>\n";
#print "<style><!-- SMALL { font-family: Times,Palatino,Garamond,arial,helvetica; font-weight: bold; } --></style>\n";
#print "<style><!-- A { text-decoration: none; font-family: Times,Palatino,Garamond,arial,helvetica; font-weight: bold; } --></style>\n";
print <<ENDSTYLES;
<html>
<head>
<style>
<!--
TD { font: "arial unicode MS, Lucida Sans Unicode"; font-size: 110%; }
SMALL { font: "arial unicode MS, Lucida Sans Unicode"; font-size: 110%; }
A { text-decoration: none; font-family: Times,Palatino,Garamond,arial,helvetica; font-weight: bold; } 
-->
</style>
</head>
ENDSTYLES
#P { font: normal small-caps 120%/120% times }
if ($headerframe eq "yes") {
#	print "<style><!-- A:hover { color: #ffffff; background-color: #6600ff; } --></style>\n";
} else {
#	print "<style><!-- A:hover { background-color: #cccccc; } --></style>\n";
}
#printf("<body bgcolor=\"#ffffff\" text=\"#000000\" link=\"#6600ff\" vlink=\"#6600ff\">");
if ($unicode eq "yes") {
	printf("<blockquote>\n<font face=\"arial unicode MS, Lucida Sans Unicode\" size=4>\n<div align=justify>\n") unless ($headerframe eq "yes");
#	printf("<blockquote>\n<font face=\"arial unicode MS\" size=4>\n<div align=justify>\n") unless ($headerframe eq "yes");
}
else {
	printf("<blockquote>\n<font size=4>\n<div align=justify>\n") unless ($headerframe eq "yes");
}
printf("<table width=85% align=center><tr><td>\n<div align=left>\n") if ($headerframe eq "yes" && $searchtype ne "full");
}

sub printmatches
{
print "<table width=90% colspan=3><tr>";
if ($totalhits > $printset) {
        $pfset = $fset;
        if ($pfset > $totalhits) {
                $pfset = $totalhits;
        }
        print "\n<th align=left colspan=3>";
        print "Displaying $sset - $pfset of $totalhits entries</th>\n";       
	print "</tr><tr>\n";
	if ($sset > $printset) {
                $psset = ($sset - $printset);
                $pfset = ($fset - $printset);
		print "\n<th align=left><a href=$serverbase/dsl/getent4.php?$thisurl\&sset=$psset\&fset=$pfset\&thisi=$pthisi\&pthisi=$pthisi\&pset=yes&searchtype=full&dregion=$dregion&headerframe=yes>[ &lt;&lt; Prev ]</a> ";
	} else {
		print "\n<th align=left>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	}
}
if ($totalhits > $fset) {
         $nsset = ($fset + 1);
         $nfset = ($fset + $printset);
         if ($pthis eq "") {
                  $pthisi = $thisi;
          }
          print " <a href=$serverbase/dsl/getent4.php?$thisurl\&sset=$nsset\&fset=$nfset\&thisi=$thisi\&pthisi=$pthisi&searchtype=full&dregion=$dregion&headerframe=yes><nobr>[ Next &gt;&gt; ]</nobr></a></th>\n";
} else {
	if ($totalhits == 1) {
	        print "<th align=left>Displaying $totalhits entry</th>\n";
	}
        elsif ($totalhits == 0) {
                print "<th align=left>Sorry no entries were found</th>";
        }
}
print "</tr></table>\n";
}

sub doskel
{
$linkno = 0;
#print "<br><entry><a href=$serverbase/dsl/$pdfurl target=textwindow><font color=white><b style=\"background: #6600ff;\">&nbsp;PDF&nbsp;View&nbsp;</b></font></a>&nbsp;&nbsp;<br><br>\n";
while (<TARGFILE>) {
if (/<entry/) {
print "<br><entry><font color=white><b style=\"background: #6600ff;\">&nbsp;Sense&nbsp;Map&nbsp;</b></font>&nbsp;&nbsp;<br><br>\n";
}
if (/<sense/) {
$linkno++ if (/<sense n=/);
#print "<BR><B><font color=red>$linkno<\/font></B>\n";
#s/<sense n="([A-Za-z0-9]+)" level="([A-Za-z0-9]+)"> (<pos>.*?<\/pos>) <sense n="([A-Za-z0-9]+)" level="([A-Za-z0-9]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b> $3<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$4\.<\/b><\/a> /g;
s/<sense n="([A-Z]+)" level="([A-Za-z0-9]+)"> (<pos>.*?<\/pos>) <sense n="([0-9]+)" level="([A-Za-z0-9]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b> $3<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$4\.<\/b><\/a> /g;
#s/<sense n="([\(\)A-Za-z0-9]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
s/<sense n="([A-Z]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b><\/a> /g;
s/<sense n="([0-9]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b><\/a> /g;
s/<sense n="([\(\)0-9]+)" level="([A-Za-z0-9]+)" usg="([A-Za-z]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b><\/a> /g;
#s/<sense n="([A-Za-z0-9]+)" level="([A-Za-z0-9]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<b>$1\.<\/b> /g;
s/<sense n="([A-Z]+)" level="([A-Za-z0-9]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b><\/a> /g;
s/<sense n="([0-9]+)" level="([A-Za-z0-9]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b><\/a> /g;
s/<sense n="(\(\)[0-9]+)" level="([A-Za-z0-9]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b><\/a> /g;
s/<sense n="([\(\)A-Za-z0-9]+)" level="([A-Za-z0-9]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b><\/a> /g;
s/<sense n="([A-Za-z0-9]+)">.*$/<br>\&nbsp;\&nbsp;\&nbsp;\&nbsp;<a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow><b>$1\.<\/b><\/a> /g;
s/<sense type="([A-Za-z0-9]+)">.*$//g;
s/<sense level="([A-Za-z0-9]+)">.*$//g;
s/<pos>/<pos><i>/g;
s/<\/pos>/<\/i><\/pos>/g;
print;
}
if (/<form/) {
$linkno++;
#print "<BR><B><font color=red>$linkno<\/font></B>\n";
s/<form usg="obs">/<font color=#6600ff><b>\&dagger; <a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow>/g;
s/<form usg="obsol">/<font color=#6600ff><b>\&Dagger; <a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow>/g;
s/<form usg="nonce">/<font color=#6600ff><b>\&\#182; <a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow>/g;
s/<form type="abbr">/<font color=#6600ff><b><a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow>/g;
s/<form>/<font color=#6600ff><b><a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow>/g;
s/<\/form>.*?(<pos>.*?<\/pos>).*$/<\/b><\/font> <b><i>$1<\/i><\/b><\/a>/g;
#s/<\/form>.*$/<\/b><\/font>/g;
print;
}
if (/<trform/) {
$linkno++;
#print "<BR><B><font color=red>$linkno<\/font></B>\n";
s/<trform>/<font color=#6600ff><b><a href=$serverbase\/dsl\/$hwurl\#$linkno target=bwindow>/g;
s/<\/trform>.*?(<pos>.*<\/pos>).*$/<\/b><\/font> <b><i>$1<\/i><\/b><\/a>/g;
#s/<\/trform>.*$/<\/b><\/font>/g;
print;
}
if (/<\/entry/) {
print "\n<br>\n<br><hr size=2 noshade color=#6600ff>\n";
}
}
close(TARGFILE);
}

sub dopdf
{
if ($startset ne "") {
	 system("$SNDPOKE $plen $startset | $DSLIPA | $HTLENIS -f \"$dictcquery\" > /usr/tmp/footmp.tex");
} else {
	 system("$SNDGREP \"^$dictcquery\" | $DSLIPA | $HTLENIS -f \"$dictcquery\" > /usr/tmp/footmp.tex");
}
        system("cd /usr/tmp;/bin/chmod 644 /usr/tmp/footmp.tex");
        system("cd /usr/tmp;$PDFLATEX /usr/tmp/footmp.tex 1>/dev/null");
        system("cd /usr/tmp;$PDFLATEX /usr/tmp/footmp.tex 1>/dev/null");
        system("cd /usr/tmp;/bin/chmod 644 /usr/tmp/footmp.pdf");
         unless (open(PDFFILE, "/usr/tmp/footmp.pdf")) {
                die ("could not open pdf file\n");
         }
#         print "Content-type: application/pdf\n\n";
         while (<PDFFILE>) {
                print;
         }
         close(PDFFILE);
#        system("/bin/rm -f /usr/tmp/footmp.*");

}

sub dodjvu
{
#$HTLENIS = "/home/triggs/bin/dsllatex2.pl";
if ($startset ne "") {
	 system("$SNDPOKE $plen $startset | $DSLIPA | $HTLENIS -f \"$dictcquery\" -t DJVU > /usr/tmp/footmp.tex");
#	 system("$SNDPOKE $plen $startset | $HTLENIS -f \"$dictcquery\" -t DJVU > /usr/tmp/footmp.tex");
} else {
	 system("$SNDGREP \"^$dictcquery\" | $DSLIPA | $HTLENIS -f \"$dictcquery\" -t DJVU > /usr/tmp/footmp.tex");
#	 system("$SNDGREP \"^$dictcquery\" | $HTLENIS -f \"$dictcquery\" -t DJVU > /usr/tmp/footmp.tex");
}
        system("cd /usr/tmp;/bin/chmod 644 /usr/tmp/footmp.tex");
        system("cd /usr/tmp;$PDFLATEX /usr/tmp/footmp.tex 1>/dev/null");
#        system("cd /usr/tmp;$LATEX /usr/tmp/footmp.tex 1>/dev/null");
#        system("cd /usr/tmp;$DVIPS -f /usr/tmp/footmp.dvi -o /usr/tmp/footmp.ps 1>/dev/null");
#        system("cd /usr/tmp;$DJVUDIGITAL footmp.ps footmp.djvu 1>/dev/null");
        system("cd /usr/tmp;$DJVUDIGITAL footmp.pdf footmp.djvu 1>/dev/null");
#        system("cd /usr/tmp;$RTK footmp.djvu ocr-footmp.djvu 1>/dev/null");
#        system("cd /usr/tmp;/bin/chmod 644 /usr/tmp/ocr-footmp.djvu");
         unless (open(DJVUFILE, "/usr/tmp/footmp.djvu")) {
                die ("could not open djvu file\n");
         }
#         print "Content-type: image/x.djvu\n\n";
         while (<DJVUFILE>) {
                print;
         }
         close(DJVUFILE);
#        system("/bin/rm -f /usr/tmp/footmp.*");

}

sub doskel2 
{
	$SORT = "/bin/sort"; 
	$UNIQ = "/usr/bin/uniq";
#	$INDEX = "/home/triggs/global-language.com/html/dsl/SND/dsl_snd.ind";
	if ($dtext eq "snd") {
		$INDEX = "/home/triggs/global-language.com/html/dsl/SND3/DSLSND.ind";
	}
	elsif ($dtext eq "dost") {
		$INDEX = "/home/triggs/global-language.com/html/dsl/DOST2/DSLDOST.ind";
	}
	elsif ($dtext eq "both") {
		$INDEX = "/home/triggs/global-language.com/html/dsl/DSL.ind";
	}
#	$CGREPROC = "/home/triggs/bin/sndctextgrep -10 \"^$dictcquery\\b\" $INDEX | $SORT | $UNIQ";
	$CGREPROC = "/home/triggs/bin/sndctextgrep -10 \"^$dictcquery\\b\" $INDEX";
	unless (open(CFILE, "$CGREPROC |")) {
		die ("could not open context file\n");
	}
	$ctextcount = 0;
	while (<CFILE>) {
		next if (/^$/);
		$ctextcount++;
		($hw,$pos,$elen,$sbyte,$ebyte,$cdtext) = split /,/, $_;
		$cdtext =~ tr/A-Z/a-z/;
#		$hw =~ s/\_/ /g;
		($nhw = $hw) =~ s/ /+/g;
		if ($ctextcount == 1 && $nhw ne "") {
			print "<a href=\"$serverbase/dsl/snda4frames.php?dtext=$dtext&query=$nhw\" target=textwindow>Browse Up</a><hr size=1 noshade>";
		}
		print "<a href=\"$serverbase/dsl/getent4.php?plen=$elen&startset=$sbyte&dtext=$cdtext&query=$nhw\" target=bwindow>";
		if (/\b$dictcquery\b/i) {
			print "<font color=white><b style=\"background: #6600ff;\">&nbsp;$hw&nbsp;</b></font>";
			print "<font color=white><b style=\"background: #6600ff;\">&nbsp;<i>$pos</i>&nbsp;</b></font>" unless ($pos eq "");
		} else {
			print "<b>$hw</b>";
			print "<b>, <i>$pos</i></b>" unless ($pos eq "");
		}
		print "</a>";
		print "<br>\n";
	}
	if ($nhw ne "") {
		print "<hr size=1 noshade><a href=\"$serverbase/dsl/snda4frames.php?dtext=$dtext&query=$nhw\" target=textwindow>Browse Down</a>";
	}
	close(CFILE);
}

sub dotitlebar
{
print "<br><font color=white><b style=\"background: #aa0000;\">&nbsp;$hwtitle&nbsp;$hwpos&nbsp;</b></font>&nbsp;&nbsp;";
print "<a href=$serverbase/dsl/$pdfurl target=printwindow><font color=white><b style=\"background: #6600ff;\">&nbsp;PDF&nbsp;View&nbsp;</b></font></a>&nbsp;&nbsp;\n" unless ($headerframe eq "yes");
print "<a href=$serverbase/dsl/$djvuurl target=printwindow><font color=white><b style=\"background: #6600ff;\">&nbsp;DjVu&nbsp;View&nbsp;</b></font></a>&nbsp;&nbsp;<br><br>\n" unless ($headerframe eq "yes");
}

sub dounicode
{
s/&Aacute;/\&#193;/g;
s/&aacute;/\&#225;/g;
s/&Abreve;/\&#x102;/g;
s/&abreve;/\&#x103;/g;
s/&Acirc;/\&#194;/g;
s/&acirc;/\&#226;/g;
s/&AElig;/\&#198;/g;
s/&aelig;/\&#230;/g;
s/&Agr;/\&#913;/g;
s/&agr;/\&#945;/g;
s/&Agrave;/\&#192;/g;
s/&agrave;/\&#224;/g;
s/&alpha;/\&#x251;/g;
s/&Amacr;/\&#x100;/g;
s/&amacr;/\&#x101;/g;
s/&Aogon;/\&#x104;/g;
s/&aogon;/\&#x105;/g;
s/&apos;/\&#x2019;/g;
s/&Aring;/\&#197;/g;
s/&aring;/\&#229;/g;
s/&Atilde;/\&#195;/g;
s/&atilde;/\&#227;/g;
s/&Auml;/\&#196;/g;
s/&auml;/\&#228;/g;
s/&Bgr;/\&#914;/g;
s/&bgr;/\&#946;/g;
s/&Cacute;/\&#x106;/g;
s/&cacute;/\&#x107;/g;
s/&Ccaron;/\&#x10C;/g;
s/&ccaron;/\&#x10D;/g;
s/&Ccedil;/\&#199;/g;
s/&ccedil;/\&#231;/g;
s/&cd\./\&#231;/g;
s/&Ccirc;/\&#x108;/g;
s/&ccirc;/\&#x109;/g;
s/&Cdot;/\&#x10A;/g;
s/&cdot;/\&#x10B;/g;
s/&dagger;/\&#x2020;/g;
s/&Dagger;/\&#x2021;/g;
s/&dash;/\&#x2010;/g;
s/&Dcaron;/\&#x10E;/g;
s/&dcaron;/\&#x10F;/g;
s/&Dgr;/\&#916;/g;
s/&dgr;/\&#948;/g;
s/&Dstrok;/\&#x110;/g;
s/&dstrok;/\&#x111;/g;
s/&Eacute;/\&#201;/g;
s/&eacute;/\&#233;/g;
s/&ebreve;/e\&#774;/g;
s/&Ecaron;/\&#x11A;/g;
s/&ecaron;/\&#x11B;/g;
s/&Ecirc;/\&#202;/g;
s/&ecirc;/\&#234;/g;
s/&Edot;/\&#x116;/g;
s/&edot;/\&#x117;/g;
s/&EEgr;/\&#919;/g;
s/&eegr;/\&#951;/g;
s/&Egr;/\&#917;/g;
s/&egr;/\&#949;/g;
s/&Egrave;/\&#200;/g;
s/&egrave;/\&#232;/g;
s/&Emacr;/\&#x112;/g;
s/&emacr;/\&#x113;/g;
s/&ENG;/\&#x14A;/g;
s/&eng;/\&#x14B;/g;
s/&Eogon;/\&#x118;/g;
s/&eogon;/\&#x119;/g;
s/&epsilon;/\&#x25B;/g;
s/&erhooktest;/\&#x119;/g;
s/&esh;/\&#x283;/g;
s/&sh\./\&#x283;/g;
s/&ETH;/\&#208;/g;
s/&eth;/\&#240;/g;
s/&Euml;/\&#203;/g;
s/&euml;/\&#235;/g;
s/&ezh;/\&#x292;/g;
s/&zh\./\&#x292;/g;
s/&yogh;/\&#x292;/g;   # yuck kludge, but... it doesn't look that bad... !
s/&oeyogh;/\&#x292;/g;   # yuck kludge, but... it doesn't look that bad... !
s/&Yogh;/<font size=+1>\&#x292;<\/font>/g;
s/&OEYogh;/<font size=+1>\&#x292;<\/font>/g;
s/\&<SMALL>YOGH<\/SMALL>;/<font size=+1>\&#x292;<\/font>/g;
s/&amp;<SMALL>YOGH<\/SMALL>;/<font size=+1>\&#x292;<\/font>/g;
s/\&<small>YOGH<\/small>;/<font size=+1>\&#x292;<\/font>/g;
s/&frac12;/\&#189;/g;
s/&frac13;/\&#x2153;/g;
s/&frac14;/\&#188;/g;
s/&frac15;/\&#x2155;/g;
s/&frac16;/\&#x2159;/g;
s/&frac18;/\&#x215B;/g;
s/&frac23;/\&#x2154;/g;
s/&frac25;/\&#x2156;/g;
s/&frac34;/\&#190;/g;
s/&frac35;/\&#x2157;/g;
s/&frac38;/\&#x215C;/g;
s/&frac45;/\&#x2158;/g;
s/&frac56;/\&#x215a;/g;
s/&frac58;/\&#x215D;/g;
s/&frac78;/\&#x215E;/g;
s/&gacute;/\&#x1F5;/g;
s/&Gbreve;/\&#x11E;/g;
s/&gbreve;/\&#x11F;/g;
s/&Gcedil;/\&#x122;/g;
s/&Gcirc;/\&#x11C;/g;
s/&gcirc;/\&#x11D;/g;
s/&Gdot;/\&#x120;/g;
s/&gdot;/\&#x121;/g;
s/&Ggr;/\&#915;/g;
s/&ggr;/\&#947;/g;
s/&glottal;/\&#x294;/g;
s/&gl\./\&#x294;/g;
s/&Hcirc;/\&#x124;/g;
s/&hcirc;/\&#x125;/g;
s/&hellip;/\&#x2026;/g;
s/&Hstrok;/\&#x126;/g;
s/&hstrok;/\&#x127;/g;
s/&Iacute;/\&#205;/g;
s/&iacute;/\&#237;/g;
s/&Icirc;/\&#206;/g;
s/&icirc;/\&#238;/g;
s/&Idot;/\&#x130;/g;
s/&Igr;/\&#921;/g;
s/&igr;/\&#953;/g;
s/&Igrave;/\&#204;/g;
s/&igrave;/\&#236;/g;
s/&IJlig;/\&#x132;/g;
s/&ijlig;/\&#x133;/g;
s/&Imacr;/\&#x12A;/g;
s/&imacr;/\&#x12B;/g;
s/&inodot;/\&#x131;/g;
s/&Iogon;/\&#x12E;/g;
s/&iogon;/\&#x12F;/g;
s/&Itilde;/\&#x128;/g;
s/&itilde;/\&#x129;/g;
s/&Iuml;/\&#207;/g;
s/&iuml;/\&#239;/g;
s/&Jcirc;/\&#x134;/g;
s/&jcirc;/\&#x135;/g;
s/&Kcedil;/\&#x136;/g;
s/&kcedil;/\&#x137;/g;
s/&Kgr;/\&#922;/g;
s/&kgr;/\&#954;/g;
s/&kgreen;/\&#x138;/g;
s/&KHgr;/\&#935;/g;
s/&khgr;/\&#967;/g;
s/&Lacute;/\&#x139;/g;
s/&lacute;/\&#x13A;/g;
s/&Lcaron;/\&#x13D;/g;
s/&lcaron;/\&#x13E;/g;
s/&Lcedil;/\&#x13B;/g;
s/&lcedil;/\&#x13C;/g;
s/&ldquo;/\&#x201C;/g;
s/&Lgr;/\&#923;/g;
s/&lgr;/\&#955;/g;
s/&Lmidot;/\&#x139;/g;
s/&lmidot;/\&#x140;/g;
s/&lsquo;/\&#x2018;/g;
s/&Lstrok;/\&#x141;/g;
s/&lstrok;/\&#x142;/g;
s/&mdash;/\&#x2014;/g;
s/&Mgr;/\&#924;/g;
s/&mgr;/\&#956;/g;
s/&Nacute;/\&#x143;/g;
s/&nacute;/\&#x144;/g;
s/&napos;/\&#x149;/g;
s/&Ncaron;/\&#x147;/g;
s/&ncaron;/\&#x148;/g;
s/&Ncedil;/\&#x145;/g;
s/&ncedil;/\&#x146;/g;
s/&ndash;/\&#x2013;/g;
s/&Ngr;/\&#925;/g;
s/&ngr;/\&#957;/g;
s/&nlhook;/\&#x272;/g;
s/&Ntilde;/\&#209;/g;
s/&ntilde;/\&#241;/g;
s/&Oacute;/\&#211;/g;
s/&oacute;/\&#243;/g;
s/&Ocirc;/\&#212;/g;
s/&ocirc;/\&#244;/g;
s/&Odblac;/\&#x150;/g;
s/&odblac;/\&#x151;/g;
s/&OElig;/\&#x152;/g;
s/&oelig;/\&#x153;/g;
s/&Ogr;/\&#927;/g;
s/&ogr;/\&#959;/g;
s/&Ograve;/\&#210;/g;
s/&ograve;/\&#242;/g;
s/&OHgr;/\&#937;/g;
s/&ohgr;/\&#969;/g;
s/&Omacr;/\&#x14C;/g;
s/&omacr;/\&#x14D;/g;
s/&openo;/\&#x254;/g;
s/&oo\./\&#x254;/g;
s/&Oslash;/\&#216;/g;
s/&oslash;/\&#248;/g;
s/&Otilde;/\&#213;/g;
s/&otilde;/\&#245;/g;
s/&Ouml;/\&#214;/g;
s/&ouml;/\&#246;/g;
s/&para;/\&#182;/g;
s/&Pgr;/\&#928;/g;
s/&pgr;/\&#960;/g;
s/&PHgr;/\&#934;/g;
s/&phgr;/\&#966;/g;
s/&pound;/\&#163;/g;
#s/&prime;/\&#x2032;/g;
s/&prime;/\&#x2C8;/g;
s/&Prime;/\&#x2033;/g;
s/&PSgr;/\&#936;/g;
s/&psgr;/\&#968;/g;
s/&Racute;/\&#x154;/g;
s/&racute;/\&#x155;/g;
s/&Rcaron;/\&#x158;/g;
s/&rcaron;/\&#x159;/g;
s/&Rcedil;/\&#x156;/g;
s/&rcedil;/\&#x157;/g;
s/&rdquo;/\&#x201D;/g;
s/&Rgr;/\&#929;/g;
s/&rgr;/\&#961;/g;
s/&rsquo;/\&#x2019;/g;
s/&Sacute;/\&#x158;/g;
s/&sacute;/\&#x15B;/g;
s/&Scaron;/\&#x160;/g;
s/&scaron;/\&#x161;/g;
s/&Scedil;/\&#x15E;/g;
s/&scedil;/\&#x15F;/g;
s/&schwa;/\&#x259;/g;
s/&sci;/\&#x26A;/g;
s/&i\./\&#x26A;/g;
s/&id\./<font size=-2>\&#207;\&#796;<\/font>/g; #guess... Iuml with rtail
s/&scirtail;/\&#x26A;\&#796;/g;
s/&ortail;/o\&#796;/g;
s/&oh\./o\&#796;/g;
s/&crtail;/c\&#796;/g;
s/&scirc;/\&#x15C;/g;
s/&Scirc;/\&#x15D;/g;
s/&scr;/\&#x280;/g;
s/&sect;/\&#167;/g;
s/&sfgr;/\&#962;/g;
s/&Sgr;/\&#931;/g;
s/&sgr;/\&#963;/g;
s/&shy;/\&#173;/g;
s/&szlig;/\&#223;/g;
s/&Tcaron;/\&#x164;/g;
s/&tcaron;/\&#x165;/g;
s/&tcedil;/\&#x162;/g;
s/&Tcedil;/\&#x163;/g;
s/&Tgr;/\&#932;/g;
s/&tgr;/\&#964;/g;
s/&THgr;/\&#920;/g;
s/&thgr;/\&#952;/g;
s/&THORN;/\&#222;/g;
s/&thorn;/\&#254;/g;
s/&Tstrok;/\&#x166;/g;
s/&tstrok;/\&#x167;/g;
s/&turnalpha;/\&#x252;/g;
s/&a\./\&#x252;/g;
s/&turnm;/\&#x26F;/g;
s/&turnr;/\&#x279;/g;
s/&turnscr;/\&#x281;/g;
s/&turnv;/\&#x28C;/g;
s/&turnw;/\&#x28D;/g;
s/&turny;/\&#x28E;/g;
s/&Uacute;/\&#218;/g;
s/&uacute;/\&#250;/g;
s/&Ubreve;/\&#x16C;/g;
s/&ubreve;/\&#x16D;/g;
s/&Ucirc;/\&#219;/g;
s/&ucirc;/\&#251;/g;
s/&Udblac;/\&#x170;/g;
s/&udblac;/\&#x171;/g;
s/&Ugr;/\&#933;/g;
s/&ugr;/\&#965;/g;
s/&Ugrave;/\&#217;/g;
s/&ugrave;/\&#249;/g;
s/&Umacr;/\&#x16A;/g;
s/&umacr;/\&#x16B;/g;
s/&Uogon;/\&#x172;/g;
s/&uogon;/\&#x173;/g;
s/&upsilon;/\&#x28A;/g;
s/&Uring;/\&#x16E;/g;
s/&uring;/\&#x16F;/g;
s/&Utilde;/\&#x168;/g;
s/&utilde;/\&#x169;/g;
s/&Uuml;/\&#220;/g;
s/&uuml;/\&#252;/g;
s/&Wcirc;/\&#x174;/g;
s/&wcirc;/\&#x175;/g;
s/&wynn;/\&#x1BF;/g;
s/&Wynn;/\&#x1F7;/g;
s/&Xgr;/\&#926;/g;
s/&xgr;/\&#958;/g;
s/&Yacute;/\&#221;/g;
s/&yacute;/\&#253;/g;
s/&Ycirc;/\&#x176;/g;
s/&ycirc;/\&#x177;/g;
s/&yen;/\&#165;/g;
#s/&Yogh;/\&#x21C;/g;
#s/&yogh;/\&#x21D;/g;
s/&yuml;/\&#255;/g;
s/&Yuml;/\&#x178;/g;
s/&Zacute;/\&#x179;/g;
s/&zacute;/\&#x17A;/g;
s/&Zcaron;/\&#x17D;/g;
s/&zcaron;/\&#x17E;/g;
s/&Zdot;/\&#x17B;/g;
s/&zdot;/\&#x17C;/g;
s/&Zgr;/\&#918;/g;
s/&zgr;/\&#950;/g;
1;
}