#! /usr/bin/perl
#
#
# Converts ISO-8859-1 to full HTML
#
#
# (c) 1997-1998 Emmanuel PIERRE
#          epierre@e-nef.com
#          http://www.e-nef.com/users/Emmanuel.PIERRE
#

# ne convertit pas ce qui se trouve entre
#    <SCRIPT>
# et
#    </SCRIPT>
#############

# les accents aigus
#
$accents{'é'} = '&eacute';
$accents{'à'} = '&agrave';

# les accents graves
#
$accents{'è'} = '&egrave';
$accents{'ù'} = '&ugrave';

# les accents circomflexe
#
$accents{'ê'} = '&ecirc';
$accents{'î'} = '&icirc';
$accents{'ô'} = '&ocirc';
$accents{'û'} = '&ucirc';

# les tremas
#
$conversion = 1;

while( <STDIN> )
{
	if( /\<\s*SCRIPT\s*.*\>/i )
		{$conversion=0;}

	if( /\<\/SCRIPT\>/ )
		{$conversion=1;}

	if( $conversion )
	{
		foreach $accent (keys %accents)
			{ s/$accent/$accents{$accent};/g; }
	}
	print;
}

print "Thanks for using accents.pl ! <P>\n";