[Dovecot] Timeout leak in get quota

[Nikita Koshikov]

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