Script dies under perlex on Net::SMTP->new

am 22.04.2009 11:15:09 von Tore Busch

--===============1887489494==
Content-Type: multipart/signed; micalg="pgp-sha1";
protocol="application/pgp-signature";
boundary="=-L7LNvRBY4E4I/r/jx5Gr"

--=-L7LNvRBY4E4I/r/jx5Gr
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

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 =3D (
'Debug' =3D> 0,
'Port' =3D> 25,
'Timeout' =3D> 60
);
my $SMTP;
print STDERR "Before..\n";
eval { $SMTP =3D Net::SMTP->new(, %arg ) };
print STDERR "AFTER..\n";
--------------8<-----------------

Description:

The email is sent OK.
==================== =3D

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=3DGLOB(0x392d23fc)<<< 220 server.name.removed Microsoft ESMTP
MAIL Service, Version: 6.0.3790.1830 ready at Tue, 21 Apr 2009 14:12:18
+0200=20
Net::SMTP=3DGLOB(0x392d23fc)>>> EHLO localhost.localdomain
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-server.name.removed Hello
[ip.number.removed]
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-TURN
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-SIZE
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-ETRN
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-PIPELINING
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-DSN
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-8bitmime
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-BINARYMIME
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-CHUNKING
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-VRFY
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-X-EXPS GSSAPI NTLM LOGIN
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-X-EXPS=3DLOGIN
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-AUTH GSSAPI NTLM LOGIN
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-AUTH=3DLOGIN
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-X-LINK2STATE
Net::SMTP=3DGLOB(0x392d23fc)<<< 250-XEXCH50
Net::SMTP=3DGLOB(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=20
Net::SMTP=3DGLOB(0x392d23fc)>>> MAIL FROM:
Net::SMTP=3DGLOB(0x392d23fc)<<< 250 2.1.0 example@email.no....Sender OK
Net::SMTP=3DGLOB(0x392d23fc)>>> RCPT TO:
Net::SMTP=3DGLOB(0x392d23fc)<<< 250 2.1.5 toname@email.no=20
Net::SMTP=3DGLOB(0x392d23fc)>>> DATA
Net::SMTP=3DGLOB(0x392d23fc)<<< 354 Start mail input; end with
.

data() Message: Start mail input; end with . |Code:354|
Status:3|OK:1

Net::SMTP=3DGLOB(0x392d23fc)>>> Content-Transfer-Encoding: UTF-8

datasend() Message: Start mail input; end with . |Code:354|
Status:3|OK:1

Net::SMTP=3DGLOB(0x392d23fc)>>> Content-Type: text/plain; charset=3D"UTF-8"
Net::SMTP=3DGLOB(0x392d23fc)>>> To: toname@email.no
Net::SMTP=3DGLOB(0x392d23fc)>>> Subject: [EQS pid] Subject
Net::SMTP=3DGLOB(0x392d23fc)>>> Reply-To: reply-to@email.no
Net::SMTP=3DGLOB(0x392d23fc)>>> From: Example User
Net::SMTP=3DGLOB(0x392d23fc)>>> Date: Tue, 21 Apr 2009 12:12:18 GMT
Net::SMTP=3DGLOB(0x392d23fc)>>> X-Originating-IP: [10.251.22.43]
Net::SMTP=3DGLOB(0x392d23fc)>>> X-Mailer: EQS v.3.5.3.2
Net::SMTP=3DGLOB(0x392d23fc)>>>=20
Net::SMTP=3DGLOB(0x392d23fc)>>> Data
Net::SMTP=3DGLOB(0x392d23fc)>>> Data, data, data, data, data, data
Net::SMTP=3DGLOB(0x392d23fc)>>> Data
Net::SMTP=3DGLOB(0x392d23fc)>>>=20
Net::SMTP=3DGLOB(0x392d23fc)>>> http://www.vg.no/
Net::SMTP=3DGLOB(0x392d23fc)>>> .
Net::SMTP=3DGLOB(0x392d23fc)<<< 250 2.6.0
Queued mail for
delivery

dataend() Message: Start mail input; end with . 2.6.0
Queued mail for
delivery |Code:250|Status:2|OK:1

Net::SMTP=3DGLOB(0x392d23fc)>>> QUIT
Net::SMTP=3DGLOB(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:
==================== ===3D

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=3DGLOB(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.
==================== =====3D=
=================3D

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

--=20
Tore Busch, System Developer, Extend AS tore.busch@extend.no
http://www.extend.no/ tlf: (+47) 73 54 61 00
Key fingerprint =3D 13CF 752E D5F3 A95A 6A8D 5F62 9A94 2387 C3FC AFC1

--=-L7LNvRBY4E4I/r/jx5Gr
Content-Type: application/pgp-signature; name="signature.asc"
Content-Description: This is a digitally signed message part

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)

iEYEABECAAYFAknu4BoACgkQmpQjh8P8r8Ef1gCfdGyc091XvIyVPIUK9YSI 6Nh7
JPkAnRRtXfsiID4CFcJm7H4H9BenQd/s
=3I2g
-----END PGP SIGNATURE-----

--=-L7LNvRBY4E4I/r/jx5Gr--

--===============1887489494==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1887489494==--