[LWP::UserAgent] Windows - get liefert "500 Can't connect to ......de:443 (Bad address)" (gelöst) (Fragen zu Perl-Modulen)

[thread]21600[/thread]

[LWP::UserAgent] Windows - get liefert "500 Can't connect to ......de:443 (Bad address)" [gelöst]

Tags: perl5 strawberry perl windows LWP LWP::UserAgent SSL Ähnliche Threads

Leser: 6

Articles: hide open all | hide show old branches

Teilbaum:
Testfall für unerreichbares IPv6/IPv4 (3 Artikel) 2024-06-29 17:37

+26 replies
GwenDragon

2024-06-28 11:15
User since
2005-01-17
14741 Artikel
Admin1
Seltsames Problem auf Strawberry Perl 5.36.3.1 x64 Win 11 23H2;
alle nötigen Module installiert.

Perl 5.36.3.1 x64
libwww-perl-6.77
LWP-Protocol-https-6.14
Net-SSLeay-1.94
Net-SSLGlue-1.058
Crypt-SSLeay-0.72

Requests klappen bei meinem Server nicht mehr.
Da liefert lwp-get (aka GET) dann "500 Can't connect to gwendragon.de:443 (Bad address)"

Getestet mit:
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

use strict; use warnings; use 5.020; use LWP::UserAgent (); use Data::Dumper; my $ua = LWP::UserAgent->new(timeout => 10); $ua->ssl_opts( SSL_ca_file => 'X:\etc\ssl\certs\cacert.pem', verify_hostname => 1, ); $ua->agent('Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/126.0.0.0 Safari/537.36'); my $response = $ua->get('https://gwendragon.de'); if ($response->is_success) { print $response->decoded_content; } else { say $response->status_line; say Dumper $response; }
Andere Domains wie example.com oder perl.com klappen.

Browser klappt auch für gwendragon.de.

Abfrage mit curl:
Code: (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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

T:\>curl -v https://gwendragon.de/ * Host gwendragon.de:443 was resolved. * IPv6: 2a01:4f8:130:63a2::2 * IPv4: 213.133.110.246 * Trying [2a01:4f8:130:63a2::2]:443... * Trying 213.133.110.246:443... * Connected to gwendragon.de (213.133.110.246) port 443 * schannel: disabled automatic use of client certificate * ALPN: curl offers http/1.1 * ALPN: server accepted http/1.1 * using HTTP/1.x > GET / HTTP/1.1 > Host: gwendragon.de > User-Agent: curl/8.7.1 > Accept: */* > * Request completely sent off * schannel: remote party requests renegotiation * schannel: renegotiating SSL/TLS connection * schannel: SSL/TLS connection renegotiated * schannel: remote party requests renegotiation * schannel: renegotiating SSL/TLS connection * schannel: SSL/TLS connection renegotiated < HTTP/1.1 200 OK < Date: Fri, 28 Jun 2024 09:07:30 GMT < Server: Apache < Strict-Transport-Security: max-age=15768000; includeSubDomains < Upgrade: h2 < Connection: Upgrade < Last-Modified: Sun, 19 May 2024 11:21:32 GMT < ETag: "f70-618ccc96cb479" < Accept-Ranges: bytes < Content-Length: 3952 < Cache-Control: max-age=7200 < Expires: Fri, 28 Jun 2024 11:07:30 GMT < Vary: Accept-Encoding < X-Content-Type-Options: nosniff < X-Frame-Options: sameorigin < X-Powered-By: Perl < X-Robots-Tag: noai, noimageai, noimageindex, noarchive, noodp < Content-Security-Policy: script-src 'self' < Referrer-Policy: no-referrer < Permissions-Policy: interest-cohort=() < Content-Type: text/html; charset=utf-8 < <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> .....
Irgendeine Idee zum Lösen oder Debuggen?

//EDIT 11:34:
Sieht danach aus als würde LWP oder IO::Socket sang-und-klanglos abbrechen, wenn die IPv6 nicht erreichbar ist.

//EDIT 12:24:
Mit use IO::Socket::SSL qw/debug3/; kommt:
Code: (dl )

1 2 3 4 5 6 7 8

DEBUG: .../IO/Socket/SSL.pm:3020: new ctx 2719281884640 DEBUG: .../IO/Socket/SSL.pm:705: socket not yet connected DEBUG: .../IO/Socket/SSL.pm:705: socket not yet connected DEBUG: .../lib/Net/HTTPS.pm:67: local error: IO::Socket::IP configuration failed DEBUG: .../IO/Socket/SSL.pm:3069: free ctx 2719281884640 open=2719281884640 DEBUG: .../IO/Socket/SSL.pm:3073: free ctx 2719281884640 callback DEBUG: .../IO/Socket/SSL.pm:3080: OK free ctx 2719281884640 500 Can't connect to gwendragon.de:443 (Bad address)
Was ich nicht verstehe, dass curl und wget beide IPv6 und IPv4 probieren. Aber LWP nicht.

//EDIT: 13:05 gemeldet als Bug: https://github.com/libwww-perl/LWP-Protocol-https/...
Last edited: 2024-06-28 13:03:50 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +18 replies
- rosti
  
  2024-06-28 12:33
  
  User since
  2011-03-19
  3463 Artikel
  BenutzerIn
  
  nslookup
  - +17 replies
  - GwenDragon
    
    2024-06-28 12:35
    User since
    2005-01-17
    14741 Artikel
    Admin1
    
    Nee, du DNS klappt. Das ist es eben nicht!
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    T:\>nslookup gwendragon.de Server: fritz.box Address: fd************** Nicht autorisierende Antwort: Name: gwendragon.de Addresses: 2a01:4f8:130:63a2::2 213.133.110.246
    
    Irgendwas klappt mit dem Net::HTTPS und IO::Socket::SSL nicht.
    Last edited: 2024-06-28 12:37:33 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - rosti
      
      2024-06-28 12:43
      
      User since
      2011-03-19
      3463 Artikel
      BenutzerIn
      
      IPv6 abschalten
      - GwenDragon
        
        2024-06-28 13:05
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Nein. IPv6 wird benutzt und gebraucht.
        
        Ich denke LWP hat da einen Bug, dass es abbricht mit so einer kruden Fehlermeldung.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +14 replies
    - rosti
      
      2024-06-28 13:07
      
      User since
      2011-03-19
      3463 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      1 2 3
      
      my $s = IO::Socket::INET->new("gwendragon.de:443") or die $!; # geht my $s = IO::Socket::SSL->new("gwendragon.de:443") or die $!; # geht nicht my $s = IO::Socket::SSL->new("google.de:443") or die $!; # geht
      
      Was schließen wir ?
      - +13 replies
      - GwenDragon
        
        2024-06-28 13:30
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        T:\>perl -E"use IO::Socket::SSL; use IO::Socket::SSL qw/debug3/; my $s = IO::Socket::SSL->new('gwendragon.de:443') or die $!" DEBUG: .../IO/Socket/SSL.pm:3020: new ctx 1833333936592 DEBUG: .../IO/Socket/SSL.pm:705: socket not yet connected DEBUG: .../IO/Socket/SSL.pm:705: socket not yet connected DEBUG: .../lib/IO/Socket.pm:50: local error: IO::Socket::IP configuration failed DEBUG: .../IO/Socket/SSL.pm:3069: free ctx 1833333936592 open=1833333936592 DEBUG: .../IO/Socket/SSL.pm:3073: free ctx 1833333936592 callback DEBUG: .../IO/Socket/SSL.pm:3080: OK free ctx 1833333936592 Bad file descriptor at -e line 1.
        
        Erklärt nicht, warum nicht auch die IPv4 benutzt wird und das Modul da der IPv6 Vorrang gibt.
        Last edited: 2024-06-28 13:32:10 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        rosti
        
        2024-06-28 13:34
        
        User since
        2011-03-19
        3463 Artikel
        BenutzerIn
        
        Ja genau. Bei mir dasselbe Ergebnis mit IPv4.
        
        Code (perl): (dl )
        
        1 2
        
        IO::Socket::INET->new("google.de:443") or die $!; IO::Socket::SSL->new("google.de:443") or die $!;
        
        Geht bei mir. Bei dir auch?
        Last edited: 2024-06-28 13:38:09 +0200 (CEST)
        
        GwenDragon
        
        2024-06-28 13:44
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Ja, geht bei Google.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +10 replies
        
        GwenDragon
        
        2024-06-29 09:37
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Entwickeler reichtet Augenmerk auf:
        
        Quote
        Please be aware that with the IPv6 capable super classes, it will look first for the IPv6 address of a given hostname. If the resolver provides an IPv6 address, but the host cannot be reached by IPv6, there will be no automatic fallback to IPv4. To avoid these problems you can enforce IPv4 for a specific socket by using the Domain or Family option with the value AF_INET as described in IO::Socket::IP. Alternatively you can enforce IPv4 globally by loading IO::Socket::SSL with the option 'inet4', in which case it will use the IPv4 only class IO::Socket::INET as the super class
        
        — https://metacpan.org/pod/IO::Socket::SSL#Descripti...
        
        Wenn also Host IPv6 und IPv6 auflöst, aber IPv6 nicht erreichbar ist, stirbt das Programm.
        Und stat dessen IPv4 erzwingen ist auch nur ein Würgaround.
        Ziemlich unresilient, das.
        Bei eignen Programmen kann eine ja rummurksen, aber leider hilft das nicht bei LWP-Request.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        rosti
        
        2024-06-29 10:01
        
        User since
        2011-03-19
        3463 Artikel
        BenutzerIn
        
        Kann nicht sein. bei mir geht der Request mit IPv4 raus:
        
        Code (perl): (dl )
        
        IO::Socket::SSL->new("gwendragon.de:443") or die $!; # died
        
        MFG
        
        GwenDragon
        
        2024-06-29 10:11
        
        Subtree with 4 replies: Testfall für unerreichbares IPv6/IPv4
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Wird als testcase nur geblockt, wenn Linux fail2ban per Firewall da für IPv6 oder IPv4 die Pakete der Client-IP droppt. ;-)
        
        Kannste so testen, nach mehrmaligem wird dann IPv6 or IPv4 (je nachdem wie die Verbindung vom ISP ist) geblockt:
        lwp-request https://labs.gwendragon.de/blog/ -H "User-Agent: PHP/5"
        Last edited: 2024-06-29 10:47:33 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        GwenDragon
        
        2024-06-29 10:52
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Und schnell wird ein Bugrepprt #153 wieder zugemacht, weil IO::Socket::IP keinen fallback kennt.
        Och nööö.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        GwenDragon
        
        2024-06-30 18:23
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Nicht änderbar in IO::Socket, also sinnlos hier weiter zu diskutieren und nach Lösungen zu stochern. :/
        
        Und ich werde LWP jedenfalls nicht aufbohren für seltsame Socket-Tests für IPv6 und IPv4.
        
        Ich nehme nun, wie früher schon bei Problemen mit libwww-perl, dann eben curl. Das macht was ich will und brauche.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        rosti
        
        2024-06-30 19:05
        
        User since
        2011-03-19
        3463 Artikel
        BenutzerIn
        
        Mach das doch mit Ajax. Ablauf:
        
        Code: (dl )
        
        1 2 3 4
        
        1 Liste der URLs vom Server holen (sitemap.xml) 2 Über die Liste head-Requests feuern 3 im callback den http-status abfragen 4 Ergebnis in den Browser schreiben
        
        Und da gibts bestimmt nochmehr was du mit dem Bowser erledigen kannst.
        
        mfg
        Last edited: 2024-06-30 19:11:04 +0200 (CEST)
        
        GwenDragon
        
        2024-07-01 09:40
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Dass mit AJAX was geht weiß ich doch, egal ob jQuery oder Vanilla-JS. ;-)
        
        Ich brauchte ja was auf der Kommandozeile. Das ist eben nur mit curl sinnvoll machbar.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- GwenDragon
  
  2024-06-28 13:33
  
  User since
  2005-01-17
  14741 Artikel
  Admin1
  
  Um lwp-request zum Testen von Remoteservern zu nehmen, ist das so nicht sinnvoll nutzbar. Das übliche Perl-Drama.
  Aber wozu gibt es curl, das läuft.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - rosti
    
    2024-06-28 13:37
    
    User since
    2011-03-19
    3463 Artikel
    BenutzerIn
    
    Nebenbei: Meine 400 Einzelseiten checke ich mit AJAX. Das Ergebnis habe ich in 5 Sekunden im Browser.
  - +5 replies
  - GwenDragon
    
    2024-06-28 13:50
    User since
    2005-01-17
    14741 Artikel
    Admin1
    
    Ach nee, Linux liefert mit lwp-request
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    test@debora:~$ lwp-request -USsed https://labs.gwendragon.de GET https://labs.gwendragon.de User-Agent: lwp-request/6.68 libwww-perl/6.68 500 Can't connect to labs.gwendragon.de:443 (Connection refused) Content-Type: text/plain Client-Date: Fri, 28 Jun 2024 11:49:11 GMT Client-Warning: Internal response
    
    Was korrekt zeigt, wo das Problem liegt!
    
    Und Windows:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    T:\>lwp-request -USsed https://labs.gwendragon.de GET https://labs.gwendragon.de User-Agent: lwp-request/6.77 libwww-perl/6.77 500 Can't connect to labs.gwendragon.de:443 (Bad address) Content-Type: text/plain Client-Date: Fri, 28 Jun 2024 11:47:49 GMT Client-Warning: Internal response
    
    Da ist wohl irgendwas in StrawberryPerl und/oder libwww-perl seltsam implementiert.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +4 replies
    - rosti
      
      2024-06-28 14:04
      
      User since
      2011-03-19
      3463 Artikel
      BenutzerIn
      
      Die libwww war schon immer buggy. Dieses geht, geht nicht ist da ganz typisch.
      
      MFG
      - GwenDragon
        
        2024-06-28 14:27
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Mal sehen was der Maintainer von libwww-perl und io-socket-ssl sagt zu
        - https://github.com/libwww-perl/LWP-Protocol-https/...
        - https://github.com/noxxi/p5-io-socket-ssl/issues/1...
        
        Viel Hoffnung, dass es als Bug angesehen wird, habe ich nicht.
        Last edited: 2024-06-29 16:57:59 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - GwenDragon
        
        2024-06-29 18:32
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Ich denke, dass bei StrawberryPerl die Implementation für Socket seltsam ist, denn das "Bad address" existiert in Socket.c und .xs.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        rosti
        
        2024-06-29 18:52
        
        User since
        2011-03-19
        3463 Artikel
        BenutzerIn
        
        Ich habe Perl von ActiveState. Und auch ein paar seltsame Effekte diesbezüglich. Und auch nicht neu.

View all threads created 2024-06-28 11:15.