Changeset 189 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad.pm

Timestamp:

05/26/09 16:28:27 (15 years ago)

Author:

nanardon

Message:

• add set_password() to AD

File:

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

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

@@ -11 +11 @@
 use Net::LDAP::Constant qw( LDAP_CONTROL_PAGED ); 
 use Net::LDAP::Util     qw( escape_filter_value );
+use Unicode::Map8;
+use Unicode::String qw(utf16);
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -109 +111 @@
     }
 
-    $ldap or return; # connot connect to any ldap :\
+    $ldap or do {
+        warn "Cannot to ldap server";
+        return; # connot connect to any ldap :\
+    };
 
     my $login = $self->{_login};
@@ -145 +150 @@
         sort { $a->priority <=> $b->priority || $a->weight <=> $b->weight }
         grep { $_->type eq 'SRV' } $query->answer) {
-        push(@urllist, $self->_ldap_url($rr->target, $rr->port));
+        push(@urllist, $self->_ldap_url($rr->target)); # $rr->port)); don't use port
     }