E-Mail versenden mit Perl unter Windows 10 (xampp+Strawberry) (solved) (Allgemeines zu Perl)

[thread]20991[/thread]

E-Mail versenden mit Perl unter Windows 10 (xampp+Strawberry) [solved]

Tags: perl5 windows xampp Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+17 replies
DerBronco

2020-06-23 12:57

User since
2020-06-09
14 articles
BenutzerIn

Ich verzweifle :(

Ich hab bisher unter Linux entwickelt und per MIME::Lite verschickt. Hat immer funktioniert, auch wenn mir bekannt ist, dass MIME::Lite nicht mehr empfohlen wird.

Ich wurde gezwungen, auf Windows umzusteigen - und da bekomme ich den E-Mailversand partout nicht hin.

Die Beispiele aus diesem Thread hier hab ich durchprobiert, leider bisher ohne Erfolg:

Email aus Perl senden unter Windows und Unix?

Ich wäre für Hilfe sehr dankbar.
- +16 replies
- GwenDragon
  
  2020-06-23 13:28
  User since
  2005-01-17
  14848 articles
  Admin1
  Wieso ist MIME::Lite nicht mehr empfohlen?
  
  Ansonsten, es geht schon mit MIME::Lite.
  
  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
  
  #!/usr/bin/perl use strict; use warnings; use 5.010; use utf8; use MIME::Lite; my $msg = MIME::Lite->new( From => 'myauthenticatedaccount@vivaldi.net', To => 'spam@gwendragon.de', Subject => 'Doctooooooor Who?!!!', Data => "Daaaaaleks!!!!" ); $msg->send( 'smtp', 'smtp.vivaldi.net', Timeout => 60, AuthUser => 'myauthenticated1234account@vivaldi.net', AuthPass => "th1sS5ap4sswordwith!eryl000ng", Debug=>1 );
  
  Und was klappt bei dir nicht?
  Last edited: 2020-06-23 14:29:42 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Linuxer
    
    2020-06-23 14:38
    
    User since
    2006-01-27
    3891 articles
    HausmeisterIn
    
    Zum "Wieso nicht empfohlen" spricht die perldoc selbst:
    
    perldoc MIME::Lite
    WAIT!
    MIME::Lite is not recommended by its current maintainer. There are a number of alternatives, like Email::MIME or MIME::Entity and Email::Sender, which you should probably use instead. MIME::Lite continues to accrue weird bug reports, and it is not receiving a large amount of refactoring due to the availability of better alternatives. Please consider using something else.
    
    Entnommen aus: https://metacpan.org/pod/MIME::Lite
    
    War ich mir aber auch nicht bewusst. Aber ist bei mir auch Jahre her, dass ich aus Perl heraus Mails verschicken wollte.
    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!
    - DerBronco
      
      2020-06-23 15:00
      
      User since
      2020-06-09
      14 articles
      BenutzerIn
      
      Richtig. Ich habs aber nach wie vor im Produktivbetrieb auf der ollen Linuxkiste (seit ca. 2006). Never stop a running system und so...
      
      Beim Umzug auf die Windowsumgebung ist das aber für mich bedeutungslos, ich nehm gern was Andres - wenns denn funktioniert, was bisher nicht der Fall ist leider :(
  - +13 replies
  - DerBronco
    
    2020-06-23 14:58
    
    User since
    2020-06-09
    14 articles
    BenutzerIn
    
    Leider nicht :(
    
    Das Skript wird bis Zeile 15 abgearbeitet, beim eigentlichen Versand (Zeile 16) wirds ohne weitere Meldung beendet.
    
    Quote
    #!/usr/bin/perl
    ich bin aber unter Windows, bei mir ist der Perlpfad #!"C:\Strawberry\perl\bin\perl.exe"
    - +2 replies
    - GwenDragon
      
      2020-06-23 16:16
      
      User since
      2005-01-17
      14848 articles
      Admin1
      
      Kommt da keinerlei (Debug-)Meldung, wenn deines bei Zeile 16 abbricht?
      
      Und wie der #!-Shebang lautet ist auch egal unter Windoow.
      Last edited: 2020-06-23 16:17:51 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - DerBronco
        
        2020-06-23 16:20
        
        User since
        2020-06-09
        14 articles
        BenutzerIn
        
        Nein, er bricht quasi "wortlos" ab...
    - +10 replies
    - GwenDragon
      
      2020-06-23 16:26
      
      User since
      2005-01-17
      14848 articles
      Admin1
      
      Was hast du denn so:
      - Perl-Version
      - MIME::Lite
      - Net::SSLGlue
      
      Bitte poste mal dein kurzes Test-Skript, wo du auch nur dein MIME::Lite->new() und .....->send() drin hast.
      Und lass es mal in der Eingabeaufforderung laufen, damit zu sehen ist wo der Fehler was wirft.
      Last edited: 2020-06-23 16:32:37 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +9 replies
      - DerBronco
        
        2020-06-23 16:53
        
        User since
        2020-06-09
        14 articles
        BenutzerIn
        
        Strawberry Perl aktuell (5.30.2.1)
        MIME::Lite aktuell (3.031)
        Net::SSLGlue war garnicht installiert, jetzt 1.058
        
        Ich hab dein Beispiel angepasst:
        
        Quote
        use strict;
        use warnings;
        use 5.010;
        use utf8;
        use MIME::Lite;
        
        my $msg = MIME::Lite->new(
        From => 'xxx@icloud.com',
        To => 'xxxd@oxxx',
        Subject => 'Doctooooooor Who?!!!',
        Data => "Daaaaaleks!!!!"
        );
        
        $msg->send(
        'smtp',
        'smtps.udag.de',
        Timeout => 60,
        AuthUser => 'xxx',
        AuthPass => "xxx",
        Debug=>1
        );
        
        Wie das mit der Eingabeaufforderung geht, weiss ich leider nicht...
        
        +8 replies
        
        Linuxer
        
        2020-06-23 17:05
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        2020-06-23T14:53:17 DerBronco
        Wie das mit der Eingabeaufforderung geht, weiss ich leider nicht...
        
        Z.B. sollte das so gehen:
        
        Windows-Taste und R gleichzeitig drücken.
        
        cmd eingeben; Enter drücken.
        
        Im Fenster der Eingabeaufforderung dann folgendes eingeben; gefolgt von einem Druck auf Enter:
        
        C:\Strawberry\perl\bin\perl.exe Pfad\zu\deinem\Skript
        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!
        
        +7 replies
        
        DerBronco
        
        2020-06-23 17:21
        
        User since
        2020-06-09
        14 articles
        BenutzerIn
        
        Okay, hab ich gemacht.
        
        Er sagt mir
        
        Quote
        535 5.7.0. Login failes. Only SSL login enabled - please check your client config.
        
        +6 replies
        
        GwenDragon
        
        2020-06-23 17:25
        
        User since
        2005-01-17
        14848 articles
        Admin1
        
        Probiere es mal so mit SSL:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        $msg->send( 'smtp', 'smtps.udag.de', Timeout => 60, AuthUser => 'xxx', AuthPass => "xxx", Debug=>1, SSL=>1, Port=>465 );
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        DerBronco
        
        2020-06-23 18:11
        
        User since
        2020-06-09
        14 articles
        BenutzerIn
        
        Jetzt läuft er sehr lange weiter, sowohl im Browser, als auch in der Eingabeaufforderung - bis er dann abbricht:
        
        Quote
        Net::SMTP::_SSL>>> Net::SMTP::_SSL
        Net::SMTP::_SSL>>> IO::Socket::SSL(2.067)
        Net::SMTP::_SSL>>> IO::Socket::IP(0.39)
        Net::SMTP::_SSL>>> IO::Socket(1.42)
        Net::SMTP::_SSL>>> IO::Handle(1.42)
        Net::SMTP::_SSL>>> Exporter(5.74)
        Net::SMTP::_SSL>>> Net::SMTP(3.11)
        Net::SMTP::_SSL>>> Net::Cmd(3.11)
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 220 smtps.udag.de ESMTP ready
        Net::SMTP::_SSL=GLOB(0x34442f8)>>> EHLO localhost.localdomain
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 250-smtps.udag.de
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 250-SIZE 51200000
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 250-ETRN
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 250-ENHANCEDSTATUSCODES
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 250-8BITMIME
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 250 AUTH PLAIN LOGIN
        Net::SMTP::_SSL=GLOB(0x34442f8)>>> AUTH PLAIN dGhvbWFzcGFycm90dGEtZGUtMDAwMQB0aG9tYXNwYXJyb3R0YS1kZS0wMDAxAEthcm1hOTIx
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 235 2.0.0 OK
        Net::SMTP::_SSL=GLOB(0x34442f8)>>> MAIL FROM:<xxx@xxx.de>
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 250 2.1.0 Ok
        Net::SMTP::_SSL=GLOB(0x34442f8)>>> RCPT TO:<xxx@xxx.at>
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 250 2.1.5 Ok
        Net::SMTP::_SSL=GLOB(0x34442f8)>>> DATA
        Net::SMTP::_SSL=GLOB(0x34442f8)<<< 354 End data with <CR><LF>.<CR><LF>
        Net::SMTP::_SSL=GLOB(0x34442f8)>>> .
        Net::CMD (Net::SMTP) DATAEND command failed.
        Last server message was:This probably represents a problem with newline encoding at c:/xampp/htdocs/test3.pl line 26.
        
        In Zeile 26 steht der $msg->send-Befehl.
        Last edited: 2020-06-23 18:23:17 +0200 (CEST)
        
        +4 replies
        
        GwenDragon
        
        2020-06-23 18:49
        
        User since
        2005-01-17
        14848 articles
        Admin1
        
        In den Daten für den Wert Data muss am Ende ein \n stehen!
        Sonst hängt der Server.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        DerBronco
        
        2020-06-23 18:51
        
        User since
        2020-06-09
        14 articles
        BenutzerIn
        
        Jawoll, das wars!
        
        Ich bedank mich sehr herzlich für die Unterstützung! Vielen, vielen Dank!
        
        +1 Extrapunkt für den Doctor im Beispielcode. You'll never forget your first...
        
        GwenDragon
        
        2020-06-23 18:58
        
        User since
        2005-01-17
        14848 articles
        Admin1
        
        Bitte sehr.
        
        Viel Spaß noch mit Perl auf Windows.
        
        PS: Hihi, der Doctor. Ja, ich bin eine, welche die Serie mag.
        Last edited: 2020-06-23 19:30:57 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GwenDragon
        
        2020-06-23 19:30
        
        User since
        2005-01-17
        14848 articles
        Admin1
        
        Du kannst den Thread auch auf gelöst stellen, wenn alles passt. Dann einfach auf den Haken neben "Thread als gelöst markieren: " klicken.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2020-06-23 12:57.