I try to use the following simple script to create mailboxes on
FreeBSD4.2 / 2.0.11 / 1.5.24 box.
//----------------------------------------------------------
#!/usr/bin/perl
use Mail::IMAPClient;
die "Give your user name as an argument" unless @ARGV;
$host = "localhost";
$uid = "cyrus";
$psw = "secret";
my $client = Mail::IMAPClient->new(
Server => $host,
User => $uid,
Password=> $psw,
Debug => 0,
) or die "couldn't connect to $host port 143: $!\n";
if(!$client->create("user." . $ARGV[0]))
{
$err = $client->LastError();
$client->logout();
die $err;
}
$client->logout() or
die $client->LastError();
//----------------------------------------------------------
it works fine, but when I run some copies of it simultaneously, it gives
something like this:
Jul 16 19:07:44 ian pam_userdb[3374]: DBERROR db3: Aborting locker
80000020
Jul 16 19:07:45 ian pam_userdb[3375]: aborting txn 2147483680
Jul 16 19:07:45 ian pam_userdb[3375]: DBERROR db3: 9 lockers
Jul 16 19:07:45 ian pam_userdb[3375]: DBERROR db3: Aborting locker
8000001f
Jul 16 19:07:46 ian pam_userdb[3377]: aborting txn 2147483679
Jul 16 19:07:46 ian pam_userdb[3377]: DBERROR db3: 9 lockers
Jul 16 19:07:46 ian pam_userdb[3377]: DBERROR db3: Aborting locker
8000001e
Jul 16 19:07:46 ian pam_userdb[3376]: DBERROR db3: 10 lockers
Jul 16 19:07:46 ian pam_userdb[3376]: DBERROR db3: Aborting locker
80000023
Jul 16 19:07:46 ian pam_userdb[3376]: aborting txn 2147483683
Jul 16 19:07:46 ian pam_userdb[3376]: DBERROR db3: 9 lockers
Jul 16 19:07:47 ian pam_userdb[3378]: DBERROR db3: 10 lockers
Jul 16 19:07:47 ian pam_userdb[3378]: DBERROR db3: Aborting locker
80000024
Jul 16 19:07:47 ian pam_userdb[3378]: aborting txn 2147483684
Jul 16 19:07:47 ian pam_userdb[3378]: DBERROR db3: 9 lockers
Jul 16 19:07:47 ian pam_userdb[3381]: DBERROR db3: 10 lockers
Jul 16 19:07:47 ian pam_userdb[3381]: DBERROR db3: Aborting locker
80000026
Jul 16 19:07:47 ian pam_userdb[3381]: aborting txn 2147483686
... and the server hangs (until master restart).
what did I write wrong?
