steffen: server/perl-kolab/Kolab-Cyrus Cyrus.pm,1.3,1.4

cvs at intevation.de cvs at intevation.de
Mon Sep 6 00:11:08 CEST 2004


Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-Cyrus
In directory doto:/tmp/cvs-serv28734/Kolab-Cyrus

Modified Files:
	Cyrus.pm 
Log Message:
handle downed imapd gracefully

Index: Cyrus.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Cyrus/Cyrus.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Cyrus.pm	18 Jun 2004 13:26:05 -0000	1.3
+++ Cyrus.pm	5 Sep 2004 22:11:06 -0000	1.4
@@ -44,7 +44,7 @@
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 
 our @EXPORT = qw(
-    
+
 );
 
 our $VERSION = '0.9';
@@ -57,16 +57,16 @@
 
     if (!$cyrus) {
         Kolab::log('Y', 'Unable to connect to local Cyrus admin interface', KOLAB_ERROR);
-        exit(1);
+	return 0;
     }
-                                                                                                                                  
+
     if (!$cyrus->authenticate(
         'User'          => $Kolab::config{'cyrus_admin'},
         'Password'      => $Kolab::config{'cyrus_admin_pw'},
         'mechanisms'    => 'plaintext',
     )) {
         Kolab::log('Y', "Unable to authenticate with Cyrus admin interface, Error = `" . $cyrus->error . "'", KOLAB_ERROR);
-        exit(1);
+	return 0;
     }
 
     return $cyrus;





More information about the commits mailing list