Email::Sender::Failure - Wie komme ich an die Fehlermeldung (solved) (Fragen zu Perl-Modulen) - Perl-Community.de

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

2024-09-18 11:16:02
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
2 guests

[thread]21540[/thread]

submit to reddit

Email::Sender::Failure - Wie komme ich an die Fehlermeldung [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 10

Articles: hide open all | hide show old branches

+14 replies
Perlentaucher

2024-02-09 22:34

User since
2014-08-04
26 articles
BenutzerIn

Ein herzerfrischendes Moin vom achtern Diek vorweg!

Ich habe da mal wieder eine Anfängerfrage in einer Sache die mich zur Verzweiflung treibt:

Ich kann mittels Email::Sender::Simple try_to_sendmail erfolgreich eine email versenden.

Jetzt bietet mir Email::Sender::Failure angeblich die Möglichkeit an, mir eine Fehlermeldung auszugeben, wenn das mal nicht klappen sollte.
Nur wie kriege ich die Meldung in my $status?

Ich stehe hier wien Ochs vorm Berg und sehe den Wald vor lauter Bäume nicht...

Danke für Eure Hilfe vorweg!
- bianca
  
  2024-02-10 08:17
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Hi perlentaucher!
  
  Bist du denn ganz sicher, dass ein Fehler da ist?
  
  Hast du Testcode für uns womit wir das Verhalten nachstellen können.
  10 print "Hallo"
  20 goto 10
- +4 replies
- GwenDragon
  
  2024-02-10 09:14
  User since
  2005-01-17
  14741 articles
  Admin1
  Ungetestete Idee:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  use Email::Sender::Simple qw(sendmail); use Email::MIME; my $email = Email::MIME->create(...); my $fail_object = sendmail($email); my $fail_message = $fail_object->message; my $fail_errorcode = $fail_object->code; my $fail_failed_recipients = $fail_object->recipients;
  
  Last edited: 2024-02-10 09:17:52 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Perlentaucher
    
    2024-02-16 20:36
    User since
    2014-08-04
    26 articles
    BenutzerIn
    
    Hallo Gwen
    
    2024-02-10T08:14:53 GwenDragon
    Ungetestete Idee:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    use Email::Sender::Simple qw(sendmail); use Email::MIME; my $email = Email::MIME->create(...); my $fail_object = sendmail($email); my $fail_message = $fail_object->message; my $fail_errorcode = $fail_object->code; my $fail_failed_recipients = $fail_object->recipients;
    
    Der Trick mit $fail_object->message; hat funktioniert.
    code und recipients sind "unbekannte Objekte".
    
    Allerdings hat sich jetzt ein neues interessantes Verhalten aufgetan:
    
    Mit richtigen credentials gibt mir $fail_object->message ganz brav die Meldung Requested mail action okay, completed: id=1M1qfu-1rYrz118jA-002ClN aus.
    Gebe ich absichtlich ein falsches Passwort ein, gibt es gar kein Objekt aus sondern haut mir gänzlich ungefragt
    
    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
    
    failed AUTH: Authentication credentials invalid Trace begun at /usr/local/share/perl/5.28.1/Email/Sender/Transport/SMTPS.pm line 98 Email::Sender::Transport::SMTPS::_throw('Email::Sender::Transport::SMTPS=HASH(0x559959a8a8)', 'failed AUTH', 'Net::SMTPS=GLOB(0x5599075248)') called at /usr/local/share/perl/5.28.1/Email/Sender/Transport/SMTPS.pm line 71 Email::Sender::Transport::SMTPS::_smtp_client('Email::Sender::Transport::SMTPS=HASH(0x559959a8a8)') called at /usr/local/share/perl/5.28.1/Email/Sender/Transport/SMTPS.pm line 107 Email::Sender::Transport::SMTPS::send_email('Email::Sender::Transport::SMTPS=HASH(0x559959a8a8)', 'Email::Abstract=ARRAY(0x559868d7b8)', 'HASH(0x5599495570)') called at /usr/share/perl5/Email/Sender/Role/CommonSending.pm line 45 Email::Sender::Role::CommonSending::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Try::Tiny::try('CODE(0x559a3b02b0)', 'Try::Tiny::Catch=REF(0x5597476278)') called at /usr/share/perl5/Email/Sender/Role/CommonSending.pm line 58 Email::Sender::Role::CommonSending::send('Email::Sender::Transport::SMTPS=HASH(0x559959a8a8)', 'Email::Abstract=ARRAY(0x559868d7b8)', 'HASH(0x559958c930)') called at /usr/share/perl5/Email/Sender/Simple.pm line 119 Email::Sender::Simple::send_email('Email::Sender::Simple', 'Email::Abstract=ARRAY(0x559868d7b8)', 'HASH(0x559a24acc0)') called at /usr/share/perl5/Email/Sender/Role/CommonSending.pm line 45 Email::Sender::Role::CommonSending::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Try::Tiny::try('CODE(0x5593808638)', 'Try::Tiny::Catch=REF(0x55991742f0)') called at /usr/share/perl5/Email/Sender/Role/CommonSending.pm line 58 Email::Sender::Role::CommonSending::send('Email::Sender::Simple', 'Email::MIME=HASH(0x5599a752c8)', 'HASH(0x55953c91c0)') called at /usr/local/share/perl/5.28.1/Sub/Exporter/Util.pm line 18 Sub::Exporter::Util::__ANON__('Email::MIME=HASH(0x5599a752c8)', 'HASH(0x55953c91c0)') called at FHEM/99_myUtils.pm line 1358 main::SendMeterReading('CH_Watermeter_Main') called at (eval 6125160) line 1 eval '{SendMeterReading("CH_Watermeter_Main")}' at fhem.pl line 1177 main::AnalyzePerlCommand('HASH(0x55961ae148)', '{SendMeterReading("CH_Watermeter_Main")}', 1) called at fhem.pl line 1206 main::AnalyzeCommand('HASH(0x55961ae148)', '{SendMeterReading("CH_Watermeter_Main")}', 'ACC') called at fhem.pl line 1133 main::AnalyzeCommandChain('HASH(0x55961ae148)', '{SendMeterReading("CH_Watermeter_Main")}') called at FHEM/01_FHEMWEB.pm line 2863 main::FW_fC('{SendMeterReading("CH_Watermeter_Main")}', '') called at FHEM/01_FHEMWEB.pm line 1025 main::FW_answerCall('/fhem&fw_id=1708110991.06291&cmd=%7BSendMeterReading%28%22CH_Watermeter_Main%22%29%7D') called at FHEM/01_FHEMWEB.pm line 609 main::FW_Read('HASH(0x55961ae148)') called at fhem.pl line 3985 main::CallFn('WEB_::ffff:192.168.178.82_47004', 'ReadFn', 'HASH(0x55961ae148)') called at fhem.pl line 786
    
    auf den Bildschirm.
    
    Ich vermute, dass dies eine spezielle Eigenart von der fhem.pl ist.
    Da muss ich mal das entsprechende Forum kontaktieren.
    
    Danke!
    Gruss
    Perlentaucher
    - bianca
      
      2024-02-17 09:22
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      Sieht aus als ob da nach Ausgabe der ersten Zeile ein exit o. ä. fehlt.
      10 print "Hallo"
      20 goto 10
    - rosti
      
      2024-02-17 11:20
      
      User since
      2011-03-19
      3463 articles
      BenutzerIn
      
      Das ist genau das Verhalten was die Doku beschreibt. Prüfe mal mit ref $fail_object welcher Klasse dieses Objekt angehört, oder nutze besser gleich try/catch wie beschrieben. mfg
- +3 replies
- rosti
  
  2024-02-10 09:41
  
  User since
  2011-03-19
  3463 articles
  BenutzerIn
  
  Offensichtlich musst Du selber prüfen, zu welcher Klasse das Return-Objekt von sendmail() gehört. ref $obj kann also entweder Email::Sender::Success liefern oder Email::Sender::Failure. Wenn es Letzteres ist, hat dieses Objekt eine Methode message().
  
  Anm.: Wenn das wirklich so ist wie ich die Dokumentation verstanden habe ist das ziemlich bescheuert.
  
  MFG
  - +2 replies
  - haj
    
    2024-02-10 12:44
    
    User since
    2015-01-07
    551 articles
    BenutzerIn
    
    Im Fehlerfall gibt's kein Return-Objekt. Aus der Beschreibung von Email::Sender::Manual::QuickStart (hervorhebung von mir):
    
    Quote
    If there is an error sending the message, an exception will be thrown. It will be an object belonging to the class Email::Sender::Failure.
    
    Also, wie rosti schon schrieb: So etwas wie Try::Tiny kann das abfangen. Oder, ab Perl 5.34, try und catch aus dem Perl-Core.
    - barney
      
      2024-02-10 14:38
      
      User since
      2008-08-31
      161 articles
      BenutzerIn
      
      Oder mit Feature::Compat::Try wenn man die neue core syntax schon vor Perl 5.34 benutzen will.
- rosti
  
  2024-02-10 10:22
  
  User since
  2011-03-19
  3463 articles
  BenutzerIn
  
  Am Einfachsten setzt Du den ganzen Code in einen try-Block und hast im Fall einer Exception den Fehlercode in $_ für die Fangschaltung (catch). MFG
  
  Siehe auch https://metacpan.org/pod/Try::Tiny
  Last edited: 2024-02-10 10:31:58 +0100 (CET)
- +4 replies
- GwenDragon
  
  2024-02-24 13:08
  
  User since
  2005-01-17
  14741 articles
  Admin1
  
  Problem gelöst, Perlentaucher?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Perlentaucher
    
    2024-04-04 14:56
    
    User since
    2014-08-04
    26 articles
    BenutzerIn
    
    Hallo zusammen
    
    Hatte eine Weile keine Zeit das Thema weiter zu verfolgen.
    Habe erst jetzt Eure Tipps verfolgen koennen und es hat geklappt.
    Danke!
    
    Problem geloest!
    
    Gruss
    Sailor
    - GwenDragon
      
      2024-04-04 16:10
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Gut so :-)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2024-04-05 08:25
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      2024-04-04T12:56:32 Perlentaucher
      Problem geloest!
      
      Und wie?
      10 print "Hallo"
      20 goto 10

View all threads created 2024-02-09 22:34.