28
Page 24
VI, March 2005
HTML - cgi-bin Example
#!/usr/local/bin/perl
### import modules
use CGI::Carp q(fatalsToBrowser); # makes debugging more easy
use CGI;
### read arguments ###
$cgi=CGI->new(); ### create CGI instance
my @interets=$cgi->param('interets');
my $nom=$cgi->param('nom');
my $pass=$cgi->param('motdepasse');
my $genre=$cgi->param('sexe');
my $universite=$cgi->param('universite');
select(STDOUT); ### configure output stream... to possibly send error message ###
$| = 1; ### flush buffering to true
### start HTML output
print "Content-type: text/html \n\n"; ### required line (HTTP)
print "<HTML><HEAD></HEAD><BODY bgcolor='#afeeee'>\n";
if ($genre eq "homme") { $titre = "Monsieur";} else { $titre = "Madame";}
print "<h2><p>Bonjour $titre,\n</h2>";
print "<p>Votre nom est <b>$nom</b> et votre mot de passe est <b>$pass</b>\n";
print "<br><p>Vous êtes de l'université dont le code est <b>$universite</b>\n";
print "<p>Vos intérêts sont: <b>@interets</b>!\n";
print "<p><hr width='580'>";
print "</body>";
print "</html>";
exit 0;
