#!/usr/local/bin/perl -p

# strip out silly things in the .gml file when it comes from fmpro,
# nigelk 1997-04-22


s,Ò,\",g;			# smart double quotes...
s,Ó,\",g;
s,\&,\&amp\;,g;
s,\&amp\;lt\;,\&lt\;,g;
s,\&amp\;gt\;,\&gt\;,g;

s,\cD, ,g;
s,\177,,g;
s,\237,\&uuml\;,g;
s,\x8e,\&eacute\;,g;
s,\x8f,\&egrave\;,g;
s,\x88,\&agrave\;,g;
s,\cK+,<br> ,g;

s,<entry invno=([^>]*)>,<entry invno="$1">,g;
s,(<td></td>)+</tr>,</tr>,g;	# wheeeee!
s,<tr></tr>,,g;
s,<table></table>,,g;
s,<fsb></fsb>,,g;
s,<fsf></fsf>,,g;
s,<sixdpif></sixdpif>,,g;
s,<sixdpib></sixdpib>,,g;
s,<images></images>,,g;