[Dovecot] Timeout leak in get quota

[Danilo]

On 08/10/2011 15:09, Nikita Koshikov wrote:
> On Thu, 29 Sep 2011 15:05:53 +0200
> Danilo wrote:
> 
>> Hello!
>> I wrote perl script for read current quota usage, it works but when I run the
>> program I receive a warning in Dovecot log:
>>
>> 2011-09-29 14:45:30 doveadm(guest at testmail.com): Warning: Timeout leak:
>> 0x7f14800ad970
>>
>> This is the script:
>> ===============================
>> #!/usr/bin/perl
>>
>> use strict;
>> use Socket;
>> use IO::Handle;
>>
>> socket(TSOCK, PF_UNIX, SOCK_STREAM,0);
>> connect(TSOCK, sockaddr_un("/var/run/dovecot/doveadm-server")) or print("ERROR!");
>>
>> print "VERSION\tdoveadm-server\t1\t0\n";
>> print "\tguest\@testmail.com\tquota get\n";
>> print "=" x 20 . "\n";
>>
>> if (defined(my $messg = <TSOCK>)) {
>>
>>         print $messg;
>>
>> 	print TSOCK "VERSION\tdoveadm-server\t1\t0\n";
>> 	TSOCK->flush;
>>
>> 	print TSOCK "\tguest\@testmail.com\tquota get\n";
>> 	TSOCK->flush;
>>
>> 	$messg = <TSOCK>;
>> 	print $messg;
>>
>> 	$messg = <TSOCK>;
>> 	print $messg;
>>
>> 	close TSOCK;
>> }
>> =============================
>> I hope someone could help me to fix the warning.
>> Thanks in advance,
>>    Dany
> 
> I'm using doveadm socket too for getting quota values. No warning. The main difference from yours script that I'm also using auth:
> 
> print TSOCK "VERSION\tdoveadm-server\t1\t0\n";
> print TSOCK "PLAIN\tbase64_encoded_pass_here\n";
> print TSOCK "\t$local_part\@$domain\tquota get\n";
> TSOCK->flush;
> 
> Dovecot version 2.0.15


Thanks,
I had update dovecot to 2.0.15 version, now works without warning.

Dany