#!/usr/bin/perl

###########################################################################
#
#
# Auteur: Guy Tremblay
# Creation: Hiver 1999
#
###########################################################################

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

# 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/cgi-bin/obtenirLignes.pl";
require "/$home/tremblay_gu/public_html/MGL7160/TP1/afficher-resume.pl";

goto MAIN;

exit;


MAIN:
{
    if (&ReadParse(*input))
    {
	print &PrintHeader;
	print &HtmlTop("Résumé du fichier $nomFichier:");
	local($nomFichier) = $input{'nomFichier'};
	&afficherResume($nomFichier);
	print &HtmlBot;
    }
    else
    {
	&ShowResumes;
    }
}

sub trouverTitre
{
    local($fich) = @_;
    open( FICH, "< $fich" );
    while ( <FICH> ) {
	s/<//g;
	s/>//g;
	if ( /TITRE(.*)\/TITRE/ ) {
	    s/\/TITRE//;
	    s/TITRE//;
	    chop;
	    return $_;
	}
    }
    return "Pas de titre?";
}

sub ShowResumes
{
    local($nomFich) = "$prefixeBD/resumes-completes";
    local($nbLignes);
    local($numLigne);
    local(*nomsFichiers);

    if( ($nbLignes = &obtenirLignes($nomFich, *nomsFichiers)) < 0 ) {
	CgiDie("Erreur choix du nom de fichier",
	       "Le fichier $nomFich ne semble pas exister.");
	return;
    }
    print &PrintHeader;
    print &HtmlTop("Les r&eacute;sum&eacute;s disponibles sont les suivants:");
    print "<FORM METHOD=POST>";
    $numLigne = 1;
    print "<SELECT NAME=\"nomFichier\" SIZE=20>";
    while ($numLigne <= $nbLignes) {
	$nomFichier = $nomsFichiers{$numLigne};
	$titre = &trouverTitre("$prefixeBD/$nomFichier");
	print "<OPTION VALUE=\"$nomFichier\">[$nomFichier] $titre<P>\n";
	$numLigne += 1;
    }
    print <<EOFAAA;
</SELECT>
<P>
<INPUT TYPE="SUBMIT" VALUE="Examiner le r&eacute;sum&eacute; s&eacute;lectionn&eacute;">
</FORM>
EOFAAA
	
print <<EOFAB;
<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.
<P><P>

EOFAB
    print &HtmlBot;
    
}