Discussion :

[Olivier Regnier]

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

[Olivier Regnier]

Bon, j'ai trouvé une solution:

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
30
31
#!/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});
}

Sauf que si je saisis par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Il ne me renvoit pas à la page d'accueil