CGI

Redirection avec un menu déroulant en Perl

Redirection avec un menu déroulant en Perl - Le script Perl fmenu.pl V 1.0

Rien de plus simple et très pratique si vous ne voulez pas obliger vos visiteurs à posséder un navigateur compatible Javascript. Une simple commande HTML location et le tour est joué.

Vous devez disposer bien sûr d’un répertoire CGI-BIN et rien de plus. La première ligne de votre script doit être le chemin d’accès de l’exécutable Perl de votre serveur : #!/usr/bin/perl.

IMPORTANT : Vous devez transférer (uploader) sur le serveur votre script fmenu.pl en mode ASCII et ensuite lui donner l’attribut exécution par tous CHMOD 755.

Code HTML:

<form action="/cgi-bin/fmenu.pl" method="post">
<select name="redir">
<option value="http://www.trucsweb.com/">Les Trucsweb</option>
<option value="http://www.scripts-fr.com">Scripts-fr.com</option>
<option value="http://www.perl-gratuit.com">Perl-gratuit.com</option>
</select>
<input type="submit" value="Go!" name="submit" />
</form>

Code Perl:

#!/usr/bin/perl
# Auteur: Oznog
# http://www.trucsweb.com/cgi/p_cgi5.htm

read(STDIN,$buf,$ENV{’CONTENT_LENGTH’});
@pairs = split(/&/,$buf);
foreach (@pairs) {
($tmp1,$tmp2) = split(/=/,$_);
$tmp2 =~ tr/+/ /;
$tmp2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$form{$tmp1} = $tmp2;
}
$loc = $form{’redir’};
print "Location: $loc\n\n";

• Fichier à télécharger