Discussion :

[alo501]

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

[notrustinyou]

Salut,

je viens de tester la connexion, et à priori il n'y a aucun problème.

Voici mon petit bout de code:

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
#!c:/perl/bin -w
 
	use strict; use warnings;
	use WWW::Mechanize;
 
 
	my $URL = "http://eterna-rpg.forumactif.net/login.forum?connexion";
 	my $m = WWW::Mechanize->new;
 
	# récupération du formulaire
	$m->agent_alias("Linux Mozilla");
	$m->get( $URL );
	die 'Échec de connexion : ' . $m->res->status_line()
      		unless $m->success();
 
	# remplissage et validation
	$m->set_fields(
		username => 'rock', # entrez vos identifiants de connexion ici
		password => 'vsuv8r3f'
	);
	# validation formulaire
	$m->click();
 
	# connexion réussie ?
	die 'Échec de validation du formulaire : ' . $m->res()->status_line()
		unless $m->success();
 
	# affichage resultat
	print $m->content( format => 'text' );

En espérant que cela a pu t'aider.
A +

[alo501]

Merci pour ta réponse!
Effectivement ça marche maintenant. L'erreur provient donc bien de mon code. J'utilise mechanize plutôt que LWP maintenant. Je vais quand même essayer de trouver l'erreur de mon code et de le réécrire.
Encore merci.