Mechanize Login Problem (Allgemeines zu Perl)

[thread]19941[/thread]

Mechanize Login Problem

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+8 replies
tadeus

2016-01-05 09:54
User since
2009-10-09
19 Artikel
BenutzerIn
Hallo,

ich teste gerade mich an Mechanize. Mein kleines Skript soll sich eigentlich nur hier einloggen und nen Status auslesen.
https://www.zentrada.de/login/

Dazu hab ich mir für den Login folgendes geschrieben:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

use WWW::Mechanize; use Data::Dumper; use Crypt::SSLeay; my $mech = WWW::Mechanize->new(); $mech->get( 'https://www.zentrada.de/login/' ); $mech->form_number(2); $mech->field('ff_email', 'xxx@gmx.de'); $mech->field( 'ff_passwort' , 'asdf!&§'); $response = $mech->submit(); if ($response->is_success) { print $response->decoded_content; } else { print STDERR $response->status_line, "\n"; }
Wenn ich nun das ausführe bekomme ich nur die Login Seite zurück. Nicht mal die Fehlermeldung für einen falschen Login oder was ähnliches.

Hab ich irgendwas vergessen?
Ich hab mir vorhin schon gedacht, dass es an den Sonderzeichen in Username u Passwort liegen könnte und die %21 ... Unicodes verwendet, die ich mit Firebug aus den Post Sachen extrahiert hab.

Kann mir da jemand weiterhelfen?
- GwenDragon
  
  2016-01-05 10:11
  
  User since
  2005-01-17
  14849 Artikel
  Admin1
  
  Vermute, dass du use utf8; benutzen solltest und dein Programm als UTF-8 ohne BOM speichern, wenn du Unicode-Sonderzeichen im Formular verwendest.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- gelöscht 2016-01-05 10:45
- +5 replies
- tadeus
  
  2016-01-05 11:13
  
  User since
  2009-10-09
  19 Artikel
  BenutzerIn
  
  Ich hab jetzt mal die Sache mit Mechanize::Firefox getestet und siehe da ich bekomme eine Meldung namens: "Sorry I dont know which form to submit ..."
  
  Da auf der Seite mehrere Forms sind, hab ich da nicht das Auswählen mit $mech->form_number(2); erledigt?
  Muss man bei $mech->submit(); auch angeben welches Form abgesendet werden soll? Ich finde dazu nichts.
  Oder gibts dafür eine andere Lösung?
  Last edited: 2016-01-05 11:28:04 +0100 (CET)
  - +4 replies
  - renee
    
    2016-01-05 12:04
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Du könntest submit_form versuchen:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
    
    use WWW::Mechanize; use Data::Dumper; use Crypt::SSLeay; my $mech = WWW::Mechanize->new(); $mech->get( 'https://www.zentrada.de/login/' ); $mech->submit_form( form_number => 2, fields => { 'ff_email' => 'xxx@gmx.de', 'ff_passwort' => 'asdf!&§', }, ); if ($response->is_success) { print $response->decoded_content; } else { print STDERR $response->status_line, "\n"; }
    
    Evtl. noch den Button angegeben...
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
    - +3 replies
    - tadeus
      
      2016-01-05 13:01
      
      User since
      2009-10-09
      19 Artikel
      BenutzerIn
      
      Mit deiner Variante hat er auch gemosert, ich habs jetzt nochmal neu geschrieben. Jetzt kommt zwar kein Form Fehler mehr. Beim submit jedoch macht er immer noch irgendwas falsches. Man sieht im Firefox wie er alles richtig ins Form einträgt, aber am Ende sieht es aus als ob er die Seite einfach nochmal läd. Wenn ich das Skript vor dem Submit anhalte und selbst manuell auf den Button klicke, funktionierts.
      
      Was stimmt da nicht?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      use WWW::Mechanize::Firefox; use Data::Dumper; use utf8; my $mech = WWW::Mechanize::Firefox->new( launch => 'firefox', autoclose => 0 ); $mech->get( 'https://www.zentrada.de/login/index.cfm' ); $mech->form_number(2); $mech->field('ff_email', 'xxxx'); $mech->field( 'ff_passwort' , 'xxxx'); $response = $mech->submit();
      
      Eigentlich nichts komplexes, aber warum das nicht funktioniert ist mir ein Rätsel.
      - +2 replies
      - renee
        
        2016-01-05 13:22
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Hast Du mal mit den DeveloperTools im Firefox geschaut, was beim manuellen Submit alles an Parametern und Cookies mitgeschickt wird?
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        tadeus
        
        2016-01-05 13:39
        
        User since
        2009-10-09
        19 Artikel
        BenutzerIn
        
        Ja, POST ist nur ff_email, ff_passwort und submit.´
        Cookies werden auch gesendet, aber nur welche die beim ersten Seitenaufruf auch generiert wurden. Ohne Cookies funktioniert der Login auch. Habs vor nem Test-Submit komplett gelöscht.
        Last edited: 2016-01-05 13:41:25 +0100 (CET)

View all threads created 2016-01-05 09:54.