LWP Webabfrage Benutzername Passwort Fehler 401 (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]18244[/thread]

LWP Webabfrage Benutzername Passwort Fehler 401

Tags: perl5 Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+9 replies
lechez

2013-04-01 11:48
User since
2013-04-01
4 articles
BenutzerIn
Hallo

Ich Versuche meinen WR abzufragen LWP
Ich kann mich mit dem Browser an den Wechselrichter anmelden:
http://192.168.2.10/data/ajax.txt?CAN=1&HASH=00100403&TYPE=1
Und bekomme das zurück:
104 W;101 W;112 VA;55 var;337.00;234.20;0.31;0.43;104;98;---;---;0.78 i;0.01;0.01;520.91;1463.56;132;0;0;AT 4500;1; x 00100403;01;00000001

Wäre schön mit einem Perl Programm dies abzufragen. Einfach die Werte loggen und darstellen.

Bei mir scheitert es bei der Anmeldung am WR.
Ich habe mal versucht ein Perl Programm zu schreiben:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

use LWP::UserAgent; use HTTP::Request; use HTTP::Cookies; my $url = shift || 'http://192.168.2.10/data/ajax.txt?CAN=1&HASH=00100403&TYPE=1'; # setup your browser my $ua = LWP::UserAgent->new(keep_alive => 1, timeout => 300); # what kind of browser you are $ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.3a) Gecko/20021207 Phoenix/0.5"); # a place to store cookies, if needed $ua->cookie_jar( HTTP::Cookies->new(file => "perlcookies.dat", autosave => 1) ); # now build a request my $request = HTTP::Request->new( GET => $url ); # set credentials $request->authorization_basic('BN','PW'); # run browser my $response = $ua->request($request); # and check response printf $response->content();
Ich kann mit dem Programm auf fhem (auch Passwort geschützt mit htaccess) zugreifen aber nicht auf den Wechelrichter es kommt als Ausgabe:
Code (html): (dl )

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head><meta name="generator" content="HTML Tidy for Windows (vers 1st April 2002), see www.w3.org"><title>401 Unauthorized</title></head><body><script type="text/javascript">function getURL(){return document.URL();}</script><h1>Unauthorized</h1><p>Authorization for the requested URL: <b><script type="text/javascript">document.write(document.URL);</script></b> required.</p><hr><address>emBetter web server 2.0</address></body></html>
Welchen Denkfehler mache ich?
Vielleicht kann mir jemand helfen.

modedit Editiert von pq: code-tags hinzugefügt
modedit Editiert von GwenDragon: unnützen lokalen Link in inline-CODE gesetzt
Last edited: 2013-04-01 14:26:44 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2013-04-01 14:30
  
  User since
  2005-01-17
  14939 articles
  Admin1
  
  Glaskugelmodus:
  Authorisierung kann nur mit Internet Explorer
  Authorisierung verwendet Javascript
  Authorisierung verwendet Digest Access Authentication statt BAsic Authentication
  Passwort enthält Umlaute u. a. Nicht-ASCII-zeichen
  Last edited: 2013-04-01 14:31:34 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - lechez
    
    2013-04-01 21:34
    
    User since
    2013-04-01
    4 articles
    BenutzerIn
    
    Danke Danke! Das wars digest Access!!! ich habs Suppii,
    hier meine Werte aber, es ist ja dunkel!
    
    0 W;0 W;0 VA;0 var;1.30;234.30;0.00;0.00;0;0;---;---;0.00 c;21.16;21.16;542.05;1484.71;8;0;0;AT 4500;1;
    
    x
    
    00100403;01;00000001
    
    Wer lesen kann ist ganz klar im Vorteil!
    
    Jetzt kann es in FHEM weiter gehen.
    
    1000 Dank,
    
    Gruß
    
    lechez
- +3 replies
- GwenDragon
  
  2013-04-01 14:33
  
  User since
  2005-01-17
  14939 articles
  Admin1
  
  Crosspost auf http://forum.fhem.de/index.php?t=msg&th=12034&goto...
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - lechez
    
    2013-04-01 20:57
    
    User since
    2013-04-01
    4 articles
    BenutzerIn
    
    Hallo GwenDragon,
    
    2013-04-01T12:33:07 GwenDragon
    Crosspost auf http://forum.fhem.de/index.php?t=msg&th=12034&goto...
    
    Ja ich hab es auch da eingestellt, da mein Ziel ist für FHEM ein Modul zu Programmieren, die bei bestimmten KW Werten meine Wärmepumpe und andere Gräte schaltet.
    Ich hoffe ich bekomme noch Unterstützung.
    
    Ich bin auch für Glaskugel aufgeschlossen.
    Das Passwort sind keine Umlaute enthalten, auch keine Sonderzeichen.
    Kann ich die Auth Methode auf digist umstellen?
    
    Danke für die Mühe,
    
    Gruß
    Le Chez
    - GwenDragon
      
      2013-04-02 10:45
      
      User since
      2005-01-17
      14939 articles
      Admin1
      
      Du musst rausbekommen, welches der sogenannte Realm ist.
      
      Rufe dazu auf der Shell/Kommandzeile deine URL auf mit
      lwp-request -USsed "http://192.168.2.10/data/ajax.txt?CAN=1&HASH=00100403&TYPE=1"
      Dann kann da eine Zeile stehen die lautet:
      WWW-Authenticate: Digest realm="testrealm@192.168.2.10",
      Der Realm ist das was nach realm= in "" steht.
      Dieser muss zum Authentifizieren mit angebeben werden.
      Außerdem braucht es auch noch Hostname und Port.
      
      Oder du fragst den Realm mit den Programm aus msg #153024 ab.
      
      Ein Login mit Realm muss für LWP also lauten (Beispiel)
      
      Code (perl): (dl )
      
      $ua->credentials($host . $port, $realm, $username, $password);
      
      Last edited: 2013-04-02 10:52:01 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- MarkusH
  
  2013-04-01 14:36
  
  User since
  2012-04-08
  162 articles
  BenutzerIn
  
  Was für ein Wechselrichter ist das?
  $q =~ /(bb|[^b]{2})/
  - lechez
    
    2013-04-01 20:46
    
    User since
    2013-04-01
    4 articles
    BenutzerIn
    
    hallo,
    
    danke für die schnellen Antworten,
    
    Es ist ein AT 4500 von sunways.
- pq
  
  2013-04-01 21:36
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Netzwerkprogrammierung und Netzwerke mit Perl
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2013-04-01 11:48.