Discussion :

[thopo57]

Bonjour à toutes et à tous,

J'ai un problème pour utiliser avec WWW::Mechanize.qui fournit une interface idéale.

Je désire faire une authentification sur un site Web.

J'utilise la méthode form_number() qui permet de sélectionner le formulaire sur lequel agissent les méthodes d'accès aux champs. forms().

Les champs à remplir qui sont retournés dans mon cas sont avec des $...

Du genre $toto$titi$tutu$pwd

Cela donne un résultat de type :

$VAR1 = bless( {
'inputs' => [
bless( {
'size' => '30',
'type' => 'password',
'name' => '$toto$titi$tutu$pwd'
}, 'HTML::Form::TextInput' ),
bless( {
'value' => 'Let me in...',
'type' => 'submit',
'name' => '$toto$titi$tutu'
}, 'HTML::Form::SubmitInput' )
],
'enctype' => 'application/x-www-form-urlencoded',
'method' => 'POST',
'attr' => {
'method' => 'POST'


Normalement pour la suite et donc le logon, je doit écrire
# page de login principale
$bot->get( $url );
$bot->form_number(1);
$bot->field( $toto$titi$tutu$pwd=> $pwd );
$bot->click();

mais ca ne passe pas à cause des $ repris dans le champ.

Existe-t-il une solution ?

Merci pour vos aides.

Cordialement
TP

[cmcmc]

Merci d'utiliser les balises quote et code...

Je ne suis pas certain de comprendre ton problème. Si c'est que ton script ne compile pas alors il suffit sans doute de quoter explicitement le nom du champ

Code :

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

1
2
3
4
5
# page de login principale
$bot->get( $url );
$bot->form_number(1);
$bot->field( q{$toto$titi$tutu$pwd} => $pwd );
$bot->click();

Si c'est autre chose merci d'expliciter ce qui 'ne passe pas' et le message d'erreur produit

[Lolo78]

Peux-tu montrer ce que tu as codé STP?

[thopo57]

Peux-tu montrer ce que tu as codé STP?

Voici le code... mais ca ne marche pas....

use strict;
use WWW::Mechanize;
use LWP::Simple;
use Data:umper;

my $fh;
my $content;
my $url;

my $url = 'http://www.site.com/login.aspx';

my $bot = WWW::Mechanize->new;
$bot->get($url);
$bot->form_number(1);
print Dumper $bot->current_form;

my $user= 'USER';
my $pwd = 'MOTDEPASSE';

# page de login principale
$bot->get( $url );
$bot->form_number(1);
$bot->field( q{ctl00$ctl00$ctl00$SiteContent$SiteContent$SiteContent$B2xPanel1$B2CLoginControl1$UserName} => $user ) or die "erreur user\n" ;
$bot->field( q{ctl00$ctl00$ctl00$SiteContent$SiteContent$SiteContent$B2xPanel1$B2CLoginControl1$Password} => $pwd ) or die "erreur pwd\n" ;
$bot->click() or die "erreur click\n";


$url = "http://www.site.com/page.aspx";

$bot->get($url);

open ($fh, '>', 'c:/test.html') or die ("open\n");
binmode $fh;
print {$fh} $bot or die "print\n";
close $fh;

[Lolo78]

Je ne connais pas du tout les modules que tu utilises, mais je me demande si ça ne marcherait pas mieux en remplaçant les deux q{ctl00...} par des qq{ctl00...}.