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