#!/usr/bin/perl -w

use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my @noms_champ = $cgi->param();
my $requete = $cgi->param('requete');

print $cgi->header(),
      $cgi->start_html('RESULTAT'),
#    $cgi->param('requete');
    $cgi->h3('Voici le r&eacute;sultat&nbsp;:');

#print '<pre class="verbatim">';

$_ = $requete;


#Ordre important pour éviter les remplacements au sein du code hexadécimal!
s/C/&\#x2C9C\;/g;
s/A/&\#x2C80\;/g;
s/a/&\#x2C81\;/g;
s/B/&\#x2C82\;/g;
s/b/&\#x2C83\;/g;
s/G/&\#x2C84\;/g;
s/g/&\#x2C85\;/g;
s/D/&\#x2C86\;/g;
s/d/&\#x2C87\;/g;
s/c/&\#x2C9D\;/g;
s/E/&\#x2C88\;/g;
s/e/&\#x2C89\;/g;
s/F/&\#x2CAA\;/g;
s/f/&\#x2CAB\;/g;
s/Z/&\#x2C8C\;/g;
s/z/&\#x2C8D\;/g;
s/H/&\#x2C8E\;/g;
s/h/&\#x2C8F\;/g;
s/Q/&\#x2C90\;/g;
s/q/&\#x2C91\;/g;
s/J/&\#x2C90\;/g;
s/j/&\#x2C91\;/g;
s/I/&\#x2C92\;/g;
s/i/&\#x2C93\;/g;
s/K/&\#x2C94\;/g;
s/k/&\#x2C95\;/g;
s/L/&\#x2C96\;/g;
s/l/&\#x2C97\;/g;
s/M/&\#x2C98\;/g;
s/m/&\#x2C99\;/g;
s/N/&\#x2C9A\;/g;
s/n/&\#x2C9B\;/g;
s/O/&\#x2C9E\;/g;
s/o/&\#x2C9F\;/g;
s/P/&\#x2CA0\;/g;
s/p/&\#x2CA1\;/g;
s/R/&\#x2CA2\;/g;
s/r/&\#x2CA3\;/g;
s/S/&\#x2CA4\;/g;
s/s/&\#x2CA5\;/g;
s/T/&\#x2CA6\;/g;
s/t/&\#x2CA7\;/g;
s/U/&\#x2CA8\;/g;
s/u/&\#x2CA9\;/g;
s/X/&\#x2CAC\;/g;
s/d/&\#x2CAD\;/g;
s/Y/&\#x2CAE\;/g;
s/y/&\#x2CAF\;/g;
s/W/&\#x2CB0\;/g;
s/w/&\#x2CB1\;/g;



print $_;

#print '</pre>';


#print '<p>(vous pouvez copier-coller ce r&eacute;sultat)</p>';

print '<br><br><center><a href="/onciale.html">Retour</a>';

print $cgi->end_html();
