BlueSocket API Schnittstelle mit Perl - #189469 (Netzwerkprogrammierung und Netzwerke mit Perl)

numerobis

2019-01-18 10:21

User since
2019-01-17
6 Artikel
BenutzerIn
[default_avatar]

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 )

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.