Added support for lists.

[licom.git] / lib / Person.pm

diff --git a/lib/Person.pm b/lib/Person.pm
index c692e96..25df303 100644 (file)
--- a/lib/Person.pm
+++ b/lib/Person.pm
@@ -541,6 +541,23 @@ sub get_user
        return ($cn, $id);
 }
 
+sub password
+{
+       my $obj = shift;
+       my $entry = $obj->{'ldap'};
+       my $pwd;
+
+       if (@_)
+       {
+               $pwd = shift;
+               $entry->changetype ('modify');
+               $entry->replace (userPassword => $pwd);
+               $entry->update ($Ldap);
+       }
+
+       $pwd = $entry->get_value ('userPassword');
+}
+
 =back
 
 =head1 AUTHOR