Changeset 287

Timestamp:

07/27/09 15:03:25 (15 years ago)

Author:

nanardon

Message:

• catch no dns reply error

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad.pm

@@ -103 +103 @@
 
     my $ldap;
-    foreach my $tryserv (
-        $self->{server}
+    my @ldapservers = ($self->{server}
         ? ($self->_ldap_url($self->{_server}))
-        : $self->_query_zone_ads) {
+        : ($self->_query_zone_ads)) or do {
+        la_log(LA_ERR,
+            "Cannot find any ldap server for domain %s", $self->ad_domain);
+        return;
+    };
+    foreach my $tryserv (@ldapservers) {
         $self->log(LA_DEBUG, "Trying to connect to ldap %s", $tryserv);
         $ldap = Net::LDAP->new(
@@ -112 +116 @@
         ) and last;
     }
-
+ 
     if($ldap) {
         $self->log(LA_DEBUG, "Connect to ldap server done");