BlueSocket API Schnittstelle mit Perl (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]20560[/thread]

BlueSocket API Schnittstelle mit Perl

Tags: perl5 LWP API cURL Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+8 replies
numerobis

2019-01-17 21:49
User since
2019-01-17
6 articles
BenutzerIn
Hallo,

ich hoffe ich bin hier richtig und Ihr könnt mir bei meinem Problem weiterhelfen. Ich benötige für eine Benutzeroberfläche eine Schnittstelle zu meinem WLAN Management. Bei dem WLAN Management handelt es sich um BlueSocket von adtran. In der Doku habe ich ein Beispiel mit curl gefunden, das auf meinem Linux Rechner auch funktioniert. Ich würde nun gerne diese Web API Abfrage mit Perl auf meinem Windows Server realisieren. Leider sind bis jetzt all meine Versuche gescheitert.

Hier der Programmcode aus der Doku, der einen Gast Benutzer anlegt:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

*************************************************************************************** curl -i -H “Accept:application/xml” -H “Content-Type:application/xml” -X POST -k -u root@adtran.com:blueblue https://10.180.0.50:3000/internalusers?active_domain_name=default -d “<internaluser><name>”tguser”</name><password>”tgpass” </password><password_confirmation>“tgpass”</password_confirmation><role_id>2 </role_id><max_num_login>1</max_num_login><never_expire>1</never_expire><enabled>1 </enabled></internaluser>” ***************************************************************************************
könnt Ihr mir evtl. sagen, wie ich das realisieren kann? Bin für jede Hilfe dankbar.

Grüße
Numerobis
- Linuxer
  
  2019-01-17 21:57
  
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  
  Und welche Versuche hast Du bereits unternommen? Und was waren die Ergebnisse.
  
  Spontan würde ich vorschlagen:
  
  - anhand curls manpage ermitteln, was genau die Optionen bedeuten
  - Perl's Modul LWP::UserAgent verwenden und die gesetzten Optionen damit nachbilden
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- haj
  
  2019-01-17 22:02
  
  User since
  2015-01-07
  557 articles
  BenutzerIn
  
  Wenn's mit curl funktioniert, dann ist wohl der einfachste Weg, sich das curl-Kommando automatisch in Perl-Code konvertieren zu lassen. Dazu gibt es das Programm curl2lwp.pl.
  
  Ansonsten scheint mir auch Handarbeit mit LWP kein Hexenwerk zu sein. Was hast Du denn versucht - und wie weit bist Du gekommen?
  - numerobis
    
    2019-01-17 22:43
    
    User since
    2019-01-17
    6 articles
    BenutzerIn
    
    wow, das ging ja mal fix mit einer Antwort. Ich bin begeistert :-).
    
    Ich werde Morgen einmal versuchen mit dem Tool curl2lwp zu experimentieren. Mal schauen ob ich etwas hin bekomme...
    
    Bis dahin vielen Dank für den Tip
- +4 replies
- numerobis
  
  2019-01-18 10:21
  User since
  2019-01-17
  6 articles
  BenutzerIn
  Ich habe das Skript nun einmal etwas vereinfacht. Mit dem Befehl
  
  Code: (dl )
  
  curl -X GET -k -u root@adtran.com:Password https://wlan.adtran.com:3000/internalusers.json
  
  Werden alle Benutzer ausgegeben. Wenn ich jetzt versuchen diesen Befehl in Perl "nachzubauen", scheitere ich bereits an der Anmeldung am Server.
  
  Mein Perl Skript schaut wie folgt aus:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  use strict; use warnings; use IO::Socket::SSL qw(); use 5.010; use LWP::UserAgent; my $ua = LWP::UserAgent->new(ssl_opts => { SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, verify_hostname => 0,} ); $ua->credentials( 'root\@adtran.com', 'Password'); my $resp = $ua->get( 'https://wlan.adtran.com:3000/internalusers.json' ); say $resp->status_line;
  
  Vermutlich liegt es daran, dass in dem Benutzernamen ein @-Zeichen enthalten ist. selbst wenn ich vor dem @ einen \ einfüge bekomme ich Fehler 401 Unauthorized zurück.
  - GwenDragon
    
    2019-01-18 10:49
    
    User since
    2005-01-17
    14749 articles
    Admin1
    
    Du benutzt die Methode credentials falsch, für ein Basic Authentication braucht der Server noch den Realm.
    https://metacpan.org/pod/LWP::UserAgent#credential...
    https://perlmaven.com/lwp-useragent-and-basic-auth...
    https://perlmaven.com/basic-authentication-with-lw...
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - haj
    
    2019-01-18 11:56
    User since
    2015-01-07
    557 articles
    BenutzerIn
    
    2019-01-18T09:21:18 numerobis
    Vermutlich liegt es daran, dass in dem Benutzernamen ein @-Zeichen enthalten ist. selbst wenn ich vor dem @ einen \ einfüge bekomme ich Fehler 401 Unauthorized zurück.
    
    Nur dazu eine Ergänzung: Ein @ im Benutzernamen macht dann Probleme, wenn man Benutzerkennung und Passwort als Teil der URL mitgibt. In diesem Fall hilft aber kein \, sondern das "URL-Encoding", bei dem ein @ durch %40 ersetzt wird. Die Zeile sieht dann so aus:
    
    Code (perl): (dl )
    
    my $resp = $ua->get( 'https://root%40adtran.com:Password@wlan.adtran.com:3000/internalusers.json' );
    
    Der Aufruf von credentials entfällt in diesem Fall.
    
    Im Browser sollte man solche URLs nicht eintippen, weil das Passwort in der History des Browsers stehenbleibt. Aber im Programm macht es bezüglich der Sicherheit keinen Unterschied, auf welchem Weg das Klartext-Passwort in den Request kommt.
    - numerobis
      
      2019-01-18 15:58
      
      User since
      2019-01-17
      6 articles
      BenutzerIn
      
      Super!!!
      Genau das war mein Problem. Jetzt funktioniert die Abfrage.
      
      Ich habe für alle die ein ähnliches Problem haben meinen Code angehängt.
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      use strict; use warnings; use IO::Socket::SSL qw(); use LWP::UserAgent; # ssl_opts wird nur benoetigt, da das Zertifikat nicht vertrauenswürdig ist my $ua = LWP::UserAgent->new(ssl_opts => { SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, verify_hostname => 0,} ); my $resp = $ua->get( 'https://root%40adtran.com:Password@wlan.adtran.com:3000/internalusers.json' ); print $resp->content; exit;
      
      Nochmals vielen Dank an Euch für die Hilfe. Ich hoffe ich kann irgendwann auch mal helfen :-)

View all threads created 2019-01-17 21:49.