Gérer les erreurs http en perl

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 :mrgreen:

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ï

Bonjour :mrgreen:

Je me suis mal exprimé :oops:

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 :mrgreen:

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:

---

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ï

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 :king:

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 :aie:

Merci d'avance :mrgreen:

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

Code:

---

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 :P

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

Heu cela ne fonctionne plus :oops: en ajoutant, use strict;

Voici les messages obtenus:

Code:

---

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 8O

attention au symbole devant le nom ligne 24

c'est

Code:

---

my %msg;

---

(déclaration d'un hash)

et pas

Code:

---

my $msg;

---

(déclaration d'un scalaire)

Oui tu as raison, quel étourdit je fais :oops:

Le script a été mis à jour.

D'autres avis ? :roll:

Merci Gardyen :mrgreen: