bugfix: catch ldap error

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8283 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/modules/ServerPackages.pm b/gosa-si/modules/ServerPackages.pm
index e3bee1793155dd72a64d39f11c4f1de303720e15..a1432ad00cf087127b4d4d45cf5ace606e99aa09 100644 (file)
--- a/gosa-si/modules/ServerPackages.pm
+++ b/gosa-si/modules/ServerPackages.pm
@@ -594,8 +594,12 @@ sub new_ldap_config {
     }
 
     # Build LDAP connection
-    my $ldap;
-    $ldap= Net::LDAP->new($ldap_uri);
+    my $ldap = Net::LDAP->new($ldap_uri);
+    if( not defined $ldap ) {
+        &main::daemon_log("ERROR: cannot connect to ldap: $ldap_uri", 1);
+        return;
+    } 
+
 
     # Bind to a directory with dn and password
     my $mesg= $ldap->bind($ldap_admin_dn, $ldap_admin_password);