[web] Connexion http avec ID et PW

Version imprimable

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:

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:

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

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

Merci d'avance :)
Batou

03/03/2005, 10h35
Batou

object moved

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:

302 object moved at file.pl line 35

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

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

voila, a bientot
Batou :roll:

reponse a tous tes problemes !

Salut Batou, c'est batou ! hehehe :P

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:

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:

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

voila, ++
Batou :D