Dear List, At:
http://search.cpan.org/~gbarr/perl-ldap-0.33/lib/Net/LDAP/Extension/SetPassword.pm The example is: --------------- use Net::LDAP; use Net::LDAP::Extension::SetPassword; $ldap = Net::LDAP->new( "ldap.mydomain.eg" ); $ldap->bind('cn=Joe User,cn=People,dc=mydomain,dc=eg", password => 'oldPassword'); $mesg = $ldap->set_password( oldpasswd => 'oldPassword' ); die "error: ", $mesg->code(), ": ", $mesg->error() if ($mesg->code()); print "changed your password to", $mesg->gen_passwd() , "\n"; --------------- There's no such subroutine/function as gen_passwd() it's gen_password() According to: http://search.cpan.org/src/GBARR/perl-ldap-0.33/lib/Net/LDAP/Extension/SetPassword.pm --------------- sub gen_password { my $self = shift; my $out = $passwdModRes->decode($self->response); $out->{genPasswd}; } ---------------- On a side note, after sucessfully authenicating and changing a password, gen_password() doesn't actually print anything??? Thanks. -- Walking the road to enlightenment... I found a penguin and a camel on the way..... Fancy a [EMAIL PROTECTED] Just ask!!! http://aberdeen.pm.org
