Bonjour,
Je souhaite accéder à ce site en m'identifiant via le formulaire de connexion.
http://eterna-rpg.forumactif.net/login.forum?connexion
Pour cela j'utilise LWP et Form. J'ai déjà utilisé un programme similaire pour me connecter à perlmonks sans problème. Mais dans ce cas je reçoit une erreur de type "erreur 200OK" donc la condition "$validate->is_success" n'est pas réalisée.
Voici mon script quelqu'un pourrait il me dire si il détecte une erreur ?
Peut être est la présence de PHP ou de javascript dans le forum qui pose problème ?

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTML::Form;
 
# affiche tout
#use LWP::Debug qw(+);
 
chdir "G:/essai" or die "impossible de changer de repertoire: $!";
 
my $url = 'http://eterna-rpg.forumactif.net/login.forum?connexion';
my $broswer = new LWP::UserAgent;
my $request = new HTTP::Request( GET => $url);
 
my $res = $broswer->request($request);
if ($res->is_success) {
	my $headers = $res->headers();
	my $content = $res->content();
}else{
	print "Erreur".$res->status_line."\n";
}
 
# le formulaire
my $form = HTML::Form->parse( $res->content, $url );
 
$form->value( username => 'rock' );
$form->value( password => 'vsuv8r3f' );
 
# valide et renvoie le formulaire
my $validate = $broswer->request( $form->click );
 
#sauvegarde de la réponse
if ($validate->is_success) {
	open REP, ">page.html" or die "impossible d'ouvrir le fichier :$!";
	select REP;
	print $validate->content;
	close REP;
	select STDOUT;
	print "success\n";
}else{
	print "Erreur".$res->status_line."\n";
}
<STDIN>;
Merci d'avance à qui voudra me donner un coup de main