Hello, We have an application running under PerlEx 5.8.8 on IIS 6.0.
At one customer we have begun to have problems when sending email with
Net::SMTP.
--------------8<-----------------
%arg = (
'Debug' => 0,
'Port' => 25,
'Timeout' => 60
);
my $SMTP;
print STDERR "Before..\n";
eval { $SMTP = Net::SMTP->new(<server>, %arg ) };
print STDERR "AFTER..\n";
--------------8<-----------------
Description:
The email is sent OK.
=====================
Example output, slightly editet and with more debug
----------8<---------------
Extend::Mail transmit() BEFORE SMTP
Net::SMTP>>> Net::SMTP(2.30)
Net::SMTP>>> Net::Cmd(2.27)
Net::SMTP>>> Exporter(5.60)
Net::SMTP>>> IO::Socket::INET(1.31)
Net::SMTP>>> IO::Socket(1.30)
Net::SMTP>>> IO::Handle(1.27)
Net::SMTP=GLOB(0x392d23fc)<<< 220 server.name.removed Microsoft ESMTP
MAIL Service, Version: 6.0.3790.1830 ready at Tue, 21 Apr 2009 14:12:18
+0200
Net::SMTP=GLOB(0x392d23fc)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x392d23fc)<<< 250-server.name.removed Hello
[ip.number.removed]
Net::SMTP=GLOB(0x392d23fc)<<< 250-TURN
Net::SMTP=GLOB(0x392d23fc)<<< 250-SIZE
Net::SMTP=GLOB(0x392d23fc)<<< 250-ETRN
Net::SMTP=GLOB(0x392d23fc)<<< 250-PIPELINING
Net::SMTP=GLOB(0x392d23fc)<<< 250-DSN
Net::SMTP=GLOB(0x392d23fc)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x392d23fc)<<< 250-8bitmime
Net::SMTP=GLOB(0x392d23fc)<<< 250-BINARYMIME
Net::SMTP=GLOB(0x392d23fc)<<< 250-CHUNKING
Net::SMTP=GLOB(0x392d23fc)<<< 250-VRFY
Net::SMTP=GLOB(0x392d23fc)<<< 250-X-EXPS GSSAPI NTLM LOGIN
Net::SMTP=GLOB(0x392d23fc)<<< 250-X-EXPS=LOGIN
Net::SMTP=GLOB(0x392d23fc)<<< 250-AUTH GSSAPI NTLM LOGIN
Net::SMTP=GLOB(0x392d23fc)<<< 250-AUTH=LOGIN
Net::SMTP=GLOB(0x392d23fc)<<< 250-X-LINK2STATE
Net::SMTP=GLOB(0x392d23fc)<<< 250-XEXCH50
Net::SMTP=GLOB(0x392d23fc)<<< 250 OK
Extend::Mail transmit() AFTER SMTP
Banner: server.name.removed Microsoft ESMTP MAIL Service, Version:
6.0.3790.1830 ready at Tue, 21 Apr 2009 14:12:18 +0200
Net::SMTP=GLOB(0x392d23fc)>>> MAIL FROM:<[email protected]>
Net::SMTP=GLOB(0x392d23fc)<<< 250 2.1.0 [email protected] OK
Net::SMTP=GLOB(0x392d23fc)>>> RCPT TO:<[email protected]>
Net::SMTP=GLOB(0x392d23fc)<<< 250 2.1.5 [email protected]
Net::SMTP=GLOB(0x392d23fc)>>> DATA
Net::SMTP=GLOB(0x392d23fc)<<< 354 Start mail input; end with
<CRLF>.<CRLF>
data() Message: Start mail input; end with <CRLF>.<CRLF> |Code:354|
Status:3|OK:1
Net::SMTP=GLOB(0x392d23fc)>>> Content-Transfer-Encoding: UTF-8
datasend() Message: Start mail input; end with <CRLF>.<CRLF> |Code:354|
Status:3|OK:1
Net::SMTP=GLOB(0x392d23fc)>>> Content-Type: text/plain; charset="UTF-8"
Net::SMTP=GLOB(0x392d23fc)>>> To: [email protected]
Net::SMTP=GLOB(0x392d23fc)>>> Subject: [EQS pid] Subject
Net::SMTP=GLOB(0x392d23fc)>>> Reply-To: [email protected]
Net::SMTP=GLOB(0x392d23fc)>>> From: Example User <[email protected]>
Net::SMTP=GLOB(0x392d23fc)>>> Date: Tue, 21 Apr 2009 12:12:18 GMT
Net::SMTP=GLOB(0x392d23fc)>>> X-Originating-IP: [10.251.22.43]
Net::SMTP=GLOB(0x392d23fc)>>> X-Mailer: EQS v.3.5.3.2
Net::SMTP=GLOB(0x392d23fc)>>>
Net::SMTP=GLOB(0x392d23fc)>>> Data
Net::SMTP=GLOB(0x392d23fc)>>> Data, data, data, data, data, data
Net::SMTP=GLOB(0x392d23fc)>>> Data
Net::SMTP=GLOB(0x392d23fc)>>>
Net::SMTP=GLOB(0x392d23fc)>>> http://www.vg.no/
Net::SMTP=GLOB(0x392d23fc)>>> .
Net::SMTP=GLOB(0x392d23fc)<<< 250 2.6.0
<[email protected]> Queued mail for
delivery
dataend() Message: Start mail input; end with <CRLF>.<CRLF> 2.6.0
<[email protected]> Queued mail for
delivery |Code:250|Status:2|OK:1
Net::SMTP=GLOB(0x392d23fc)>>> QUIT
Net::SMTP=GLOB(0x392d23fc)<<< 221 2.0.0 TRASPEXVS01.mnh.helsemn.no
Service closing transmission channel
quit() Message: 2.0.0 TRASPEXVS01.mnh.helsemn.no Service closing
transmission channel |Code:221|Status:2|OK:1
----------8<---------------
We get a Timeout error:
=======================
No problem as such here. Nice and catchable.
But other applications on the server does not have any trouble sending
email...
----------8<---------------
Extend::Mail transmit() BEFORE SMTP
Net::SMTP>>> Net::SMTP(2.30)
Net::SMTP>>> Net::Cmd(2.27)
Net::SMTP>>> Exporter(5.60)
Net::SMTP>>> IO::Socket::INET(1.31)
Net::SMTP>>> IO::Socket(1.30)
Net::SMTP>>> IO::Handle(1.27)
Net::SMTP=GLOB(0x3c6bcc44): Timeout at C:/Perl/site/lib/Extend/Mail.pm
line 450
Extend::Mail transmit() AFTER SMTP
----------8<---------------
The script just dies right there and then.
==========================================
And the eval {} does not catch it!
----------8<---------------
Extend::Mail transmit() BEFORE SMTP
Net::SMTP>>> Net::SMTP(2.30)
Net::SMTP>>> Net::Cmd(2.27)
Net::SMTP>>> Exporter(5.60)
Net::SMTP>>> IO::Socket::INET(1.31)
Net::SMTP>>> IO::Socket(1.30)
Net::SMTP>>> IO::Handle(1.27)
----------8<---------------
Any pointers would be very welcome.
This is very annoying....
/Tore
--
Tore Busch, System Developer, Extend AS [email protected]
http://www.extend.no/ tlf: (+47) 73 54 61 00
Key fingerprint = 13CF 752E D5F3 A95A 6A8D 5F62 9A94 2387 C3FC AFC1
signature.asc
Description: This is a digitally signed message part
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
