Bonjour

J'ai un script CGI kernel.cgi dont voici le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
http://www.oregnier.org/cgi-bin/kernel.cgi?download=cvsrc
Je suis redirigé automatiquement sur la page d'accueil

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

Merki