#!/usr/bin/perl

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

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

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

require "ctime.pl";
require "/$home/tremblay_gu/public_html/cgi-bin/cgi-lib.pl";

require "/$home/tremblay_gu/public_html/INF8541/Expose/parametres.pl";

$prefixeBD = "/$home/$nomProf/public_html/$titreCours/$expose";

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

require "/$home/tremblay_gu/public_html/cgi-bin/cgi-lib.pl";
require "/$home/tremblay_gu/public_html/cgi-bin/obtenirLignes.pl";
require "/$home/tremblay_gu/public_html/cgi-bin/supprimerLigne.pl";
require "/$home/$nomProf/public_html/$titreCours/$expose/supprimerDate.pl";

goto MAIN;

exit;


MAIN:
{

    if (&ReadParse(*input))
    {
	&ProcessForm;
    }
    else
    {
	&ShowForm;
    }
}

###############################################
#Sous-routine qui affiche le formulaire
###############################################
sub ShowForm
{
    print &PrintHeader;
    print &HtmlTop("Choix d'une date pour l'exposé de $titreCours.");
    print <<EOTF;
<FORM METHOD=POST>
<P>
<P>
Nom <INPUT TYPE="TEXT" NAME="nom" VALUE="" SIZE=35>
Pr&eacute;nom <INPUT TYPE="TEXT" NAME="prenom" VALUE="" SIZE=15>
<P>
Les dates qui n'ont pas encore &eacute;t&eacute; choisies sont les suivantes:<BR>
<P>
EOTF
&afficherDates;
    print <<EOTA;
<P><P><P>

<INPUT TYPE="SUBMIT" VALUE="Enregistrer le choix">
<INPUT TYPE="RESET" VALUE="Effacer">
</FORM>

<P>

<EM>Note:</EM> Les heures indiqu&eacute;es sont approximatives.

<P><HR><P><P><P>
<B> R&eacute;alisation</B>: Ce script a &eacute;t&eacute; d&eacute;velopp&eacute; par <A HREF="http://www.labunix.uqam.ca/~tremblay"> Guy Tremblay</A>, professeur au d&eacute;partement d'informatique de l'UQAM.
EOTA
    print "<P><P>\n";
    print &HtmlBot;
}


sub afficherDates
{
    local($numLigne);
    $nomFich = "$prefixeBD/dates-possibles";
    local($nbLignes);
    local(*sujets);
    if( ($nbLignes = &obtenirLignes($nomFich, *sujets)) < 0 ) {
	CgiDie("Erreur choix du sujet",
	       "Le fichier $nomFich ne semble pas exister.");
	return;
    }
    print "<SELECT NAME=\"numLigne\" SIZE=$nbLignes>\n";
    $numLigne = 1;
    while ($numLigne <= $nbLignes) {
	$nomComplet = $sujets{$numLigne};
	$nomComplet = substr( $nomComplet, 0, 80 );
	print "<OPTION VALUE=\"$numLigne\"> $nomComplet\n";
	$numLigne += 1;
    }
print <<EOTF;
</SELECT>
EOTF
}

sub ProcessForm
{
    local($numLigne) = $input{'numLigne'};
    local($nom) = $input{'nom'};
    local($dateChoisie);
    local($codePermanent);

    if ( $nom && $numLigne ) {
	print &PrintHeader;
	print "<P>";
	print &HtmlTop( "Confirmation du choix de la date:" );
	local($sujet) = &supprimerDate($numLigne, $nom, 
					$codePermanent, $dateChoisie);
	local(*dates);
	print "Vous ($nom) avez choisi la date suivante:<BR>\n";
	print "<UL><LI>$sujet</UL>\n";
	print "<P><P>\n";
	print &HtmlBot;
    } else {
	CgiError( "Erreur dans votre s&eacute;lection",
		 "Vous devez sp&eacute;cifier votre nom.",
		 "Vous devez aussi s&eacute;lectionner une date.");
    }
}