Module HTML::Form /erreur

Version imprimable

Bonjour,

Je souhaite effectué une requête via une page d'authentification d'une application en perl et récupérer un champs sur la page suivant la page d'authentification après que celle ci soit validé.
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 25 26 27 use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); use POSIX qw(strftime ctime); use Getopt::Long; use strict; use LWP::UserAgent; use HTML::Form; my $url ='XXXXXXXXXXXX'; my $ua = LWP::UserAgent->new(); #agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)' ); # récupère le formulaire la première fois. my $req = HTTP::Request->new( POST => "${url}" ); # envoie la requête HTTP my $res = $ua->request($req); die $res->status_line if not $res->is_success; # récupère le formulaire HTML my $form = ( HTML::Form->parse( $res->content, $url ) )[0]; # on remplit la zone d'input avec "Informatique" $form->find_input('useralias')->value("admin"); $form->find_input('password')->value("admin"); # on soummet le formulaire ... $res = $ua->request( $form->click("submit") ); die $res->status_line if not $res->is_success; #résultats dans $res->content print $res->content;
La premiere étape marche sans probleme :

Code:

my $res = $ua->request($req);

Mais j'ai ensuite une Erreur HTTP 302 au niveau de la ligne :

Code:

$res = $ua->request( $form->click("submit") );

Quelqu'un aurait-il une idée?

EDIT : Interrogation supplémentaire : de cette manière on peut obtenir la page vers laquelle la page d'authentification c'est redirigé?

Merci d'avance!

Tu dois pouvoir suivre la redirection à la main, mais autant utiliser les capacités de LWP::UserAgent en surchargeant la méthode redirect_ok() pour qu'elle renvoie 1.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #!/usr/bin/perl package MyAgent; use base 'LWP::UserAgent'; sub redirect_ok { return 1; } package main; use strict; use warnings; use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); use POSIX qw(strftime ctime); use Getopt::Long; use HTML::Form; my $url ='XXXXXXXXXXXX'; my $ua = MyAgent->new(); #...
--
Jedaï

--
Jedaï

17/03/2008, 14h08
Katachana

J'obtiens toujours le même résultat de cette manière.
Si je connais les deux url => page d'authentification et page d'accueil, ne serait-il pas possible de conserver l'authentification (cookies? variable de session?) afin de pouvoir accéder à la page d'accueil?

ma problématique étant : Authentification et recherche d'un mot clé sur la page d'accueil.

Merci d'avance !

J'ai réussi à trouver la syntaxe qu'il me faut mais j'ai en retour la page d'authentification avec comme message 'invalid user'.

Le grand mystère est que pour m'identifier j'ai le couple admin/admin que je passe bien en parametre :

Verification avec $form->dump;
Code:

1 2 3 4 5 POST http://XXXXXXXXXXXX.php [login] useralias=admin password=admin (password) submit=Login (submit)
Auriez vous une idée d'ou peut provenir mon probleme sachant qu'au niveau du login/mdp j'ai bien saisie les bonnes informations....

Code :
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 25 26 27 28 my ($login, $mdp, $url, $ua, $reponses, $form); $login = 'admin'; $mdp = 'admin'; $url = 'http://XXXXXXXXXXXXX.php'; $ua = LWP::UserAgent->new( agent => 'Mozilla/4.0 (compatible; MSIE 6.0)', timeout => 10, ); my $reponse = $ua->get($url); if( $reponse->code == 200) { $form= HTML::Form->parse($reponse->content,$url); $form->find_input('useralias')->value($login); $form->find_input('password')->value($mdp); $form->dump; $reponse = $ua->request($form->click); print $reponse->content."\n"; if($reponse->content =~ m/admin/) { print "OK \n"; } else { print "CRITICAL \n"; } } else { print "CRITICAL ACCES\n"; } exit
Autant pour moi, j'ai toujours l'erreur 302, qui me bloque au moment de la requete de validation du form

J'ai trouvé la solution en utilisant une autre librairie Perl : (j'ai passé deux jours a comprendre que ce code ne marchait pas via une application(centreon) si l'on ne spécifiait pas le chemin de la librairie!!!:bug::bug:qw(/usr/lib/perl5/site_perl/5.8.8/) en l'occurence...)

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#! /usr/bin/perl -w -T
 
use lib qw(/usr/local/nagios/libexec/);
use utils qw(%ERRORS $TIMEOUT);
use Getopt::Long;
require warnings;
use strict;
use WWW::Mechanize qw(/usr/lib/perl5/site_perl/5.8.8/);
no warnings;
 
    my $output="";
    my $statut="";  
    my $mech = WWW::Mechanize->new();
    my $url="http://xxxxxxxxxxxxxxxxxx.php";
 
    # formulaire de login
    #print $url;
    $mech->get($url);
    if($mech->success()){
    # remplissage et validation
    $mech->set_fields(
        useralias => "admin",
        password => "admin",
    );
    $mech->click();
    die $mech->res->status_line() unless $mech->success();
    if($mech->content() =~ m/Host Stats/) {
        $output="OK - Test de connexion\n";
        $statut="OK";
    }
    else {
        $output="KO - Test de connexion\n";
        $statut="CRITICAL";
    }
    }
    else {
       $output="KO - Test de connexion\n";
       $statut="CRITICAL";
    }
print $output;
exit $ERRORS{$statut};