Mailsenden Problem: mail senden via smtp - #37405 (Netzwerkprogrammierung und Netzwerke mit Perl)

ptk

2006-11-16 23:45

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Du solltest mit dem Debugger auch ein bisschen in die Tiefe gehen (s statt n). Ich habe es auch versucht; mein SMTP-Server versteht kein AUTH und verhält sich genau wie bei dir mit einer nichtsagenden Fehlermeldung.

Zum Beispiel sieht man in Mail::Mailer::smtp, dass bei einer fehlgeschlagenen Authentifizierung nichts gemeldet wird:

Code: (dl )

if ($opt{Auth}) {
       $smtp->auth(@{$opt{Auth}})
           or return undef;
    }

Folgende Zeilen sehe ich im Debugger:

Code: (dl )

  DB<12> 
Net::SMTP::auth(/usr/local/lib/perl5/site_perl/5.8.8/Net/SMTP.pm:117):
117:        my $mechanisms = $self->supports('AUTH',500,["Command unknown: 'AUTH'"]);
  DB<12> 
Net::SMTP::auth(/usr/local/lib/perl5/site_perl/5.8.8/Net/SMTP.pm:118):
118:        return unless defined $mechanisms;
  DB<12>

Nur ein return, aber keine weitere Diagnosemöglichkeiten, weder mit $! oder einer anderen Error-Variable, und auch keine Warnung auf STDERR. Ich glaube, das reicht für einen Bugreport auf rt.cpan.org. Man sollte wenigstens rauskriegen können, warum etwas schief geht, ein einfaches "Died" reicht nicht.