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