Discussion :

[nicolaskarp]

Bonjour,

Je n'arrive pas à me connecter au site de free. Je recois une erreur 404. Je ne comprends pas d'ou elle peut venir..

Merci d'ava,ce

Nicolas.

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
 
#! /usr/bin/perl -w
 
use strict;
use LWP::UserAgent;
use HTML::Form;
 
my ($user , $pass) = qw (tel pass);
my $http = 'http://subscribe.free.fr/';
 
my $ua = LWP::UserAgent->new(
		agent => 'Mozilla/5.0');
 
my $req = HTTP::Request->new (GET => "${http}login/login.pl");
 
my $res = $ua -> request($req);
die $res->status_line if not $res->is_success;
 
 
my $form = (HTML::Form->parse ($res->content , $http) )[1];
 
$form->find_input('login')->value($user);
$form->find_input('pass')-> value($pass);
 
my $rep  = $ua->request ($form->click) ;
 
if ($rep->is_success){
	print "succes";
}else{
	print "non success";
}

[Jedai]

De toi vraisemblablement, puisque en utilisant le même script je me connecte sans problème. N'aurais-tu pas oublié de configurer un Proxy ou quelque chose comme ça ?

--
Jedaï

[nicolaskarp]

Non vu que j'arrive bien a recuperer la page de login, je l'affiche pour test et ca marche.. De plus, mon script t'affiche success?

[Jedai]

Attends, l'erreur 404 est au niveau de la seconde requête ? Celle généré par HTML::Forms ?

Dans ce cas, je pense que l'erreur est plutôt là :

Code :

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

my $form = (HTML::Form->parse ($res->content , $http) )[1];

A mon avis, ça devrait plutôt être :

Code :

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

my $form = (HTML::Form->parse ($res->content , "${http}login/login.pl") )[1];

Ou peut-être encore mieux, plus court et plus robuste :

Code :

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

my $form = (HTML::Form->parse ($res))[1];

--
Jedaï