Thanks, the problem was in base64. Timeout for 1 sec. I use only for
testing.
2010/6/29 Steffen Kaiser <skdove...@smail.inf.fh-brs.de>
> -----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-----
