Versenden von Emails (Net::SMTP) (gelöst) (Allgemeines zu Perl)

[thread]20645[/thread]

Versenden von Emails (Net::SMTP) [gelöst]

Tags: perl5 mail email postfix SMTP Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+14 replies

styx-cc

2019-07-31 23:24

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Hi Community!

Folgendes Script benutze ich schon lange zum Senden von Benachrichtigungsmails:

Code (perl): (dl )

#!/usr/bin/perl
use warnings;
use strict;

use Net::SMTP;


send_mail('hi', 'test-msg', ['stefan@example.com']);

sub send_mail {
        my $sub = shift;
        my $msg = shift;
        my $to  = shift;

        my $pid = fork();

        if ( !defined $pid ) {
            die "Cannot fork: $!";
        }

        elsif ( $pid == 0 ) {
                #child  
                die "Recipients need to be array-ref." unless ref $to eq 'ARRAY';

                my $smtp = Net::SMTP->new("mail.example.com", Port => 587, Debug => 1) or die $!;

                my $from = 'robot@example.com';
                $smtp->starttls( SSL_verify_mode => 0  );
                $smtp->auth('robot@example.com', 'PASS');

                $smtp->mail($from);
                $smtp->to( @$to );

                $smtp->data();
                $smtp->datasend('Date: ' . localtime( time() ) . "\n" );
                $smtp->datasend("From: $from\n");
                $smtp->datasend('To: ' . join(',', @$to) . "\n");
                $smtp->datasend("Subject: $sub\n");
                $smtp->datasend("\n");

                $smtp->datasend("$msg\n\n");

                $smtp->dataend;
                $smtp->quit;

                exit 0;
        }
}

Nun habe ich von Stretch auf Buster migriert und das Senden funktioniert nicht mehr, er sendet kein AUTH mehr und ich kann mir keinen Reim darauf machen.

Funktionierend:

Code: (dl )

styx@HermesWWW:~/dev-prod/dev/SMA$ perl SendEmail.pl 
styx@HermesWWW:~/dev-prod/dev/SMA$ Net::SMTP>>> Net::SMTP(3.08_01)
Net::SMTP>>>   Net::Cmd(3.08_01)
Net::SMTP>>>     Exporter(5.72)
Net::SMTP>>>   IO::Socket::IP(0.37)
Net::SMTP>>>     IO::Socket(1.38)
Net::SMTP>>>       IO::Handle(1.36)
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 220 mail.example.com ESMTP Postfix
Net::SMTP=GLOB(0x55cc2bf21b80)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-mail.example.com
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-PIPELINING
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-SIZE 52428800
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-VRFY
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-ETRN
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-STARTTLS
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-8BITMIME
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250-DSN
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 250 CHUNKING
Net::SMTP=GLOB(0x55cc2bf21b80)>>> STARTTLS
Net::SMTP=GLOB(0x55cc2bf21b80)<<< 220 2.0.0 Ready to start TLS
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> EHLO localhost.localdomain
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-mail.example.com
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-PIPELINING
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-SIZE 52428800
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-VRFY
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-ETRN
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-AUTH PLAIN LOGIN
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-8BITMIME
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250-DSN
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250 CHUNKING
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> AUTH PLAIN df9ib3RAcG9tZXJlcmlnLmRlAHJvYm90JDUvbWVyZXJpZy5kPOI0M0UwM01IcjHgFlO=
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 235 2.7.0 Authentication successful
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> MAIL FROM:<robot@example.com>
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250 2.1.0 Ok
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> RCPT TO:<stefan@example.com>
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250 2.1.5 Ok
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> DATA
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 354 End data with <CR><LF>.<CR><LF>
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> Date: Wed Jul 31 23:18:52 2019
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> From: robot@example.com
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> To: stefan@example.com
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> Subject: hi
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> test-msg
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> .
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 250 2.0.0 Ok: queued as 9F6EC721B52
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)>>> QUIT
Net::SMTP::_SSL=GLOB(0x55cc2bf21b80)<<< 221 2.0.0 Bye

Nicht mehr Funktionierend:

Code: (dl )

stefan@dev:~/old-dev/SMA$ perl SendEmail.pl
stefan@dev:~/old-dev/SMA$ Net::SMTP>>> Net::SMTP(3.11)
Net::SMTP>>>   Net::Cmd(3.11)
Net::SMTP>>>     Exporter(5.73)
Net::SMTP>>>   IO::Socket::IP(0.39)
Net::SMTP>>>     IO::Socket(1.39)
Net::SMTP>>>       IO::Handle(1.39)
Net::SMTP=GLOB(0x556995279648)<<< 220 mail.example.com ESMTP Postfix
Net::SMTP=GLOB(0x556995279648)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x556995279648)<<< 250-mail.example.com
Net::SMTP=GLOB(0x556995279648)<<< 250-PIPELINING
Net::SMTP=GLOB(0x556995279648)<<< 250-SIZE 52428800
Net::SMTP=GLOB(0x556995279648)<<< 250-VRFY
Net::SMTP=GLOB(0x556995279648)<<< 250-ETRN
Net::SMTP=GLOB(0x556995279648)<<< 250-STARTTLS
Net::SMTP=GLOB(0x556995279648)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x556995279648)<<< 250-8BITMIME
Net::SMTP=GLOB(0x556995279648)<<< 250-DSN
Net::SMTP=GLOB(0x556995279648)<<< 250 CHUNKING
Net::SMTP=GLOB(0x556995279648)>>> STARTTLS
Net::SMTP=GLOB(0x556995279648)<<< 220 2.0.0 Ready to start TLS
Net::SMTP::_SSL=GLOB(0x556995279648)>>> EHLO localhost.localdomain
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-mail.example.com
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-PIPELINING
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-SIZE 52428800
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-VRFY
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-ETRN
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-AUTH PLAIN LOGIN
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-8BITMIME
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250-DSN
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250 CHUNKING
Net::SMTP::_SSL=GLOB(0x556995279648)>>> MAIL FROM:<robot@example.com>
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 250 2.1.0 Ok
Net::SMTP::_SSL=GLOB(0x556995279648)>>> RCPT TO:<stefan@example.com>
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 554 5.7.1 <dev.example.com[78.46.xx.xx]>: Client host rejected: Access denied
Net::SMTP::_SSL=GLOB(0x556995279648)>>> DATA
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 554 5.5.1 Error: no valid recipients
Net::SMTP::_SSL=GLOB(0x556995279648)>>> Date: Wed Jul 31 23:19:43 2019
Net::SMTP::_SSL=GLOB(0x556995279648)>>> From: robot@example.com
Net::SMTP::_SSL=GLOB(0x556995279648)>>> To: stefan@example.com
Net::SMTP::_SSL=GLOB(0x556995279648)>>> Subject: hi
Net::SMTP::_SSL=GLOB(0x556995279648)>>> test-msg
Net::SMTP::_SSL=GLOB(0x556995279648)>>> .
Net::SMTP::_SSL=GLOB(0x556995279648)<<< 221 2.7.0 Error: I can break rules, too. Goodbye.
Net::SMTP::_SSL=GLOB(0x556995279648)>>> QUIT

Ab und zu nach dem QUIT noch ein:

Code: (dl )

1
2

Net::SMTP::_SSL: Net::Cmd::_syswrite_with_timeout(): unexpected EOF on command channel: Connection reset by peer at Se
ndEmail.pl line 44.

Vielleicht hat ja jemand einen Lösungsvorschlag oder gar das selbe Problem gehabt, ich habe aktuell nicht mal einen Ansatz außer die Richtung SSL..

Vielen Dank und Lieben Gruß

P.s.: Wäre lieb, wenn jmd. den Beitrag den ich als Gast geschrieben habe entfernen könnte, danke!
Last edited: 2019-07-31 23:31:28 +0200 (CEST)

Pörl.

haj

2019-08-01 00:24
User since
2015-01-07
551 Artikel
BenutzerIn
Eine Lösung habe ich nicht, eher einen recht plumpen Check: was passiert, wenn Du vor dem $smtp->auth('robot@example.com', 'PASS'); ein sleep 1; einschiebst?

Der andere Tipp wäre, zu Beginn den Debug-Wert für den Handshake hochzuschrauben. Dazu fügst Du die folgende Zeile ein:
Code (perl): (dl )

use IO::Socket::SSL qw(debug3);
+7 replies
thomas38

2019-08-01 02:27

User since
2012-11-04
30 Artikel
BenutzerIn

Liegt es möglicherweise an der Konfiguration des SMTP-Dienstes (z.B postfix)?

554 5.7.1 <dev.example.com[78.46.xx.xx]>: Client host rejected: Access denied

Das kommt mir bekannt vor:
Es könnte sein, dass der SMTP-Dienst dem Client mit der obigen IP-Adresse den Zugriff verweigert.

Das Logfile des SMTP-Dienstes gibt ggf. mehr Details (z.B. welche Regel den Zugriff verweigert hat).
- +6 replies
- styx-cc
  
  2019-08-01 17:39
  User since
  2006-05-20
  533 Artikel
  BenutzerIn
  Das scheint der Sache am nächsten zu kommen, vielen Dank für den Hinweis.
  
  Auf der Serverseite steht im Log:
  
  Code: (dl )
  
  1 2 3 4
  
  Aug 1 17:28:07 mail postfix/submission/smtpd[359]: connect from dev.example.com[78.46.xx.xx] Aug 1 17:28:07 mail postfix/submission/smtpd[359]: NOQUEUE: reject: RCPT from dev.example.com78.46.xx.xx]: 554 5.7.1 <dev.example.com[78.46.xx.xx]>: Client host rejected: Access denied; from=<robot@example.com> to=<stefan@example.com> proto=ESMTP helo=<localhost.localdomain> Aug 1 17:28:07 mail postfix/submission/smtpd[359]: warning: non-SMTP command from dev.example.com[78.46.xx.xx]: Date: Thu Aug 1 17:28:07 2019 Aug 1 17:28:07 mail postfix/submission/smtpd[359]: disconnect from dev.example.com[78.46.xx.xx] ehlo=2 starttls=1 mail=1 rcpt=0/1 data=0/1 unknown=0/1 commands=4/7
  
  Und dem Anschein nach lehnt er die Mails nur ab, wenn sie von einer Subdomain der Hauptdomain des Mailservers kommen, also ein Konfigurationsproblem im Postfix.
  
  Mailserver mail.example.com
  ServerSubdomain dev.exmaple.com <-- schlägt fehl
  Beliebige IP ohne DNS-Eintrag funktioniert, auch unter Buster.
  
  Edit Nachtrag: exmaple.com funktioniert ebenfalls nicht.
  Last edited: 2019-08-01 19:16:10 +0200 (CEST)
  Pörl.
  - +5 replies
  - thomas38
    
    2019-08-01 22:37
    
    User since
    2012-11-04
    30 Artikel
    BenutzerIn
    
    Verdächtig finde ich folgend Zeile:
    
    [...]Client host rejected: Access denied; from=<robot@example.com> to=<stefan@example.com> proto=ESMTP helo=<localhost.localdomain>
    
    Genauer: helo=<localhost.localdomain>
    Das sendet der Client, wenn ich mich nicht irre.
    Vermutlich verlangt postfix aber pingeligerweise den richtigen hostnamen (hier vermutlich dev.example.com).
    
    Dieser Name steht nicht im Programm. Aber die Zeile
    Net::SMTP::_SSL=GLOB(0x556995279648)>>> EHLO localhost.localdomain
    spricht Bände.
    Ich nehme an, dass Net::SMTP den FQ-hostnamen irgendwie ermittelt (/etc/hostname o.ä.)
    Was gibt das Kommando
    hostname -f
    aus?
    Es sollte "dev.example.com" ausgeben...
    Falls es "localhost.localdomain" ist, ändere mal den Hostnamen.
    
    Oder Du verwendest im Perl-Programm manuell HELO/EHLO mit der Option
    SendHello => 0
    im Konstruktor und als erste Methode nach starttls()
    hello("dev.example.com")
    - styx-cc
      
      2019-08-02 02:03
      
      User since
      2006-05-20
      533 Artikel
      BenutzerIn
      
      Yay! Es lag tatsächlich am Update.
      Unter Buster ist Authen::SASL nicht vorinstalliert, vllt aus den Core-Modulen geflogen?
      Zumindest haben mich deine Anregungen letztendlich zu https://www.perlmonks.org/?node_id=570121 geführt und die dortigen Hinweise zu dem Versuch Authen::SASL nachzuinstallieren, was das Problem behebt.
      
      Dann ergibt das auch Sinn, warum er das AUTH einfach nicht gesendet hat...
      
      "SendHello => 0" hatte übrigens keinen Effekt er hat einfach das selbe wie vorher gesendet, auch mein hello() blieb, anbders als in der Doku beschrieben, ignoriert. Allerdings hat ein "Hello => 'FQHN'" das localhost.localdomain ersetzt. hostname -f hatte auch den korrekten Hostnamen.
      
      Vielen Dank!
      Last edited: 2019-08-02 02:13:51 +0200 (CEST)
      Pörl.
    - +3 replies
    - GwenDragon
      
      2019-08-02 08:23
      
      User since
      2005-01-17
      14746 Artikel
      Admin1
      
      2019-08-01T20:37:28 thomas38
      Verdächtig finde ich folgend Zeile:
      
      [...]Client host rejected: Access denied; from=<robot@example.com> to=<stefan@example.com> proto=ESMTP helo=<localhost.localdomain>
      
      localhost.localdomain ein kein gültiger FQDN.
      
      Quote
      Vermutlich verlangt postfix aber pingeligerweise den richtigen hostnamen (hier vermutlich dev.example.com).
      
      Was heißt pingelig? Das SMTP-Protokoll verlangt einen FQDN
      https://tools.ietf.org/html/rfc5321#section-2.3.5
      
      Und den FQDN bei HELO zu testen dient dazu Spammer zu blocken http://unixwiz.net/techtips/postfix-HELO.html
      Last edited: 2019-08-02 08:26:26 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - styx-cc
        
        2019-08-02 11:31
        
        User since
        2006-05-20
        533 Artikel
        BenutzerIn
        
        2019-08-02T06:23:48 GwenDragon
        2019-08-01T20:37:28 thomas38
        Verdächtig finde ich folgend Zeile:
        
        [...]Client host rejected: Access denied; from=<robot@example.com> to=<stefan@example.com> proto=ESMTP helo=<localhost.localdomain>
        
        localhost.localdomain ein kein gültiger FQDN.
        
        Quote
        Vermutlich verlangt postfix aber pingeligerweise den richtigen hostnamen (hier vermutlich dev.example.com).
        
        Was heißt pingelig? Das SMTP-Protokoll verlangt einen FQDN
        https://tools.ietf.org/html/rfc5321#section-2.3.5
        
        Und den FQDN bei HELO zu testen dient dazu Spammer zu blocken http://unixwiz.net/techtips/postfix-HELO.html
        
        Mh. Ich bin nun kein RFC-Experte, aber für mich liest sich das anders:
        2.3.5.
        
        Code: (dl )
        
        1 2 3 4 5
        
        The domain name given in the EHLO command MUST be either a primary host name (a domain name that resolves to an address RR) or, if the host has no name, an address literal, as described in Section 4.1.3 and discussed further in the EHLO discussion of Section 4.1.4.
        
        Und unter 4.1.4.:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        [...] An SMTP server MAY verify that the domain name argument in the EHLO command actually corresponds to the IP address of the client. However, if the verification fails, the server MUST NOT refuse to accept a message on that basis. Information captured in the verification attempt is for logging and tracing purposes. Note that this prohibition applies to the matching of the parameter to its IP address only; see Section 7.9 for a more extensive discussion of rejecting incoming connections or mail messages. [...]
        
        Und 7.9. sagt dann sinngemäß, es ist explizit freigestellt, Dinge wie ein korrekten DNS-Eintrag zur Bedingung für das annehmen der Mail zu machen.
        
        Oder irre ich?
        Pörl.
        
        GwenDragon
        
        2019-08-02 11:54
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Quote
        The domain name given in the EHLO command MUST be either a primary
        host name (a domain name that resolves to an address RR) or, if
        the host has no name, an address literal
        
        Resolves ;)
        Seit wann ist bitte localhost.localdomain über das Internet auflösbar?
        
        Quote
        (…) verify that the domain name argument in the EHLO
        command actually corresponds to the IP address of the client.
        However, if the verification fails, the server MUST NOT refuse to
        accept a message on that basis (…)
        
        Der Server sollte nicht ablehnen.
        Nun, ja, Was der Ziel-Mailserver bei Domainspam wie bei dir macht weiß ich ja nicht. Bin nicht die Administratorin dort.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
+3 replies
rosti

2019-08-01 08:58

User since
2011-03-19
3470 Artikel
BenutzerIn

SSL ist eine gute Idee, hast Du den Mailversand mal getestet mit IO::Socket::SSL?

MFG
- +2 replies
- Daxim
  
  2019-08-01 14:34
  
  User since
  2007-08-01
  114 Artikel
  BenutzerIn
  
  2019-08-01T06:58:26 rosti
  SSL ist eine gute Idee
  Kryptomanie? Ist ja schon krankhaft!
  - rosti
    
    2019-08-01 15:45
    
    User since
    2011-03-19
    3470 Artikel
    BenutzerIn
    
    2019-08-01T12:34:15 Daxim
    2019-08-01T06:58:26 rosti
    SSL ist eine gute Idee
    Kryptomanie? Ist ja schon krankhaft!
    
    Isses auch. Zumal gar nicht garantiert ist, daß der die Mail übernehmende MTA ebenfalls verschlüsselt weiterreicht, nicht einmal dann wenn der die Mail per SSL bekommt.
    
    MFG
    Last edited: 2019-08-01 15:46:41 +0200 (CEST)
+2 replies
GwenDragon

2019-08-01 17:34

User since
2005-01-17
14746 Artikel
Admin1

Sicher, dass dein sendender Server nicht in einer Blacklist ist?
Teste mal: http://multirbl.valli.org/lookup/
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- styx-cc
  
  2019-08-01 17:42
  
  User since
  2006-05-20
  533 Artikel
  BenutzerIn
  
  Blacklist-test habe ich hier gemacht und sagt alles i.O.:
  https://mxtoolbox.com/SuperTool.aspx#
  
  Deinen Link auch noch ausprobiert, bis auf 2-3 failed ist alles grün!
  
  Danke.
  Pörl.

View all threads created 2019-07-31 23:24.