IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Web Perl Discussion :

Probleme pour authentification


Sujet :

Web Perl

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    juillet 2008
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2008
    Messages : 10
    Points : 6
    Points
    6
    Par défaut 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 $...

    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

  2. #2
    Membre confirmé
    Avatar de cmcmc
    Homme Profil pro
    Inscrit en
    juillet 2013
    Messages
    316
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : juillet 2013
    Messages : 316
    Points : 641
    Points
    641
    Par défaut
    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
    Sauf indication contraire tous les codes que je présente sont utilisables et testés (mais sans garantie d'aucune sorte)
    J'apporte beaucoup de soin à la rédaction de mes posts et apprécie les retours donc merci de s'il vous paraissent pertinents ou utiles
    Lazyness, Impatience and Hubris are good for you

  3. #3
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 612
    Points : 12 465
    Points
    12 465
    Billets dans le blog
    1
    Par défaut
    Peux-tu montrer ce que tu as codé STP?

  4. #4
    Futur Membre du Club
    Profil pro
    Inscrit en
    juillet 2008
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2008
    Messages : 10
    Points : 6
    Points
    6
    Par défaut
    Citation Envoyé par Lolo78 Voir le message
    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;

  5. #5
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 612
    Points : 12 465
    Points
    12 465
    Billets dans le blog
    1
    Par défaut
    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...}.

Discussions similaires

  1. probleme d'authentification pour un nouvel utilisateur dynamicvs crm 4.0
    Par saspi dans le forum Microsoft Dynamics CRM
    Réponses: 20
    Dernier message: 09/08/2010, 22h41
  2. [LG]Divers problémes pour un programme.
    Par Horus TCT dans le forum Langage
    Réponses: 14
    Dernier message: 24/05/2003, 23h04
  3. Probleme pour les insertion au format etranger
    Par Sandrine75 dans le forum XMLRAD
    Réponses: 5
    Dernier message: 19/03/2003, 10h55
  4. [Kylix] probleme pour lancer le shell
    Par miky dans le forum EDI
    Réponses: 5
    Dernier message: 13/08/2002, 09h39
  5. Réponses: 2
    Dernier message: 30/05/2002, 08h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo