Source Perl du script formulaire


#!/usr/local/bin/perl
#
# Copyright (C) 1994 Steven E. Brenner
#
# Adaptation francaise par Philippe Dax - septembre 1995

require "cgi-lib.pl";

MAIN:
{
# Lecture de toutes les variables initialisees par le formulaire
  &ReadParse(*input);

# Imprimer l'entete html (obligatoire)
  print &PrintHeader;
  print "<html><head>\n";
  print "<title>demo de traitement d'un formulaire</title>\n";
  print "</head>\n<body>\n";

# Faire quelque traitement preliminaire
  ($text = $input{'message'}) =~ s/\n/\n<BR>/g; 
                # add <BR>'s after carriage returns o multline input,
		# since HTML does not preserve line breaks
  print <<ENDOFTEXT;

<H1>Ceci est le résultat du questionnaire</H1>

$input{'prenom'} $input{'nom'}, dont la couleur favorite est
$input{'couleur'} vous avez répondu $input{'choix'} à
la question car vous pensez que :
<P>
$text<P>

ENDOFTEXT

# Si vous souhaitez imprimer la list de toutes les variables
  print "<HR>Voici la liste des variables que vous avez saisi...<P>";
  print &PrintVariables(%input);

# Fermeture du document html
  print "</body></html>\n";
}
Philippe Dax
$Date: 20/09/1995 $