Discussion :

[Olivier Regnier]

Bonjour

Pour la gestion des erreurs http (404 et 403), j'ai toujours utilisé le fichier .htaccess avec les redirections qui vont bien. Je voudrais savoir s'il on peut faire la même chose en perl ?

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

Merci d'avance

[Jedai]

Je ne suis pas sûr de bien comprendre la question ? Les fichiers .htaccess sont complètement indépendants du langage de programmation utilisé pour la partie serveur d'un site. Ou parles-tu d'écrire des handlers Apache en Perl ? C'est possible avec mod_perl (on peut faire des trucs très sympa avec ça), mais je ne vois pas trop le rapport avec les redirections ?

--
Jedaï

[Olivier Regnier]

Bonjour

Je me suis mal exprimé

Je voulais savoir si via un script perl, il était possible de générer une page d'erreur en fonction du code d’en-tête HTTP comme 403 ou encore 404 stocké par exemple dans une variable ?

J'ai trouvé un exemple en php. Voici l'exemple.

Merci

[Jedai]

Hum.. La partie .htaccess reste strictement identique sauf que tu remplace le "erreur.php?403" par un "erreur.pl?e=403" et le script est un script CGI parfaitement ordinaire, qui donnerait par exemple :

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
#!/usr/bin/perl
use strict; use warnings;
use CGI qw(:standard);
 
my %errors = ( 
  401 => "La syntaxe de la requête est mal formulée ou est impossible à" 
            . " satisfaire",
  403 => "L’accès à la ressource est interdit",
  404 => "Page introuvable ou modifiée",
  500 => "Erreur interne du serveur",
);
 
print header,
  start_html("Erreur " . param('e')),
  p( $errors{param('e')} ),
  end_html;

Il s'agit juste d'une redirection par le serveur, tu pourrais tout à fait mettre des pages statiques, une par erreur pour le même effet (mais je suppose que l'objectif est de faire des statistiques ?).

--
Jedaï

[Olivier Regnier]

Bonjour Jedai

Dans un premier temps, merci pour ton code, je vais le tester. Si je m'oriente vers perl pour générer les pages d'erreur, ce n'est pas pour les stats mais pour éviter justement de multiplier ces pages. Bien entendu, il est tout à fait possible de réaliser cette technique en php.

Merki

[Olivier Regnier]

Bonjour

Je reviens sur cette exercice portant sur la gestion des erreurs http.
Monsieur le(s) Professeur(s), voici le fichier: error.cgi

Ce script fonctionne mais je souhaiterai tout de même vos avis et commentaires.
Je n'ai pas réussi à utiliser use strict; Je tombe souvent sur un problème de Global symbol "$variable" requires explicit package name.

Je veux tout savoir

Merci d'avance

[Gardyen]

il manque les my indiquant que ce sont des variables locales
voila les lignes a modifier

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
 
use strict;
use CGI qw(:standard);               # Loading CGI module
# ...
my $cgi=new CGI;
 
# Variables
my $file='/home/olivier/cgi-bin/error.cgi';                    # File directory
my @lastmodified=stat($file);                                         # Return the list value
my $date=strftime("%Y/%m/%d %H:%M:%S",localtime($lastmodified[9]));   # Date conversion
my $title={ };                                                        # Title page
 
# Getting http error code
my $code=$ENV{'QUERY_STRING'};
 
# Loading function
my %msg;
&set_contents;

pour les commentaires attendons les experts

[Olivier Regnier]

Merci pour cette correction. Les changements ont été apportés

Heu cela ne fonctionne plus en ajoutant, use strict;

Voici les messages obtenus:

Code :

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

1
2
3
4
5
6
Global symbol "%msg" requires explicit package name at error.cgi line 45.
Global symbol "%msg" requires explicit package name at error.cgi line 57.
Global symbol "%msg" requires explicit package name at error.cgi line 69.
Global symbol "%msg" requires explicit package name at error.cgi line 81.
Global symbol "%msg" requires explicit package name at error.cgi line 106.
Execution of error.cgi aborted due to compilation errors.

Bon je vais travailler tout ça

[Gardyen]

attention au symbole devant le nom ligne 24

c'est

Code :

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

my %msg;

(déclaration d'un hash)

et pas

Code :

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

my $msg;

(déclaration d'un scalaire)

[Olivier Regnier]

Oui tu as raison, quel étourdit je fais

Le script a été mis à jour.

D'autres avis ?

Merci Gardyen