Changeset 189

Timestamp:

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

Author:

nanardon

Message:

• add set_password() to AD

Location:

LATMOS-Accounts

Files:

• bin/la-passwd (added)
• lib/LATMOS/Accounts/Bases/Ad.pm (modified) (3 diffs)
• lib/LATMOS/Accounts/Bases/Ad/User.pm (modified) (4 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
     }
 

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

@@ -7 +7 @@
 use base qw(LATMOS::Accounts::Bases::Ad::objects);
 use Net::LDAP;
+use Net::LDAPS;
 use Net::LDAP::Entry;
 use Net::LDAP::Control::Paged;
@@ -70 +71 @@
         userAccountControl
         locked
+        dSHeuristics
         ),
         ($mode !~ /w/
@@ -121 +123 @@
     $field eq 'directReports' and do {
         my $res = $self->SUPER::get_field($field);
-        return [ map { $self->base->get_value('cn') } @{ ref $res ? $res : [ $res ] } ];
+        return;
+        #return [ map { $self->base->get_value('cn') } @{ ref $res ? $res : [ $res ] } ];
     };
     $field eq 'manager' and do {
-        my $entry = $self->SUPER::get_field($field) or return;
-        return $entry->get_value('cn');
+        #my $entry = $self->SUPER::get_field($field) or return;
+        #return $entry->get_value('cn');
     };
     $self->SUPER::get_field($field);
@@ -170 +173 @@
 }
 
+sub set_password {
+    my ($self, $clear_pass) = @_;
+    my $charmap = Unicode::Map8->new('latin1')  or  die;
+    my $newUniPW = $charmap->tou('"'.$clear_pass.'"')->byteswap()->utf16();
+    my $mesg = $self->base->ldap->modify(
+        $self->get_c_field('dn'),
+        changes => [
+        #replace => [ userPassword => $clear_pass ],
+        replace => [ unicodePwd => $newUniPW ],
+
+        ]
+    );
+    if ($mesg->code && $mesg->code != 82) {
+        warn $mesg->error;
+        return;
+    } else { return 1 }
+}
+
 1;