Utilisation de CGI et LWP

Version imprimable

25/06/2008, 10h54
PoMdaPiMp

Utilisation de CGI et LWP

Bonjour à tous,

j'ai une question concernant un script CGI que je suis en train de faire et qui est appelé via un formulaire POST tout ce qu'il y a de plus classique.

Le but:
Vérifier si des URL (pages) sont valides

Le moyen:
Je fais remplir à l'utilisateur une textarea avec une URL par ligne, je passe ça à mon CGI.
Le CGI parse les URLs et, grâce à LWP récupère le status http de la page (200 = OK, 404 = KO ... etc)

Le problème:
Dans mon CGI, je fais un
use CGI;
use LWP::UserAgent;

Lorsque je l'exécute dans mon Shell, tout fonctionne bien.

Maintenant, dans mon browser:
Lorsque je retire le use LWP::UserAgent (et tous les appels aux méthodes de ce package), le CGI standard s'execute bien et m'affiche le code HTML que je veux.

Mais lorsque que je remet le use LWP::UserAgent, j'ai une erreur 500 (Internal server error).

La(/les) question(s):
Peut-on utiliser ces 2 packages en même temps ? (j'ai vu des exemple les utilisent, mais bon ...)
Si non, quel autres package puis-je utiliser avec CGI pour arriver au meme résultat ?
Est-ce un erreur de configuration ?
Avez-vous une idée?

Merci de vos réponses.

Et voici le code qui fonctionne ... mais ne fait pas ce que je veux:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
use strict;
 
use CGI;
use CGI::Carp qw(fatalsToBrowser);
#use LWP::UserAgent;
 
my $cgi = new CGI;
my @urls = split(/\n/, $cgi->param('urls'));
 
print "Content-type: text/html\n\n";
print "<html><head><title>UrlShaker</title></head><body><table>\n";
my $c1 = "eee"; my $c2 = "fff"; my $c = $c1;
foreach (@urls)
{
    print "<tr style=\"background:#" . $c . ";\">\n";
    print "<td><a href=\"" . $_ . "\">" . $_ . "</a></td>\n";
#    my $ua  = LWP::UserAgent->new();
#    my $req = $ua->request(HTTP::Request->new(GET => $_));
#    print "<td>" . $req->code . "</td>\n";
    print "</tr>\n";
    $c = $c eq $c1 ? $c2 : $c1;
}
print "</table><br /><br /><a href=\"javascript:history.back()\">revenir</a></body></html>\n";

Et voici le code qui ne fonctionne pas ... mais qui devrait faire ce que je veux:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
use strict;
 
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
 
my $cgi = new CGI;
my @urls = split(/\n/, $cgi->param('urls'));
 
print "Content-type: text/html\n\n";
print "<html><head><title>UrlShaker</title></head><body><table>\n";
my $c1 = "eee"; my $c2 = "fff"; my $c = $c1;
foreach (@urls)
{
    print "<tr style=\"background:#" . $c . ";\">\n";
    print "<td><a href=\"" . $_ . "\">" . $_ . "</a></td>\n";
    my $ua  = LWP::UserAgent->new();
    my $req = $ua->request(HTTP::Request->new(GET => $_));
    print "<td>" . $req->code . "</td>\n";
    print "</tr>\n";
    $c = $c eq $c1 ? $c2 : $c1;
}
print "</table><br /><br /><a href=\"javascript:history.back()\">revenir</a></body></html>\n";

PS: pardon pour la propreté du code.

25/06/2008, 12h02
CKLN00

je ne connais pas du tout le module LWP::UserAgent;
mais je pense que l'érreure 500 est du à une erreure de code dans le code qui utilise ce package.

si non quel intérêt à tu à utiliser CGI si tu en fait pas usage de ces méthodes ???

si tu à acces aux logs d'erreur du serveur essaye de les lire tu auras surment quelque chose pour t'aider la bas
25/06/2008, 12h09
PoMdaPiMp

J'utilise CGI.
Au moins pour récupérer les paramètres POST.

Le code du dessus n'est qu'un extrait de mon script.
J'utilise CGI plus loin dans le runtime.

Je vais checker les logs.
Merci.

Sinon, d'autres idées, d'autres participants ?
25/06/2008, 12h12
PoMdaPiMp

Tu avais bien raison ... erreur dans le package LWP UserAgent.

Quelqu'un a une alternative ?
25/06/2008, 13h22
CKLN00

montre nous la ligne d'erreur, car je ne pense pas que ça sois le package qui soit fautif mais plus-tôt ton code.
p-e que des gens qui connaise un peu le module pourrons t'aider
25/06/2008, 13h35
PoMdaPiMp

Merci de ton aide, meme intermédiaire.

Dans mes logs, j'ai ça:

[Wed Jun 25 13:32:20 2008] [error] Can't locate URI/URL.pm in @INC (@INC contains: /opt/lampp/lib/perl5/5.10.0/i686-linux /opt/lampp/lib/perl5/5.10.0 /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux /opt/lampp/lib/perl5/site_perl/5.10.0 /opt/lampp/lib/perl5/site_perl . /opt/lampp) at /var/www/cgi-bin/urlShaker.pl line 5.\nBEGIN failed--compilation aborted at /var/www/cgi-bin/urlShaker.pl line 5.\n

J'ai bien entendu mis un use URI:URL; après avoir fait un apt-get install liburi-perl
Chose que j'avais fait bien avant mais que je n'avais pas retranscrit dans le code donné ci-dessus.

Je suis en train de plancher sur une alternative en utilisant les Socket pour envoyer une requete toute simple.
25/06/2008, 13h47
CKLN00

d'après le message d'erreur il semblerais que URI::URL ne soit pas bien installer je peut pas en dire plus désoler:s !
25/06/2008, 19h40
Jedai

URI::URL ne semble pas être installé, alors que LWP l'est... c'est bizarre.

Par ailleurs installer le paquet ne sert à rien, URI::URL est installé dans le Perl de ton système, il n'est juste pas installé dans le Perl de ton Lampp (que tu n'as pas installé avec apt-get non ?). D'un autre côté, URI est une distribution pure Perl, il te suffit donc juste de copier l'arborescence URI de ton Perl actuel vers "/opt/lampp/lib/perl5/site_perl".

--
Jedaï