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});

[blacksnake]

Impec', merci à vous deux

[Olivier Regnier]

J'ai modifié le script et il ne fonctionne plus du moins avec les tirets.
Voici le code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/usr/bin/perl -w
#
# Don't forget chmod 755
#
 
#***********************#
# Declaration          
#***********************#
 
use strict;
use diagnostics;
use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
#***********************#
# CGI Security          
#***********************#
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
#***********************#
# Variables 
#***********************#
 
# Define links
my %redirect_to = (
  openbsd =>'http://www.openbsd.org',
  developpez =>'http://www.developpez.com',
  oregnier =>'http://oregnier.developpez.com',
  bsd =>'http://bsd.developpez.com',
  obsd-colors-shell =>'http://oregnier.developpez.com/cours/un-shell-colore-sous-openbsd/',
  obsd-manual-page =>'http://oregnier.developpez.com/cours/ecrire-ma-propre-page-de-manuel-sous-openbsd/',
  obsd-cdrom-41 =>'http://oregnier.developpez.com/cours/creer-un-cd-rom-dinstallation-openbsd-41-amorcable/',
  leave-me-your-feedback =>'/cgi-bin/feedback.cgi',
  pgp-keyservers =>'http://pgp.mit.edu:11371/pks/lookup?op=get&search=0xBA292EF2',
  default =>'/',
);
 
# Creates a new CGI object
my $cgi=new CGI;
 
#***********************#
# Operations       
#***********************#
 
my $url=$cgi->param("page") || "default";
print $cgi->redirect(-uri=>$redirect_to{$url});

J'obtiens ce message désagréable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Software error:
 
Bareword "obsd" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "colors" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "obsd" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "manual" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "obsd" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "cdrom" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "leave" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "me" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "your" not allowed while "strict subs" in use at redirect.cgi line 29.
Bareword "pgp" not allowed while "strict subs" in use at redirect.cgi line 29.
Execution of redirect.cgi aborted due to compilation errors.

Vos avis s'il vous plaît ?

Merci

[djibril]

tu fais dans ce cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my %redirect_to = (
  "openbsd" =>'http://www.openbsd.org',
  "developpez" =>'http://www.developpez.com',
  "oregnier" =>'http://oregnier.developpez.com',
  "bsd" =>'http://bsd.developpez.com',
  "obsd-colors-shell" =>'http://oregnier.developpez.com/cours/un-shell-colore-sous-openbsd/',
  "obsd-manual-page" =>'http://oregnier.developpez.com/cours/ecrire-ma-propre-page-de-manuel-sous-openbsd/',
  "obsd-cdrom-41" =>'http://oregnier.developpez.com/cours/creer-un-cd-rom-dinstallation-openbsd-41-amorcable/',
  "leave-me-your-feedback" =>'/cgi-bin/feedback.cgi',
  "pgp-keyservers" =>'http://pgp.mit.edu:11371/pks/lookup?op=get&search=0xBA292EF2',
  "default" =>'/',
);

et je ne sais pas si les redirections vers / et /cgi-bin/feedback.cgi fonctionneront, car il si je me souviens bien, il faut http dans l'url pour que ça fonctionne correctement.

[Olivier Regnier]

et je ne sais pas si les redirections vers / et /cgi-bin/feedback.cgi fonctionneront, car il si je me souviens bien, il faut http dans l'url pour que ça fonctionne correctement.

Merci pour ta réponse et concernant le cas de feedback.cgi, je vais tester

Encore merki

[Olivier Regnier]

Je désire apporter une petite modification à ce script, être redirigé dans une nouvelle fenêtre afin que le visiteur laisse la page de mon site ouverte.

Je me suis dit, l'élèment target doit fonctionner donc j'ai essayé ceci:

Code :

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

1
2
print $cgi->redirect(-target=>'_new',
                     -uri=>$redirect_to{$url});

La redirectoin fonctionne mais se produit dans la même page.

Avez-vous des infos s'il vous plaît ?

Merci

[djibril]

il te faut des leçons de html .
c'est

Code :

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

-target=>"_blank",

[Olivier Regnier]

Salut

Ce _blanck a été le premier a être testé mais malheureusement, il me provoque une erreur 404 pour tous les liens:

Code :

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

1
2
print $cgi->redirect(-target=>'_blank',
                     -uri=>$redirect_to{$url});

Un cours CGI ?

PS: j'utilise la réécriture d'adresses

Exemple avec mon .htaccess:

Code :

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

RewriteRule ^developpez-homepage.html$ /cgi-bin/redirect.cgi?page=developpez [L]

[Jedai]

Je ne vois pas très bien pourquoi target marcherait pour une redirection, c'est un attribut de l'élément 'a', pas une caractéristique de l'adresse... Utilise plutôt du Javascript si tu veux faire quelque chose comme ça.

--
Jedaï

[Olivier Regnier]

Je ne vois pas très bien pourquoi target marcherait pour une redirection, c'est un attribut de l'élément 'a', pas une caractéristique de l'adresse... Utilise plutôt du Javascript si tu veux faire quelque chose comme ça.

Je voudrais savoir si à la place de redirect(), on peut utiliser un a href ? C'est juste une question

Olivier, ne pose pas de question idiote

[djibril]

sorry, j'avais pas tout lu ton thread.
En effet, tu ne peux pas faire de redirection dans une autre page via perl.
Maintenant y a t il d'autre solution, je ne sais pas.
Sinon Tu peux toujours redirigé vers une page personnalisée avec un lien pour revenir en arriere et un autre pour aller vers le site souhaité.

A toi de voir.

[Jedai]

En effet, tu ne peux pas faire de redirection dans une autre page via perl.
Maintenant y a t il d'autre solution, je ne sais pas.

Généralement on utilise du Javascript pour faire ce genre de chose (le problème c'est qu'il s'agit d'un popup, strictement parlant, donc ça ne marchera pas partout, loin de là. Le plus sûr serait effectivement de proposer la "redirection" (si on peut vraiment l'appeler comme ça) par un lien normal.

--
Jedaï

[djibril]

C'est pour cela que j'ai précisé en perl. C'est vrai qu'en javascript, on peut jongler avec les popup, mais je trouve que c'est se prendre le chou pour rien. En plus, javascript peut etre desactivé, etc.
Le mieux pour moi est de laisser la redirection dans la même page ou bien proposer des liens.

[Olivier Regnier]

Le mieux pour moi est de laisser la redirection dans la même page ou bien proposer des liens.

Vu que j'utilise le xhtml strict l'élèment target n'est pas autorisé donc je reste comme ça