| Subject: | Patch for lack of support for multi-line greetings in Net::SMTP::TLS |
| Date: | Wed, 20 Feb 2013 06:56:14 -0800 |
| To: | bug-Net-SMTP-TLS [...] rt.cpan.org |
| From: | Ian Crew <icrew [...] berkeley.edu> |
Hello:
As Mike reported in bug id 81972, Net::SMTP::TLS doesn't support multi-line greetings.
In Googling around, I discovered that someone has posted a simple patch for how to fix this. It's up at http://tonyborries.com/techblog/cpanel-exim-and-perls-netsmtptls/, and copy-and-pasted below, in case rt.cpan.org doesn't allow URLs to be included in bug reports:
$ diff Net-SMTP-TLS-0.12/lib/Net/SMTP/TLS.pm Net-SMTP-TLS-0.12-fixed/lib/Net/SMTP/TLS.pm
117,121c117,126
< # read the line immediately after connecting
< my ($rsp,$txt) = $me->_response();
< if(not $rsp == 220){
< croak "Could not connect to SMTP server: $host $txt\n";
< }
---
Show quoted text
> # read the line(s) immediately after connecting
> my $rsp;
> my $txt;
> my $more;
> do {
> ($rsp,$txt,$more) = $me->_response();
> if(not $rsp == 220){
> croak "Could not connect to SMTP server: $host $txt\n";
> }
> } while ($more eq '-');
I hope this patch can be rolled into the main Net::SMTP::TLS code at some point. It seems to work perfectly for me....
Thanks,
Ian