Perl

problème formulaire envoie d'un get au lieu d'un post...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : problème formulaire envoie d'un get au lieu d'un post...

manuche59

Bonjour,

J'ai un petit problème avec le module HTTML::Form. Je me connecte tout d'abord en http sur une adresse qui demande un login et un mot de passe. Je récupère le formulaire et le renvoie complété.
Suite à cela, le serveur me renvoie bien la page que j'ai spécifié dans l'url ($base). Mais cette page, récupérée dans la variable $res2, correspond en fait à un formulaire que j'aimerai compléter dans mon script. J'ai donc écris cette ligne : my $form2 = HTML::Form->parse( $res2->content ); mais le shell me donne l'erreur suivante : HTML::Form::parse: No $base_uri provided at scriptHttp2qua.pl line 39

Je sais bien qu'il faut normalement préciser l'url, mais c'est inutile dans ce cas et sur le site des mongueurs, ils l'écrivent aussi de cette manière : http://articles.mongueurs.net/maga [...] mag56.html (à la fin, dans gestion des formulaires complexes).

Si je précise l'url, j'ai l'erreur suivante : Can't call method "value" on an undefined value at scriptHttp2qua.pl line 40.

Est ce que quelqu'un peut m'aider à récupérer le deuxième formulaire contenu dans $res2 (qui comprend l'en-tête+formulaire) ?

De plus, le cookies ne s'efface pas à la fin de mon script. Quelqu'un sait-il pourquoi ? Faut-il fermer la connexion plus proprement ?

Voici le code afin que vous puissiez voir ce que je cherche à faire :

Code :

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTML::Form;
use HTTP::Cookies;
use LWP::Simple;
# les paramètres personnels
my ( $user, $pass ) = qw( nom mdp );
my $base = 'http://X.X.X.X/RTIR/Create.html?Queue=Incidents';
my $req;
my $cookies = 'cookies.txt';
# initialisation de l'agent
my $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0 (X11; U; Linux i686; fr; rv:1.9.0.14)',
cookie_jar => HTTP::Cookies->new(
file => $cookies,
autosave => 1,
ignore_discard => 1 )
);
# création de la requête
$req = HTTP::Request->new( GET => "$base" );
# exécute la requête et reçoit la réponse
my $res = $ua->request($req);
die $res->status_line if not $res->is_success;
# formulaire de login
my $form = ( HTML::Form->parse( $res->content, $base ) );
# remplit les champs
$form->find_input('user')->value($user);
$form->find_input('pass')->value($pass);
# valide et renvoie le formulaire
my $res2 = $ua->request( $form->click );
print $res2->content;
my $form2 = HTML::Form->parse( $res2->content );

Merci d'avance,

Emmanuelle

Message édité par manuche59 le 14-10-2009 à 15:45:31

Publicité

gilou

Modérateur
Modosaurus Rex

:hello: Bonjour,
WWW::Mechanize ne serait il pas plus adapté a votre problème? L'auteur de l'article sur le site des mongueurs mentionne d'ailleurs ce module dans sa conclusion, en annonçant un exemple de son emploi dans un article ultérieur.

Sinon, pourquoi ne pas avoir essayé avec:
my $form2 = HTML::Form->parse( $res2->content, $base);
ça semblerait assez logique, à priori.

Si vous ne voulez pas garder les cookies, pourquoi avoir fait: "autosave => 1" dans les paramètres de création du cookie.
Vous pouvez toujours tout nettoyer avec un appel à $cookie_jar->clear(); [qui est parfaitement documenté dans HTTP::Cookies]

A+,

Message édité par gilou le 12-10-2009 à 16:24:19

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

manuche59

Bonjour !

Oui c'est vrai qu'il y a WWW::Mechanize. Je vais regarder si ce n'est pas plus simple avec ce module.

Sinon j'avais un bug hier quand j'ajoutais l'url $base : my $form2 = HTML::Form->parse( $res2->content, $base); c'est pour ca que j'ai posté un message parce que je ne savais plus comment faire. Mais c'est good en fait, l'erreur venait d'une autre ligne. Ca marche donc comme cela

Pour les cookies, j'ai arrêté de les enregistrer
Par contre, si je les enregistre, il faut que je fasse un test pour ouvrir directement la connexion avec le cookies si il est présent c'est ca ? Je n'arrive pas à faire correctement ce test, même avec l'article des mongueurs, j'ai des bugs ensuite. Il me dit que "value" dans la recherche de données dans le formulaire est "undefined". Enfin, je pense que je ne vais pas sauvegarder les cookies comme ca ce sera plus simple.

Merci pour ton aide, ca m'a remis les idées en place . A force de développer, je me perds un peu...
En cas de problème, je te redemanderai de l'aide, si tu veux bien, bien sur

Merci !

gilou

Modérateur
Modosaurus Rex

:hello:
Pas de pb, si c'est dans mes cordes.

Citation :

Oui c'est vrai qu'il y a WWW::Mechanize. Je vais regarder si ce n'est pas plus simple avec ce module.

C'est un module qui permet facilement (entres autres) d'automatiser le connexion à un serveur web dans lequel on doit renvoyer des formulaires remplis.
A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

manuche59

Bonjour,

Donc, sur tes conseils, j'ai utilisé Mechanize. C'est super, ca marche bien et c'est plus facile à utiliser.
Voici le nouveau code :

Code :

#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use HTTP::Cookies;
my $cookies = 'cookies.txt';
my $bot = WWW::Mechanize->new(
agent => 'Mozilla/5.0 (X11; U; Linux i686; fr; rv:1.9.0.14)',
cookie_jar => HTTP::Cookies->new(
file => $cookies,
autosave => 0,
ignore_discard => 1
)
);
my $response = $bot->get('http://X.X.X.X/');
die $bot->res->status_line if not $bot->success;
$bot->set_fields( user => 'moi', pass => 'mdp' );
$bot->click();
$bot->follow_link( text_regex => qr/RTIR/);
$bot->follow_link( text_regex => qr/Incidents/);
$bot->follow_link( text_regex => qr/New Incident/);
$bot->set_fields ( Subject => 'test2', Description => 'test2', Classification => 'System Compromise', IP => 'X.X.X.X' );
$bot->click();

J'ai sniffer les paquets avec Wireshark pour voir ce qui ce passait en http en filtrant sur l'adresse ip. Tout ce passe bien pour le premier formulaire de Login (apparition d'une action post dans wireshark). Ensuite je me ballade sur le site jusqu'au lien New Incident. Sur cette page New Incident se trouve un formulaire que j'aimerai remplir et poster ensuite. J'ai pu constater grace à wireshirk que je recevez bien en réponse le deuxième formulaire. Je remplie donc les champs et c'est juste apres, au moment de la validation du formulaire que ca coince (j'avais la meme chose avec lwp) ... En effet, le formulaire n'est pas posté sur le site et dans l'analyse de wireshark, je constate la chose suivante :

328 4.156855 mon@ip X.X.X.X HTTP GET /RTIR/index.html?NewSearch=1&Queue=Incidents&q=&Subject=test2&IP=X.X.X.X&Classification=System+Compromise&Description=test2 HTTP/1.1

J'ai une requête get et non post ! C'est sur que ca ne peut pas fonctionner... Je trouve ca assez étrange... Et je n'ai aucune idée pour résoudre ce pb...
Ca marche sans souci pour le premier formulaire et pas pour un autre...
Comment se fait-il que mon programme envoie une requête GET au lieu de POST ??

Je commence à désespérer... Ca serait cool si tu pouvais encore m'aider Le peux - tu ?
Si quelqu'un a une idée, je suis preneuse !

Message édité par manuche59 le 14-10-2009 à 15:52:52

gilou

Modérateur
Modosaurus Rex

:hello: Bonjour,

Quand on fait un click() WWW:Mechanize fait un GET ou un POST suivant une heuristique proprio, que je ne connais pas, mais qui en général marche. A priori, en utilisant mech-dump, on doit savoir ce qu'il va invoquer, si j'ai bien compris la FAQ: http://search.cpan.org/dist/WWW-Me [...] correctly?

Une suggestion: essayer $bot->post() sinon, essayer avec $bot->submit_form( ... ) avec les bons paramêtres.

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

FORUM HardWare.fr

Programmation

Perl

problème formulaire envoie d'un get au lieu d'un post...

Sujets relatifs
Problème avec mail() ou alors avec le pop d'hotmail	probleme d'affichage de mon site web
Problème Latex	[ASP.NET/VB]Problème Findcontrol
[Résolu] Problème syntaxe xhtml	Probleme dans l'ecriture un bat
Probleme robot google ? Ma source internet ? aidez moi	[Résolu] - [XSL] problème avec un xls:for-each
problème crash Excel 2000 après supression d'un onglet	Probleme installation CodeBlocks(mingw32)
Plus de sujets relatifs à : problème formulaire envoie d'un get au lieu d'un post...

Page générée en 0.067 secondes