Net::POP3 - Timeout für Authentifizierung setzen? - #190418 (Netzwerkprogrammierung und Netzwerke mit Perl)

mixxer

2019-08-30 07:33

User since
2016-04-01
25 Artikel
BenutzerIn
[default_avatar]

2019-08-29T22:30:36 styx-cc
Mal das Timeout im Konstruktor gesetzt, wie in der Doku beschrieben?
Code: (dl )
 $pop = Net::POP3->new('pop3host', SSL => 1, Timeout => 60);

Yupp, das ist leider das Timeout für die Client-Server-Connection. Ich möchte jedoch, dass ein fehlerhafter LOGIN schneller akzeptiert wird...

Aus dem LOG:

Code: (dl )

Net::POP3::_SSL>>> Net::POP3::_SSL
Net::POP3::_SSL>>>   IO::Socket::SSL(2.060)
Net::POP3::_SSL>>>     IO::Socket::IP(0.38)
Net::POP3::_SSL>>>       IO::Socket(1.38)
Net::POP3::_SSL>>>         IO::Handle(1.36)
Net::POP3::_SSL>>>           Exporter(5.72)
Net::POP3::_SSL>>>   Net::POP3(3.11)
Net::POP3::_SSL>>>     Net::Cmd(3.11)
Net::POP3::_SSL=GLOB(0x556ee1666428)<<< +OK POP3 server ready <bla@blub.de>
Net::POP3::_SSL=GLOB(0x556ee1666428)>>> CAPA
Net::POP3::_SSL=GLOB(0x556ee1666428)<<< +OK Capability list follows:
Net::POP3::_SSL=GLOB(0x556ee1666428)>>> AUTH DIGEST-MD5
Net::POP3::_SSL=GLOB(0x556ee1666428)<<< + bm9uY2U9IjMyOGFkNTdkNDQyNjZmNDZjOTYxMzlkNmQ3M2NkNWMwIixxb3A9ImF1dGgiLGNoYXJzZXQ9dXRmLTgsYWxnb3JpdGhtPW1kNS1zZXNz
Net::POP3::_SSL=GLOB(0x556ee1666428)>>> YXV0aHppZD0icC5tYm1hbi1wZXJsLWFkbUBhbmljb20uZGUiLGNoYXJzZXQ9dXRmLTgsY25vbmNlPSJhYWU2MWU2YWZkNjdmYmYxMTljMTRiMmVhN2UyY2QyNyIsZGlnZXN0LXVyaT0icG9wL3BvcDMuc3RyYXRvLmRlIixuYz0wMDAwMDAwMSxub25jZT0iMzI4YWQ1N2Q0NDI2NmY0NmM5NjEzOWQ2ZDczY2Q1YzAiLHFvcD1hdXRoLHJlc3BvbnNlPTMxM2UwNWM0NjBhNGIwY2E0ZWJlZjYwMTA2ODRhMDAxLHVzZXJuYW1lPSJwLm1ibWFuLXBlcmwtYWRtQGFuaWNvbS5kZSI=
Net::POP3::_SSL=GLOB(0x556ee1666428)<<< -ERR [AUTH] Authentication failed
Net::POP3::_SSL=GLOB(0x556ee1666428)>>> QUIT
Net::POP3::_SSL=GLOB(0x556ee1666428)<<< +OK Closing connection

Mir geht es um die Zeit zwischen [14] und [15]…