Perl

[PERL] CGI retourner un code erreur

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] CGI retourner un code erreur

web_olivier

R1 Powaaaaa

Bonjour,

J'ai un perl (CGI) qui permet de contrôler une liste d'URLs (urls.txt).
Si une de ces URLs ne renvoie pas un code 200 alors je veux que ma page se termine avec le code erreur http de la page testée.

Voici mon perl :

Code :

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
print "Content-type: text/html\n\n";
my $browser = create_lwp_browser();
my ($working, $broken, $odd) = get_status_codes($browser);
sub get_status_codes
{
my $browser = shift;
my $file='urls.txt';
open (INFO,$file);
my @lines = <INFO>;
close(INFO);
foreach my $p (@lines)
{
chomp($p);
my $response = $browser->get($p);
if ($response->code ne "200" )
{
# print ($p." | ".$response->status_line." " );
print "Status: ".$response->status_line." ";
print "Content-type: text/html ";
exit;
}
}
}
sub create_lwp_browser
{
my $browser = LWP::UserAgent->new;
$browser->env_proxy;
$browser->timeout(30);
$browser->agent('checkurl.pl/1.0');
return $browser;
}

Malgré tout mes essaies, je ne parviens pas à sortir avec le code erreur de la page testée et j'ai toujours un code 200 dans mes logs apache.

Quelqu'un peu'il m'aider à trouver la solution ?

Par avance merci.

:hello:

Publicité

tpierron

Heu, ta ligne 7 contient :

Code :

print "Content-type: text/html\n\n";

Donc tout ce que tu imprimes sur stdout par la suite sera interprété comme du HTML (avec un status 200 rajouté par apache automatiquement).

Qui plus est, aux lignes 25 à 27, les fins de lignes de l'entête HTTP, c'est "\n", pas " ".

Edit: ha, ha, je parie que t'avais "\n" avant, mais tu as converti ça en parce que ça s'imprimait sur une ligne dans le navigateur.

Message édité par tpierron le 20-10-2015 à 14:57:16

web_olivier

R1 Powaaaaa

Bonjour Tpierron,

Tu as tout compris pour les c'est corrigé. :jap:

Par contre j'ai supprimé la ligne

Code :

print "Content-type: text/html\n\n";

mais plus rien ne s'affiche et j'ai toujours un code 200

:hello:

EDIT: Je retire ce que j'ai dis, ça fonctionne

Merci beaucoup pour l'aide :jap:

Message édité par web_olivier le 20-10-2015 à 15:57:47

FORUM HardWare.fr

Programmation

Perl

[PERL] CGI retourner un code erreur

Sujets relatifs
Code de retour Runtime avec exitValue	FreeMem() provoque une erreur sans plantage
e voudrais lancer plusieurs script Perl à partir d'un autre script Per	Erreur SQL ( Oracle ) 00936
Erreur 183 sur un CopyFile()	erreur code php pour accès localhost
Vérification d'un code	Nom d'un code Jquery
[SQL Server] Insert - erreur "Illegal data"
Plus de sujets relatifs à : [PERL] CGI retourner un code erreur

Page générée en 0.074 secondes