steffen: server/perl-kolab/Kolab-LDAP-Backend Backend.pm,1.1,1.2
cvs at intevation.de
cvs at intevation.de
Fri Mar 18 08:58:55 CET 2005
Author: steffen
Update of /kolabrepository/server/perl-kolab/Kolab-LDAP-Backend
In directory doto:/tmp/cvs-serv25193/Kolab-LDAP-Backend
Modified Files:
Backend.pm
Log Message:
Issue687 (deletion logic) + better error-logging
Index: Backend.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP-Backend/Backend.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Backend.pm 31 Mar 2004 15:36:46 -0000 1.1
+++ Backend.pm 18 Mar 2005 07:58:53 -0000 1.2
@@ -3,7 +3,7 @@
##
## Copyright (c) 2003 Code Fusion cc
##
-## Writen by Stuart Bingë <s.binge at codefusion.co.za>
+## Writen by Stuart Bing?<s.binge at codefusion.co.za>
##
## This program is free software; you can redistribute it and/or
## modify it under the terms of the GNU General Public License as
@@ -85,7 +85,7 @@
my $func = $startup{$backend};
unless (eval '&$func') {
$func = 'Kolab::LDAP::Backend::' . $backend . '::startup';
- Kolab::log('B', "Function `$func' does not exist, exiting", KOLAB_ERROR);
+ Kolab::log('B', "Error in function `$func': $@, exiting", KOLAB_ERROR);
exit(1);
}
}
@@ -99,7 +99,7 @@
my $func = $run{$backend};
unless (eval '&$func') {
$func = 'Kolab::LDAP::Backend::' . $backend . '::run';
- Kolab::log('B', "Function `$func' does not exist, exiting", KOLAB_ERROR);
+ Kolab::log('B', "Error in function `$func': $@, exiting", KOLAB_ERROR);
exit(1);
}
}
@@ -120,7 +120,7 @@
=head1 AUTHOR
-Stuart Bingë, E<lt>s.binge at codefusion.co.zaE<gt>
+Stuart Bingë¬ E<lt>s.binge at codefusion.co.zaE<gt>
=head1 COPYRIGHT AND LICENSE
More information about the commits
mailing list