#!/opt/gnu/bin/perl
#   Par Patrick Lapointe
#   7 aout 96
#   Lecture et affichage des commentaires
#
push (@INC,"/opt/httpd/cgi-bin");
require 'cgi-lib.pl';

######################################
#    Programme principal
#
    &Principal;
#
#   fin programme principal
#######################################
sub Principal
    {
     open(FICHIER, "comta.txt");
	
     print &PrintHeader;
     print "<HTML>";

     print "<HEAD>\n";
     print "<TITLE>";
#
#   Si vous desirez changer l'entete de la page, changer la ligne suivante
#   Modele:  print "  --- votre message --- ";
#
     print " Your first response...";
#
#
#
     print "<\/TITLE>\n";
     print "<\/HEAD>\n";
#
     print "<BODY  BGCOLOR=#ebdedc TEXT=#b53934>\n";
 
# saisie de la reaction
     &Saisie;

# affichage des commentaires des autres
     &Affiche;
   
# fermeture HTML
     print "<BR>\n";
     print "<a href= \"svision.html\"> Back </a><\/P>\n";
     print "<BR>\n";
     print "<HR>\n";
     print "<I><B>Productions Tact<\/I><\/B> <BR><BR>\n";
     print "<B>&Eacute;quipe de r&eacute;alisation<\/B><BR>\n";
     print " <UL><LI>Patrick Lapointe<BR>\n";
     print "<LI>Carlos Reed<BR>\n";
     print " <LI>M'hammed Abdous<BR>\n";
     print " <LI>Th&eacute;r&egrave;se Laferri&egrave;re<\/UL>"; 

     print "<\/form>\n";
     print "<\/body>";
     print "<\/html>";
    }
#
#    Affichage des commentaires des autres
#
sub Affiche
    {
     print "<HR><H1>Comments already submitted: </H1><HR>\n";

     $i=0;
     while ($read = <FICHIER>)
           {
                 chop($read);
                 $i = $i + 1;
                 if ($i eq 1)
                    {
                     print " <a href=mailto:$read>"
                     }
                 else
                      {
                      if ($i eq 2)
                             {
                              print "<I>$read<\/I><\/a>\n<BR>"; 
                             }
                     else
                            {
#
#     est la combinaison des touches «ctrl» et «x» (minuscule)
#
                             if ($read eq "")
                                   {  
                                    print "<\/P>\n";
                                    $i = 0;
                                   }
                             else
                                   {
                                    print "$read<BR>";
                                   }
                          
                            }
                     }

          }

     print"<BR>\n"; 
     close(FICHIER);
    }    

#
#    Saisie dans la fenetre
#
sub Saisie
    {
     print "<form method=\"POST\" action=\"comt2a.pl\">\n";   
     print "<H1>Please, write a first response.</H1>";

 #   Saisie du non
     print "<BR>\n";
     print "Your name:\n";
     print"<INPUT NAME =\"Nom\" SIZE=60><P>\n";

#   Saisie de l'adresse electronique 
     print "<BR>\n";
     print "Your e-mail:\n";
     print"<INPUT NAME =\"Adresse\" SIZE=40><P>\n";

#   Saisie avec Fenetre
     print "<TEXTAREA NAME=\"articleBody\" ROWS=10 COLS=70><\/TEXTAREA>\n";

#   Soumettre et effacer
     print "<BR>\n";    
     print "<input type=\"submit\" value=\"Submit \"><BR>\n";
     print "<input type=\"reset\" value=\"Erase\">\n";   

    }
