#!/usr/bin/perl

###########################################################################
#
#
# Auteur: Guy Tremblay
# Creation: Automne 1998
#
###########################################################################

#----------------------------------------------------------------------

# Variable globale a utiliser comme prefixe pour acceder a ma BD.

if ($ENV{"SCRIPT_FILENAME"}) {
    @tmp1 = split( "/", $ENV{"SCRIPT_FILENAME"} );
} else {
    @tmp1 = split( "/", $ENV{"HOME"} );
}
$home = $tmp1[1];

$prefixeBD = "/$home/tremblay_gu/public_html/MGL7160/TP1";

#----------------------------------------------------------------------

require "/$home/tremblay_gu/public_html/cgi-bin/cgi-lib.pl";
require "/$home/tremblay_gu/public_html/MGL7160/TP1/montrerFormulaire.pl";

goto MAIN;

exit;


MAIN:
{

    if (&ReadParse(*input))
    {
	&enregistrerFormulaire;
    }
    else
    {
	$input{'nomFichier'} = "xyzABC";
	&montrerFormulaire;
    }

}