Probleme pour authentification

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 $...:cry:

Du genre $toto$titi$tutu$pwd :roll:

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.:oops:

Cordialement
TP

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:

---

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

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

Citation:

---

Envoyé par Lolo78

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::Dumper;

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;

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...}.