Discussion :

[Batou]

Bonjour,

J'ai un petit probleme avec la connexion a une page qui necessite l'entree d'un ID et PW.
Je lance une requete, je capture la reponse, et prend la form qui contient les input ID et PW.

Code :

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

1
2
3
4
5
6
7
my $form = (HTML::Form->parse( $Response->content, 'http://www.totaltele.com/topstories.asp' ))[1];
 
my $password = $form->find_input('AuthenticatedUser_Password');
$password->value('blablabla');
 
my $user = $form->find_input('AuthenticatedUser_UserName');
$user->value('blablabla');

Je lance la requete apres :

Code :

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

$Ua->request( $form->click );

Cependant, je n'arrive pas a recevoir les pages auxquelles j'ai droit qd je me connecte normallement !
HELP !

Merci d'avance
Batou

[Batou]

RE-salut,

j'ai du nouveau sur ma requete.
En fait, j'ai l'impression que tout fonctionne. Cependant, qd je capture le resultat (la page) apres avoir lance la requete, j'ai :

Code :

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

302 object moved at file.pl line 35

Et j'ai rien dans le fichier enregistre en dur !


Comment on fait pour rattraper cette requete qui "move" ?

voila, a bientot
Batou

[Batou]

Salut Batou, c'est batou ! hehehe

Bon, j'ai resolu tous tes problemes :
il y avait une redirection et un cooky qui manquait.

Si ca peut aider qqn d'autre, le code est :

Pour la redirection :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    my $form = (HTML::Form->parse( $Response->content, $url ))[1];
    my $password = $form->find_input('AuthenticatedUser_Password');
    $password->value('PW');
    my $user = $form->find_input('AuthenticatedUser_UserName');
    $user->value('ID');
    $Response = $Ua->request( $form->click );
    while ($Response->is_redirect) { # as long as we are re-directed
      print "redirected to $url\n";
      my $url = $Response->header('Location'); # get the header
      $Response = $Ua->request(HTTP::Request->new(GET => 'http://www.mysiteinvolved.com'.$url)); # launch a new request
    }

Pour les cookies :

Code :

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

1
2
  push @{ $Ua->requests_redirectable }, 'POST';
  $Ua->cookie_jar(HTTP::Cookies->new(file => "C:\/Perl\/test1\/lwpcookies.txt", autosave => 1));

voila, ++
Batou