From: ivan <ivan>
Date: Tue, 11 Sep 2001 12:06:57 +0000 (+0000)
Subject: better logging
X-Git-Tag: freeside_1_4_0pre11~346
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=e92e1a168b8fc6f6fcba9fd06f72e88ed9780457

better logging
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 3988634b0..d7dbcfaf2 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -255,22 +255,30 @@ sub insert {
 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);
+
+  warn "cyrus_insert: authentication as $cyrus_admin_user\n";
   $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;
-  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 ) {
+    warn "cyrus_insert: setquota user.$username, STORAGE => $quota\n";
     $rc = $client->setquota("user.$username", 'STORAGE' => $quota );
     $error = $client->error;
     die $error if $error;
@@ -763,7 +771,7 @@ sub email {
 
 =head1 VERSION
 
-$Id: svc_acct.pm,v 1.36 2001-09-11 12:00:19 ivan Exp $
+$Id: svc_acct.pm,v 1.37 2001-09-11 12:06:57 ivan Exp $
 
 =head1 BUGS