"; # # Si vous desirez changer l'entete de la page, changer la ligne suivante # Modele: print " --- votre message --- "; # print " VOS COMMENTAIRES..."; # # # 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= \"visionp.html\"> Page précédente </a><\/P>\n"; print "<BR>\n"; print "<HR>\n"; print "<I><B>Productions Tact<\/I><\/B> <BR><BR>\n"; print "<B>Équipe de ré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érèse Laferrière<\/UL>"; print "<\/form>\n"; print "<\/body>"; print "<\/html>"; } # # Affichage des commentaires des autres # sub Affiche { print "<HR><H1>Commentaires soumis: </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=\"comt2.pl\">\n"; print "<H1>S.V.P., soumettre vos premières réactions.</H1>"; # Saisie du non print "<BR>\n"; print "Votre nom:\n"; print"<INPUT NAME =\"Nom\" SIZE=60><P>\n"; # Saisie de l'adresse electronique print "<BR>\n"; print "Votre adresse electronique:\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=\"Soumettre \"><BR>\n"; print "<input type=\"reset\" value=\"Effacer\">\n"; }

#!/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, "comt.txt"); print &PrintHeader; print ""; print "\n"; print ""; # # Si vous desirez changer l'entete de la page, changer la ligne suivante # Modele: print " --- votre message --- "; # print " VOS COMMENTAIRES..."; # # # 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= \"visionp.html\"> Page précédente </a><\/P>\n"; print "<BR>\n"; print "<HR>\n"; print "<I><B>Productions Tact<\/I><\/B> <BR><BR>\n"; print "<B>Équipe de ré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érèse Laferrière<\/UL>"; print "<\/form>\n"; print "<\/body>"; print "<\/html>"; } # # Affichage des commentaires des autres # sub Affiche { print "<HR><H1>Commentaires soumis: </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=\"comt2.pl\">\n"; print "<H1>S.V.P., soumettre vos premières réactions.</H1>"; # Saisie du non print "<BR>\n"; print "Votre nom:\n"; print"<INPUT NAME =\"Nom\" SIZE=60><P>\n"; # Saisie de l'adresse electronique print "<BR>\n"; print "Votre adresse electronique:\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=\"Soumettre \"><BR>\n"; print "<input type=\"reset\" value=\"Effacer\">\n"; }