Skip Menu |
 

This queue is for tickets about the Net-SMTP-TLS CPAN distribution.

Report information
The Basics
Id: 83480
Status: new
Priority: 0/
Queue: Net-SMTP-TLS

People
Owner: Nobody in particular
Requestors: icrew [...] berkeley.edu
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



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
Download (untitled) / with headers
text/html 11.4k


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.