Mail::Box POP3 locking issues (2.057 and previous)

This pop3 locking issue is still ongoing.  I have isolated it a bit closer I think.

Using the test script attached, when i run on a mailbox with approx 50 messages, i get:

opening initial connection
message count: 52
closing all folders
opening pop3 again
ERROR: Could not authenticate using 'LOGIN' method
ERROR: Cannot create POP3 client for /var/mail/root.
WARNING: Folder does not exist, failed opening pop3 folder /var/mail/root.
Failed to open pop3: Bad file descriptor at ./test_mail_box.pl line 10.

mail logs show:

Sep 20 18:16:29 mailhost in.qpopper[30790]: (v4.0.5) POP login by user "testuser" at (testhost)
test_host_ip [pop_log.c:244]
Sep 20 18:16:30 mailhost in.qpopper[30791]: (v4.0.5) POP login by user "testuser" at (testhost)
test_host_ip [pop_log.c:244]
Sep 20 18:16:36 mailhost in.qpopper[30792]: testuser at testhost (test_host_ip): -ERR [IN-USE]
/var/spool/pop/.testuser.pop lock busy!  Is another session active? (11) [pop_dropcopy.c:1546]


when i uncomment the line retrieving the message id within the message list loop, i get the
following output:

opening initial connection
message count: 52
closing all folders
opening pop3 again


mail logs show:

Sep 20 18:17:49 mailhost in.qpopper[30796]: (v4.0.5) POP login by user "testuser" at (testhost)
test_host_ip [pop_log.c:244]
Sep 20 18:17:56 mailhost in.qpopper[30797]: (v4.0.5) POP login by user "testuser" at (testhost)
test_host_ip [pop_log.c:244]
Sep 20 18:17:57 mailhost in.qpopper[30798]: (v4.0.5) POP login by user "testuser" at (testhost)
test_host_ip [pop_log.c:244]


Maybe it has something to do with the lazy loading of the messages and somehow not releasing
the second connection.


take care,
jason

--
Jason Woodward
[email protected]

-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
 
mQGiBDrwHPoRBAC3nDJRLKTcFcJWid9PN08ChMI7tuQevomWoVeZpZZ0zzip2w/E
ts55Mx58eRRGFFmgZZGeP7EhyUPzb668LIsU62gFO7G5/oWCr3U3g3peabZsqRC9
FchdiM8DJqQu/7ryAjbQ4OFCSW+jAsMC3tKXrdaB48WiipiXUcKR/sONGwCgzGPf
yxDgOc7n9xWVH0qbUDC/vZsEAKvbckkhpe9/x2A4E15l6DUbliEmboeHiT9NJaok
vLo3ElSO1o6ld5+VhFIkhRmmovrS8oyttZNv8HjMEYf6L3NdZybTHfcdS5EIpguH
Xx2/IGzJKbgX3vM/qhJ0+F1LPuN20mOT0NO/29AXJn3V7rTKoKf/uOOKD+Eqh4r1
QVMoBAC3ZPF3idmuW3j4tqhOaWe2qHlLwEClwdsTG+KOsVYh1sU4RvyMErDIU6r/
MomkLAJfbtBTXKcknW68Y4Uv4B+UkyopklktRBFiMBffoHLUfkkQk/L9Yg1YG27N
COsECiamylF8hNSTcNIQqYXDpyoRcSi2p7gqkxJZrk7GwrX2ObQjSmFzb24gV29v
ZHdhcmQgPHdvb2R3YXJkakBqYW9zLm9yZz6IVwQTEQIAFwUCOvAc+gULBwoDBAMV
AwIDFgIBAheAAAoJEGu22odUp/oeN2IAoKHS+qH8AenlOTKL0Ifl3q1QSlDBAKDL
bvvgl7HoRTHY2b9n3pEPr+KIh7kBDQQ68Bz9EAQA2Ds/2VKc08qaNIkA1okxITmQ
aaNjUrm/au9jNzm9lyEFXWXBNegzP5Y4A1ESDKUt5RETgVhNKd9mGkP7tgPTs3f6
Z595K6W7xeZWONKbl578RbWwE1CiMqEOuXwr1/q0DzfwmNQLcqDcX3o0DEpWE+uZ
G+5CtpkXYiDmccigDKMAAwUD/iZDxEr1HC4iLnGXUCDpxXEtp7Fx150baFzZITns
4hpKRAbTR65s2tL8rh5d8ThDgqW5C9JQja9fMxI2u7zlyM2ALFXJP1xwgZTSOYvn
sq+x41i5tJpce+pDmMEl8X0wew2Z5ZRPfDLv64kKPIGNgVXsAHirH2KjChZat4VC
qkZciEYEGBECAAYFAjrwHP0ACgkQa7bah1Sn+h7qkQCePz0ds5O/dsZrm450pjLs
2V3BkMAAn2/6alBBC9b9F94svdOf0mGY/G5w
=4p8c
-----END PGP PUBLIC KEY BLOCK-----

my($c,@s)=(0,qw( | / - \ ));$|++;my$p;&{sub{map{$p.=chr$_}
unpack(join('a',('',split(//,$_->[1]))),$_->[0]);}}foreach
[qw/74117115116 2333/],[qw/65110111116104101114 2333333/],
[qw/80101114108 2333/],[qw/729799107101114 222333/];{my$z=
$c<4?$s[$c++]:$s [$c=0];printf"\ec%s%s%s",$z,$p,$z,select*
STDOUT,*STDOUT,*STDOUT,0.1,;redo;}##########JAPH##########

#!/usr/bin/perl
$|++;
use strict;
use warnings;
use Mail::Box::Manager;

sub open_pop3 {
  my $manager = shift;

	my $pop3 = $manager->open(
    type => "pop3",
    username => "USER",
    password => "PASS",
    server_name => "HOST",
    server_port => "110",
		authenticate => "LOGIN",
  ) or die "Failed to open pop3: $!";
	return $pop3;
}

my $manager = Mail::Box::Manager->new();
die "Failed to instantiate manager" unless $manager;

print "opening initial connection\n";
my $pop3 = open_pop3($manager);
die "Failed to open pop3 connection" unless $pop3;

# do some work...
my $count = scalar($pop3->messages());
print "message count: $count\n";
foreach my $msg ($pop3->messages()){
	#my $id = $msg->messageId();
}

# close all open folders, committing all deletes on the pop3 server, etc
print "closing all folders\n";
$manager->closeAllFolders();

sleep 3;

# re-open the connection to do further work
print "opening pop3 again\n";
$pop3 = open_pop3($manager);