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