Discussion :

[Olivier Regnier]

Bonjour

J'ai écris un petit script qui regroupe quelques liens de ma page d'accueil sur mon site perso. J'ai appelé ce fichier, redirect.cgi, voici son contenu:

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;                                      # Checking all variables
use CGI qw(:standard);                    # Loading CGI module
use CGI::Carp qw(fatalsToBrowser);   # Loading CGI routine
                                                   # for writing to the HTTPD error log
 
$CGI::POST_MAX = 1024 * 100;   # Max 100K posts
$CGI::DISABLE_UPLOADS = 1;     # No upload
 
# Creating a new CGI object
my $cgi=new CGI;
 
# Add URL parameter
my $url = $cgi->param("page");
 
# Checking parameters
if ($cgi->param('page') eq 'openbsd') {
    print $cgi->redirect(-uri=>'http://www.openbsd.org');
    } elsif ($cgi->param('page') eq 'developpez') {
        print $cgi->redirect(-uri=>'http://www.developpez.com');
    } elsif ($cgi->param('page') eq 'oregnier') {
        print $cgi->redirect(-uri=>'http://oregnier.developpez.com');
    } elsif ($cgi->param('page') eq 'bsd') {
        print $cgi->redirect(-uri=>'http://bsd.developpez.com');
    } else {
        print $cgi->redirect(-uri=>'/');
    }
 
# End script

Je viens de le tester et à première vue, il fonctionne correctement mais je voudrais avoir vos avis et commentaires.

Pour se rendre par exemple sur le site d'OpenBSD, l'adresse URL sera, http://monsite/cgi-bin/redirect.cgi?page=opensd

Bien entendu, il est prévu d'utiliser la réécriture d'adresses

Merci

[Jedai]

On peut nettement le simplifier, d'autant que tu as des trucs bizarres (pourquoi déclarer $url pour ne jamais l'utiliser ?) :

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
#!/usr/bin/perl
use strict; use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
 
$CGI::POST_MAX = 1024 * 100;   # Max 100K posts
$CGI::DISABLE_UPLOADS = 1;     # No upload
 
my %redirect_to = (
  openbsd => 'http://www.openbsd.org',
  developpez => 'http://www.developpez.com',
  oregnie => 'http://oregnier.developpez.com',
  bsd => 'http://bsd.developpez.com',
  default => '/',
);
 
# Creating a new CGI object
my $cgi=new CGI;
 
my $url = $cgi->param("page") || "default";
print $cgi->redirect(-uri=> $redirect_to{$url});
 
__END__

Le principal avantage de ce style c'est qu'il est très facile d'étendre le nombre de sites redirigés, de les modifier, etc. C'est plus lisible aussi !

--
Jedaï

[Olivier Regnier]

Salut Jedai

Le coup de la variable non utilisée

Le script est nettement plus clair comme ça

Merci

[blacksnake]

Salut

Je me permet de m'incruster ds le topic. J'ai essayé le script d'Olivier, il marche très bien ; par contre la version de Jedai ne marche pas. Une idée ?

par ex http://descartes/cgi-bin/redirect.cgi?page=developpez renvoie une erreur 500.

Merci

[Jedai]

J'avais supprimé le "use CGI" en même temps que l'option "qw(:standard)" qui était en trop dans le script d'Olivier , du coup ça ne compilait plus... Réessaie, ça devrait marcher.

--
Jedaï

[Olivier Regnier]

Jedai , il me semble que tu as oublié un print à la dernière ligne:

Code :

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

print $cgi->redirect(-uri=> $redirect_to{$url});