Discussion :

[Woufeil]

Bonjour tout le monde !

Bon, je voulais m'amuser à faire un script qui me log sur un site, jusque là rien de bien compliqué. Donc je fais mon petit script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my $base = "http://...;
 
#on créé l'agent
my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)' );
 
##############       Connexion      ##############
 
#on créé une requête et on vérifie son résultat
my $req1 = HTTP::Request->new( GET => "http://..." );
my $res1 = $ua->request($req1);
die $res1->status_line unless $res1->is_success;
 
#on récupère et on rempli le forumlaire
my $form1 = ( HTML::Form->parse( $res1->content, $base ) )[2];
$form1->find_input("MP_login")->value("Woufeil");
$form1->find_input("MP_password")->value("xxxx");
my $res2 =  $ua->request( $form1->click() );
print $res2->status_line;

Et bien allez savoir pourquoi, le print me retourne une jolie 405 : method not allowed. J'ai bien vérifié que chaque champ était initailisé via la fonction value, c'est OK.

Je sais pas si ça peut venir de là mais pour valider il faut cliquer sur une image. Normalement d'après la doc ça marche quand même mais bon. Autre chose, il n'y a pas d'actions dans le forumaire (il y a action = "").

Je ne peux pas vous donner l'URL de la page en question, c'est un serveur de test et l'admin de se serveur ne veut pas qu tout le monde aille sur son site.

Si vous avez une solution... Je peux vous donner le forumaire si besoin...

[Mr6]

pour sûr, action="" veut dire que c'est la page appelée qui traitera le contenu du formulaire envoyé. C'est ce que j'utilise pour mettre toute une appli web dans un seul script perl