[Dovecot] Work with auth socket

[Steffen Kaiser]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Tue, 29 Jun 2010, Неворотин Вадим wrote:

> my $base64 = encode_base64("\0$login\0$passwd");
> $sock->send("AUTH\t1\tPLAIN\tservice=$service\tsecured\tresp=$base64\n") or
> die "Can't write to $socket";

There is a wicked side effect of encode_base64(), use this:

my $base64 = encode_base64("\0$login\0$passwd", '');

Try strace -s99 -e recvfrom,sendto,send,recv perl ...

or similiar command of your system to see the difference.

> my $i = 10;
> while ($i--) {
> $sel->can_read($timeout) or last; # "Timed out while waiting for response";

If Dovecot starts to answer in less than 1s, the loop terminates.
IMHO you should try with a longer timeout the 1st time can_read() is 
called.

Regards,

- -- 
Steffen Kaiser
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)

iQEVAwUBTCoH5L+Vh58GPL/cAQKbLQgApMqn+QDNLJnDksrp1/Qb7lbGji8Qxp1+
BkZTy2Pp/hld4jwr0R6MQgF10MNgt7luatSo3WzvL1KS/zINCoiAMxL3CIcNIIjQ
RW57LhsdBiFUpKvmwrMaHrV+VJM2gDONTPMXRTfLkpTsSYSnVfvGZMDgLr7rPMid
GRT+dLyXuUMxmqSWH4XPPohSuQam1E2g5cNKXp+VHUikxunz0NbPHA5ni0byCmwR
vVx4R0DEjTPw9ydcWPOCPxHwAS48eXrcpo8/1QD5Bp5S7x9CKre6PA+wdcWmHmOk
p17tAG12vGG7MGXy0f7jmI476Dp+fi0han9Z2d7QbtbI1f0yOpfMsw==
=FHUX
-----END PGP SIGNATURE-----