projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
38e8651
)
better logging
author
ivan
<ivan>
Tue, 11 Sep 2001 12:06:57 +0000
(12:06 +0000)
committer
ivan
<ivan>
Tue, 11 Sep 2001 12:06:57 +0000
(12:06 +0000)
FS/FS/svc_acct.pm
patch
|
blob
|
history
diff --git
a/FS/FS/svc_acct.pm
b/FS/FS/svc_acct.pm
index
3988634
..
d7dbcfa
100644
(file)
--- a/
FS/FS/svc_acct.pm
+++ b/
FS/FS/svc_acct.pm
@@
-255,22
+255,30
@@
sub insert {
sub cyrus_insert {
my( $username, $quota ) = @_;
sub cyrus_insert {
my( $username, $quota ) = @_;
+ warn "cyrus_insert: starting for user $username, quota $quota\n";
+
+ warn "cyrus_insert: connecting to $cyrus_server\n";
my $client = Cyrus::IMAP::Admin->new($cyrus_server);
my $client = Cyrus::IMAP::Admin->new($cyrus_server);
+
+ warn "cyrus_insert: authentication as $cyrus_admin_user\n";
$client->authenticate(
-user => $cyrus_admin_user,
-mechanism => "login",
-password => $cyrus_admin_pass
);
$client->authenticate(
-user => $cyrus_admin_user,
-mechanism => "login",
-password => $cyrus_admin_pass
);
+ warn "cyrus_insert: creating user.$username\n";
my $rc = $client->create("user.$username");
my $error = $client->error;
my $rc = $client->create("user.$username");
my $error = $client->error;
- die
$error
if $error;
+ die
"cyrus_insert: error creating user.$username: $error"
if $error;
+ warn "cyrus_insert: setacl user.$username, $username => all\n";
$rc = $client->setacl("user.$username", $username => 'all' );
$error = $client->error;
die $error if $error;
if ( $quota ) {
$rc = $client->setacl("user.$username", $username => 'all' );
$error = $client->error;
die $error if $error;
if ( $quota ) {
+ warn "cyrus_insert: setquota user.$username, STORAGE => $quota\n";
$rc = $client->setquota("user.$username", 'STORAGE' => $quota );
$error = $client->error;
die $error if $error;
$rc = $client->setquota("user.$username", 'STORAGE' => $quota );
$error = $client->error;
die $error if $error;
@@
-763,7
+771,7
@@
sub email {
=head1 VERSION
=head1 VERSION
-$Id: svc_acct.pm,v 1.3
6 2001-09-11 12:00:19
ivan Exp $
+$Id: svc_acct.pm,v 1.3
7 2001-09-11 12:06:57
ivan Exp $
=head1 BUGS
=head1 BUGS