Script de redirection

Bonjour :)

J'ai un script CGI kernel.cgi dont voici le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 #!/usr/bin/perl -w use strict; use warnings; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); $CGI::POST_MAX=1024*100; $CGI::DISABLE_UPLOADS=1; my $cgi=new CGI; my %redirect=( "feedback"=>'/cgi-bin/feedback.cgi', "repository"=>'/repository.shtml', "default"=>'/', ); my $adress=$cgi->param("go") || "default"; print $cgi->redirect(-uri=>$redirect{$adress}); my %file=( "cvsrc"=>'/pub/files/openbsd/i386/conf/.cvsrc', "default"=>'/', ); my $adress=$cgi->param("download") || "default"; print $cgi->redirect(-uri=>$file{$adress});
Si j'exécute dans mon navigateur l'adresse suivante:

Code:

http://www.oregnier.org/cgi-bin/kernel.cgi?go=feedback

Je suis bien redirigé sur la page en question mais si je teste l'adresse qui suit:

Code:

http://www.oregnier.org/cgi-bin/kernel.cgi?download=cvsrc

Je suis redirigé automatiquement sur la page d'accueil :oops:

Pouvez-vous me donner un petit coup de main s'il vous plaît ? :mrgreen:

Merki :aie:

#!/usr/bin/perl -w use strict; use diagnostics; use warnings; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); $CGI::POST_MAX=1024*100; $CGI::DISABLE_UPLOADS=1; my %redirect_to = ( "feedback"=>'/cgi-bin/feedback.cgi', "repository"=>'/repository.shtml', "cvsrc"=>'/pub/files/openbsd/i386/conf/.cvsrc', "default"=>'/', ); my $cgi=new CGI; if ($cgi->param("go")) { my $go=$cgi->param("go") || "default"; print $cgi->redirect(-uri=>$redirect_to{$go}); } elsif ($cgi->param("download")) { my $download=$cgi->param("download") || "default"; print $cgi->redirect(-uri=>$redirect_to{$download}); }