[Net::SMTP::_SSL] Connection closed (gelöst) (Fragen zu Perl-Modulen) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Fragen zu Perl-Modulen

2024-04-19 21:11:53
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]19775[/thread]

submit to reddit

[Net::SMTP::_SSL] Connection closed [gelöst]

[gelöst]

Tags: perl5 SSL Net::SMTP Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+17 replies
bianca

2015-08-31 09:40

User since
2009-09-13
6977 Artikel
BenutzerIn

Hallo!
Ich reiche mittels Net::SMTP mit SSL gesichert E-Mails bei einem SMTP ein. Mit zwei Attachments klappt es, mit dreien liefert ->message() nach ->datasend() im Titel angegebene Meldung
Quote
[Net::SMTP::_SSL] Connection closed

Am dritten Attachment liegt es wahrscheinlich nicht, das hab ich schon gewechselt.
An der Gesamtgröße liegt es wahrscheinlich auch nicht, weil ein erfolgreicher Test mit zwei Attachments weit mehr KB hatte als ein erfolgloser Test mit drei Attachments.

Ein Debugging fördert zutage:
Quote
Net::SMTP::_SSL: Net::Cmd::datasend(): unexpected EOF on command channel: Bad file descriptor ...

Da muss ich nochmal tiefer in die Base64 Kodierung einsteigen, das bekomme ich hin.

Aber die Frage ist:
Wie kann ich an diese Fehlermeldung kommen, ohne im Net::SMTP->new() gleich das Debug für alles setzen zu müssen? Also quasi im Vorgriff für die Zukunft, wenn ->datasend() nochmal Ärger machen sollte?
->getline() liefert undef und ->message() liefert das extrem hilfreiche
Quote
[Net::SMTP::_SSL] Connection closed

In der Doku zu Net::Cmd finde ich diesen Abschnitt:
Quote
Connection closed

If the underlying IO::Handle is closed, or if there are any read or write failures, the file handle will be forced closed, and code() will return "421" (temporary connection failure) and message() will return "[$pkg] Connection closed" (where $pkg is the name of the class that subclassed Net::Cmd). The _set_status_closed() method can be overridden to set a different message (by calling set_status()) or otherwise trap this error.

Ist das die richtige Spur? Was kann man da machen? Ich kann den Inhalt nicht in Code umsetzen und bitte um Hilfe.
10 print "Hallo"
20 goto 10
- +16 replies
- GwenDragon
  
  2015-08-31 11:30
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Hast du Debug im Net::SMTP::SSL->new aktiviert? Dann müsstest du mehr sehen.
  Wenn nein, dann so wie in Net::SMTP beschrieben, denn Net::SMTP::SSL erbt von dem Modul.
  
  Was die Meldung anbelangt, rate ich mal (ich weiß, extrem unprofessionell).
  Der Server macht die SSL-verbindung zu, weil:
  - Zertifikatsproblem
  - Timout
  - Clientseitiger Virenscanner
  Last edited: 2015-08-31 11:37:49 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +15 replies
  - bianca
    
    2015-09-01 05:52
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Danke für deine Antwort.
    
    Client Virenscanner: hab ich ausgeschaltet, hat genau so reagiert wie mit. An den als Verursacher glaube ich auch nicht, denn nach dem letzten Dilemma hab ich Avira und den MS Essentials raus geworfen und Norton drauf. Der hat bisher noch nie etwas blockiert.
    Timeout: an welcher Stelle meinst du? im Net::SMTP->new() hab ich Werte bis 100 hoch getestet, der Wert ändert garnichts
    Zertifikat: gibt es das, dass eine Verbindung zustande kommt und dann mittendrin wegen Zertifikatsfehler unterbrochen wird?
    
    Und natürlich hast Du auch Recht, wenn du sagst, dass der Fehler nicht an der Base64 Kodierung lag, wie ich ursprünglich dachte.
    
    Wenn ich nämlich IO::Socket::SSL weg lasse klappt alles.
    Daher habe ich versucht, über $IO::Socket::SSL::DEBUG etwas herauszufinden aber in allen drei Stellungen von 1 bis 3 liefert dieser Debug nur positive Quittungen, keine Fehler.
    
    Hier die letzten 6 Zeilen des Debugs von Net::SMTP->new() in Code Tags, damit man die gleichen Zeilenlängen des Base64 Attachments in den oberen drei Zeilen sieht. Daran wird es auch nicht liegen, ich nutze dafür MIME::Base64.
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    Net::SMTP::_SSL=GLOB(0x26fd468)>>> sGkk+yfnEULIQ4AHut39WB6n5tTArwrbtfdnua0PPQaNYFGC5/YJd/9vyZ0aqSoDZaT77Kn/GTh3 Net::SMTP::_SSL=GLOB(0x26fd468)>>> jpIrTtkF1Duhr5zEXdN3t8AHV8i/uWRbuLo4VVGfS9ML0Wf99kL0CbUXok+ovRB9Qu2F6BNqL0Sf Net::SMTP::_SSL=GLOB(0x26fd468)>>> UHsh/h8agwrogcFgWQAAAABJRU5ErkJggg== Net::SMTP::_SSL=GLOB(0x26fd468)>>> Net::SMTP::_SSL=GLOB(0x26fd468)>>> ------=_NextPart_14410782440530444180-- Net::SMTP::_SSL: Net::Cmd::datasend(): unexpected EOF on command channel: Bad file descriptor at /meinscript.pl line 661.
    
    Aber ich war nicht untätig.
    Habe hier die selbe Fehlermeldung gefunden: https://rt.cpan.org/Public/Bug/Display.html?id=101...
    Gschwind in die Gmail.pm aus Email::Send::SMTP::Gmail geschaut und abgeschrieben.
    Aber ich teile nicht nur die Attachments in 76er Blöcke auf sondern die komplette Einreichung. Finde ich einfacher und klappt hervorragend. Ist also gelöst!
    10 print "Hallo"
    20 goto 10
    - +14 replies
    - Kean
      
      2015-10-08 13:01
      
      User since
      2004-08-18
      463 Artikel
      BenutzerIn
      
      Ich versuche mich jetzt schon mehrere Tage daran Emails über Net::SMTP, Net::SMTP::SSL oder Mail::Sender über einen SMTP Server mit SSL Zwang zu verschicken. Leider bisher ohne Erfolg.
      
      Könntest du mir vielleicht einen minimalen Sample Code wie es bei dir funktioniert zur Verfügung stellen?
      - +13 replies
      - bianca
        
        2015-10-08 13:17
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Klar.
        Ausschnittweise die Verbindungsherstellung:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        # Verbindungsherstellung require Net::SMTP; require IO::Socket::SSL; IO::Socket::SSL->import(qw(SSL_VERIFY_CLIENT_ONCE)); my $handler = Net::SMTP->new( 'URL', Timeout => 10, SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE(), # mit hostname verifycation wirft es Fehler "SSL connect attempt failed error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed" ) or do { print "Keine Kommunikation mit dem SMTP-Server 'URL' möglich"; return 0; };
        
        Und damit setze ich auch gleich das Erledigt Häkchen. Hatte ich wohl vergessen.
        
        Und Dank an GwenDragon!
        
        Editiert von bianca: Häkchen war doch schon drin
        Last edited: 2015-10-08 13:19:44 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        +8 replies
        
        Kean
        
        2015-10-08 15:14
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Ich habe deinen Verbindungsaufbau mal eingebaut und getestet. Es kommt keine Fehlermeldung, wird aber auch keine Email versendet.
        Mit DEBUG => 1 wird leider auch nichts ausgegeben außer dem "Done" am Ende.
        
        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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
        
        #!/usr/bin/perl use warnings; use strict; require Net::SMTP; require IO::Socket::SSL; IO::Socket::SSL->import(qw(SSL_VERIFY_CLIENT_ONCE)); my $user = 'me@mail.de'; my $pass = '123456'; my $server = 'smtp.strato.de'; my $to = 'test@mail.de'; my $from_name = 'Testaccount'; my $from_email = 'imaptest@mail.de'; my $subject = 'test'; # Verbindungsherstellung my $smtps = Net::SMTP->new( $server, SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE(), ) or do { print "Keine Kommunikation mit dem SMTP-Server 'URL' möglich"; return 0; }; defined ($smtps->auth($user, $pass)) or die "Can't authenticate: $!\n"; $smtps->mail($from_email); $smtps->to($to); $smtps->data(); $smtps->datasend("To: $to\n"); $smtps->datasend(qq^From: "$from_name" <$from_email>\n^); $smtps->datasend("Subject: $subject\n\n"); $smtps->datasend("This will be the body of the message.\n"); $smtps->datasend("\n--\nVery Official Looking .sig here\n"); $smtps->dataend(); $smtps->quit(); print "done\n";
        
        Hast du vielleicht eine Idee an was das liegen könnte?
        
        +2 replies
        
        GwenDragon
        
        2015-10-08 18:10
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        ich dachte du willst SSL verwenden? Dann binde bitte use Net::SSLGlue::SMTP ein!
        Lies bitte https://metacpan.org/pod/Net::SSLGlue::SMTP
        
        Falls du SSL über Port 25 (STARTTLS) verwenden willst, dann musst du vor dem Login $smtps->starttls() aufrufen.
        
        Ansonsten wenn du SSL über Port 587 oder 465 verwenden willst, dann musst folgende Parameter ins $smtps->new(...) einfügen: SSL => 1, -- aber dann kein starttls() vor dem auth() aufrufen!!!
        Last edited: 2015-10-08 18:17:06 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        noxxi
        
        2015-10-08 23:28
        
        User since
        2015-04-07
        18 Artikel
        BenutzerIn
        
        Aktuelle Versionen von Net::SMTP (3.x) haben die Unterstützung für SSL bereits eingebaut und Net::SSLGlue::SMTP ist nicht mehr nötig.
        
        +5 replies
        
        bianca
        
        2015-10-08 18:39
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Bei meiner Lösung käme nach dem Verbindungsaufbau nur noch ->starttls(), dann das Login mit ->command('AUTH','LOGIN'), ->command($smtp_user) und ->command($smtp_pass).. und dann erst weiter mit ->mail()
        Die anderen von GwenDragon erwähnten Sachen kenne ich nicht, nutze ich auch nicht. Ich glaube, es gibt einen Unterschied zwischen SSL over SMTP und "echtem" SMTP mit SSL. Aber so ganz genau weiß ich da auch nicht Bescheid, bei mir klappt das alles mit SSL over SMTP mittels ->starttls().
        
        Du musst das einzeln debuggen um zu checken, wo es hakt. Ich vermute bei dir, dass die Absender E-Mail abgewiesen wird.
        Last edited: 2015-10-08 18:42:17 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        Kean
        
        2015-10-09 10:17
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Ok ich bin schon einen Schritt weiter gekommen.
        
        Code: (dl )
        
        Mit Debug => 1
        
        ist mir aufgefallen, dass ich noch eine alte 2.x er Version von Net-SMTP hatte. Nach einer längeren Suche habe ich auch herausgefunden, dass Net-SMTP Bestandteil von dem libnet Paket ist und habe die aktuelle Version installiert.
        
        Nun bin ich einen Schritt weiter aber er scheint bei ->mail() abzubrechen:
        
        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
        
        Net::SMTP>>> Net::SMTP(3.05) Net::SMTP>>> Net::Cmd(3.05) Net::SMTP>>> Exporter(5.63) Net::SMTP>>> IO::Socket::INET(1.31) Net::SMTP>>> IO::Socket(1.31) Net::SMTP>>> IO::Handle(1.28) Net::SMTP=GLOB(0x254bf3c)<<< 220 smtp.strato.de ESMTP RZmta 37.13 ready (mo32) Net::SMTP=GLOB(0x254bf3c)>>> EHLO localhost.localdomain Net::SMTP=GLOB(0x254bf3c)<<< 250-smtp.strato.de greets 62.153.239.66 Net::SMTP=GLOB(0x254bf3c)<<< 250-ENHANCEDSTATUSCODES Net::SMTP=GLOB(0x254bf3c)<<< 250-8BITMIME Net::SMTP=GLOB(0x254bf3c)<<< 250-PIPELINING Net::SMTP=GLOB(0x254bf3c)<<< 250-DELIVERBY Net::SMTP=GLOB(0x254bf3c)<<< 250-SIZE 104857600 Net::SMTP=GLOB(0x254bf3c)<<< 250-AUTH SCRAM-SHA-1 DIGEST-MD5 CRAM-MD5 LOGIN PLAIN Net::SMTP=GLOB(0x254bf3c)<<< 250-STARTTLS Net::SMTP=GLOB(0x254bf3c)<<< 250 HELP Net::SMTP=GLOB(0x254bf3c)>>> STARTTLS Net::SMTP=GLOB(0x254bf3c)<<< 220 Ready to start TLS Net::SMTP=GLOB(0x254bf3c)>>> AUTH LOGIN Net::SMTP=GLOB(0x254bf3c)>>> me@mail.de Net::SMTP=GLOB(0x254bf3c)>>> 1234567 Net::SMTP=GLOB(0x254bf3c)>>> MAIL FROM:<me@mail.de> Net::SMTP: Net::Cmd::getline(): unexpected EOF on command channel: Bad file descriptor at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 38 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 39 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 39 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 40 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 40 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 41 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 42 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 43 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 44 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 46 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 47 Net::SMTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: at Z:\Development Sync\PrinterInfo\PrinterInfo2.pl line 47
        
        Muss ich bei der Übergabe des Absenders etwas beim Format beachten?
        $smtps->mail('me@mail.de'); scheint nicht zu funktionieren.
        
        Gast Bianca
        
        2015-10-09 12:49
        
        Wahrscheinlich mail nicht erlaubt WG. Spamschutz.
        Last edited: 2015-10-09 13:22:02 +0200 (CEST)
        
        GwenDragon
        
        2015-10-09 13:24
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Vielleicht hat der SMTP-Server Greylisting aktiv und lässt dich erst wieder nach 3, 5 oder 10 Minuten zu.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        noxxi
        
        2015-10-10 00:41
        
        User since
        2015-04-07
        18 Artikel
        BenutzerIn
        
        Net::SMTP=GLOB(0x254bf3c)>>> STARTTLS
        Net::SMTP=GLOB(0x254bf3c)<<< 220 Ready to start TLS
        Net::SMTP=GLOB(0x254bf3c)>>> AUTH LOGIN
        Net::SMTP=GLOB(0x254bf3c)>>> me@mail.de
        Net::SMTP=GLOB(0x254bf3c)>>> 1234567
        Net::SMTP=GLOB(0x254bf3c)>>> MAIL FROM:<me@mail.de>
        
        Es ist mir nicht ganz klar was hier wirklich passiert.
        Nach dem STARTTLS sollte eigentlich ein EHLO automatisch geschickt werden. Auch sollte es sich nach dem SSL-Upgrade nicht mehr um ein Net::SMTP sondern ein Net::SMTP::_SSL Objekt handeln.
        
        Kann es vielleicht sein, dass Du kein $smtp->starttls machst sondern einfach versuchst das STARTTLS Kommando hinzuschicken, ohne das daraufhin aber tatsächlich der SSL-Upgrade gemacht wird? Es wäre gut hier mal den Code zu sehen, den Du tatsächlich nutzt.
        
        Die seit mehreren Monaten aktuelle Version von Net::SMTP ist übrigens 3.07, d.h. Du musst Dir mit der 3.05 eine ältere Version installiert haben, mit der man allerdings auch nicht in solche Bugs hier reinlaufen sollte.
        Last edited: 2015-10-10 00:42:59 +0200 (CEST)
        
        +4 replies
        
        noxxi
        
        2015-10-08 23:26
        
        User since
        2015-04-07
        18 Artikel
        BenutzerIn
        
        SSL_VERIFY_CLIENT_ONCE ist eine Option die nur relevant auf der Serverseite ist (es geht um Clientzertifikate). Effektiv wird durch das Setzen dieser Option der Default ausgeschaltet, d.h. die Überprüfung des Zertifikates. Und statt die Überprüfung einfach auszuschalten sollte man sich lieber fragen warum die Überprüfung schief läuft, d.h. ob das Zertifikat tatsächlich falsch ist (kann man mit SSL_fingerprint als trusted benutzen) oder ob man z.B. den falschen Hostnamen benutzt.
        Last edited: 2015-10-08 23:30:07 +0200 (CEST)
        
        +3 replies
        
        bianca
        
        2015-10-09 09:17
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Hallo noxxi!
        
        2015-10-08T21:26:04 noxxi
        Und statt die Überprüfung einfach auszuschalten sollte man sich lieber fragen warum die Überprüfung schief läuft, d.h. ob das Zertifikat tatsächlich falsch ist (kann man mit SSL_fingerprint als trusted benutzen) oder ob man z.B. den falschen Hostnamen benutzt.
        
        Wir hatten versucht, das herauszufinden, es gelang uns aber nicht.
        
        Wenn ich die Prüfung drin lasse bekomme ich SSL connect attempt failed error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed
        Was könnte das sein? In welche Richtung kann ich prüfen und wie stelle ich das an?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        noxxi
        
        2015-10-10 00:27
        
        User since
        2015-04-07
        18 Artikel
        BenutzerIn
        
        Am besten mal das Programm mit perl -MIO::Socket::SSL=debug4 laufen lassen. Dann sieht man zumindest ob es am Hostnamen lag oder nicht. Wenn nicht, dann ist die CA für das Zertifikat nicht auf dem System bekannt und man muss sie mit SSL_ca_file o.ä. dem Programm bekanntmachen.
        
        bianca
        
        2015-10-11 07:54
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Guter Tipp, danke dir!
        Ich hab es mal versucht und ich glaube mittlerweile, dass der eine Server, der mir Probleme macht, garkein SSL Zertifikat besitzt. Dann klappt ja wahrscheinlich ->starttls() auch nicht, wenn es garkein TLS Zertifikat gibt. Das muss ich mal prüfen.
        10 print "Hallo"
        20 goto 10

View all threads created 2015-08-31 09:40.