Mail Anhänge mit Perl und SSL

[Chromatin]

Moin.

Ich habe ein seltsames Problem. Ich schicke nach Rechnungsläufen an viele Kunden Abrechnungsbelege und die Rechnungen.

Der Code ist im wesentlichen identisch mit dem Code im letzten Artikel hier: Sending An Attachment Using Net::SMTP (ja...das "boundary" Beispiel am Ende der Mail ist falsch).

Nun soll das ganze über externe Kisten laufen und ich habe die Net::SMTP durch Net::SMTPS ersetzt, welche sich eigentlich nur um SSL kümmert und ansonsten die Net::SMTP übernimmt.

Der Code funktioniert weiterhin insoweit, dass die Mail nach Authentifizierung versendet wird, inkl. der Anhänge.

Das Problem ist aber, dass " $smtp->dataend();" die Verbindung nicht beendet - es hängt - und zwar wenn ich SSL benutze.

"$smtp->dataend();" kommt aus der Lib "Net::cmd" und macht im Grunde nix anderes als ein "<NL>.<NL>" für das Ende des smtp Dialogs zu senden...
Tracen kann ich via SSL ja ooch nix ...

Jemand ne Idee?

 

[bitmuncher]

Hast du das gleiche Problem auch, wenn du die Daten "manuell" beendest (\r\n.\r\n an's Ende der Daten)?

 

[Chromatin]

Jo

Das ist weird. Ich kriege bei diesen Methoden:

quit
dataend
oder den "." via datasend den gleichen output:

Net::SMTPS=GLOB(0x8287d150)>>> --frontier--
Net::SMTPS=GLOB(0x8287d150)>>> .

Verwende ich quit UND dataend, gibts trotzdem nur einen "." zu sehen .. ich vermute die Lib schickt tatsaechlich nur eines von beiden.

*update*

Wenn ich bei "quit" in den timeout laufe, gibts immerhin nen SSL Fehler.. also mal mit SSL Optionen spielen..

 

[Chromatin]

*solved*

Ich hatte eine "local $/=undef;" mit im Code.
Das scheint mit smtp over SSL nicht zu funktionieren .. weird!