In einem selbstgeschriebenen Programm verwende ich Net::SMTP und
Net::SMTP::TLS, je nach Aufruf-Option.
Funktioniert so weit, ich kann damit mails verschicken.

Ich hab noch eine -v Option eingebaut, die debug-Output ausgibt:
was an den Mailserver geht und was als Antwort zurueckkommt.
Fuer Net::SMTP funktioniert das so:

$mailer = new Net::SMTP($server,
Hello => $hostname,
Port => $port,
);
(...)
print "==> FROM $from\n" if $opt_v;
$mailer->mail($from) or error('FROM');
print "<== ",$mailer->message if $opt_v;

Die message-Methode ist zwar nicht in Net::SMTP dokumentiert, aber das
verweist auf Net::Cmd wo dann steht:

"message()"
Returns the text message returned from the last command.

Leider bietet Net::SMTP::TLS keine message-Methode.
Wie komm ich da an die Antwort vom Server (fuer den Debug-Output)?

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/

Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:
> Ich hab noch eine -v Option eingebaut, die debug-Output ausgibt:
> was an den Mailserver geht und was als Antwort zurueckkommt.
[...]
> Leider bietet Net::SMTP::TLS keine message-Methode.
> Wie komm ich da an die Antwort vom Server (fuer den Debug-Output)?

Ich verwende das so:

$mailer = new Net::SMTP($server,
Hello => $hostname,
Port => $port,
Debug => $opt_v ? 1 : 0,
);

Das ist nicht genau das, was Du gesucht hast, aber es gibt unter anderem
das aus, was Du möchtest.

Heiko

Heiko Schlichting <heiko@cis.fu-berlin.de> wrote:
> Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:
>> Ich hab noch eine -v Option eingebaut, die debug-Output ausgibt:
>> was an den Mailserver geht und was als Antwort zurueckkommt.
> [...]
>> Leider bietet Net::SMTP::TLS keine message-Methode.
>> Wie komm ich da an die Antwort vom Server (fuer den Debug-Output)?
>
> Ich verwende das so:
>
> $mailer = new Net::SMTP($server,
> Hello => $hostname,
> Port => $port,
> Debug => $opt_v ? 1 : 0,
> );
>
> Das ist nicht genau das, was Du gesucht hast, aber es gibt unter anderem
> das aus, was Du möchtest.

Net::SMTP::TLS kennt keinen Debug Parameter.
Wie geschrieben: Bei Net::SMTP kann ich die Server-Antwort mit message()
anfragen. Das ist kein Problem. Ich such was vergleichbares fuer
Net::SMTP::TLS. Ich will da wissen, was der Server antwortet.

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/

Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:
> In einem selbstgeschriebenen Programm verwende ich Net::SMTP und
> Net::SMTP::TLS, je nach Aufruf-Option.
> Funktioniert so weit, ich kann damit mails verschicken.

Ist das mal wieder ein Verhau mit den drölfzig SMTP(S) Implementierungen
unter perl ... ;-)

Ich benutze nichts davon, aber wären Net::SMTP, dass TLS inzwischen wohl
unterstützt, oder Net::SMTPS eine Option?

Gruß,
Enrik

Enrik Berkhan <Enrik.Berkhan@inka.de> wrote:
> Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:
>> In einem selbstgeschriebenen Programm verwende ich Net::SMTP und
>> Net::SMTP::TLS, je nach Aufruf-Option.
>> Funktioniert so weit, ich kann damit mails verschicken.
>
> Ist das mal wieder ein Verhau mit den drölfzig SMTP(S) Implementierungen
> unter perl ... ;-)

Ich nehme auch gerne was fertiges.
Es muss halt verbose/debug Modus haben.
Was gibts da?

> Ich benutze nichts davon, aber wären Net::SMTP, dass TLS inzwischen wohl
> unterstützt

Da habe ich keine brauchbare Dokumentation gefunden.

> oder Net::SMTPS eine Option?

Das kannte ich nicht. Klingt brauchbar. Werde ich testen!

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/

Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:

>> oder Net::SMTPS eine Option?
>
> Das kannte ich nicht. Klingt brauchbar. Werde ich testen!

Prima, funktioniert:

framstag@fex:/tmp: /tmp/smtpsend -T $HOME/.mutt/tls -t -v </tmp/zz
connected to smtp.uni-stuttgart.de:587
==> FROM framstag@rus.uni-stuttgart.de
<== 2.1.0 Ok
==> TO framstag@flupp.org
<== 2.1.5 Ok
==> DATA
==> (HEADER)
==>
==> (BODY)
<== 2.0.0 from MTA(smtp:[127.0.0.1]:10025): 250 2.0.0 Ok: queued as F3753603B2
==> QUIT
<== 2.0.0 Bye

Die Mail kam auch korrekt an.

Ich verwende fuer den connect:

$mailer = new Net::SMTPS($server,
doSSL => 'starttls',
Hello => $hostname,
Port => $port,
);

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/

Ulli Horlacher <framstag@rus.uni-stuttgart.de> wrote:
> Net::SMTP::TLS kennt keinen Debug Parameter.

Ah - ich habe Net::SMTPS verwendet und dort gibt es das.

Heiko