Re: Can't get LDAP::Message object with modify method

Graham Barr wrote:
> On Sep 26, 2008, at 8:11 AM, John W. Sopko Jr. wrote:
>>
>> Here is the section of code that changes the password:
>>
>> # the unicodePwd attribute is write only
>> $mesg = $AD->modify($dn, replace => { "unicodePwd" => $adpw });
>> print "mesg->code = $mesg->code() \n";
> 
> That is not calling the method.
> 
>> print "resultCode = $mesg->{'resultCode'} \n";
>>
>> if($mesg->{'resultCode'} != 0) {
>>        print STDERR "\nFailed to change password for $cn exiting.\n";
>>        print STDERR "error_text:" . $mesg->error_text . "\n";
>>        print STDERR "server_error:" . $mesg->server_error . "\n";
>>        print STDERR "error:" . $mesg->error . "\n";
>>        print
>>        exit 1;
>> }
>>
>>
>> Output from above section:
>>
>> mesg->code = Net::LDAP::Modify=HASH(0x81d1f90)->code()
>> resultCode = 53
> 
> If you change the line above to
> 
> print "mesg->code = ",$mesg->code()," \n";

I plead temporary insanity, improper print statement,
that fixed.

I changed the test I was trying to figure out from this:

if($mesg->{'resultCode'} != 0) {

to this:

if($mesg->code() != 0) {

and it works fine.

> 
> you should also see 53, so I doubt this is you problem.
> 
>> Failed to change password for astroboy exiting.
>> error_text:The server is unwilling to perform the requested operation
>>
>> server_error:0000052D: SvcErr: DSID-031A0FC0, problem 5003 
>> (WILL_NOT_PERFORM), data 0
>>
>> error:0000052D: SvcErr: DSID-031A0FC0, problem 5003 
>> (WILL_NOT_PERFORM), data 0
> 
> Well it certainly looks like the server is refusing to change the 
> password, so I would expect the return message to signal an error

Yes  am testing for error conditions.

Thanks for your help!

> 
> Graham.
> 

-- 
John W. Sopko Jr.               University of North Carolina
email: sopko AT cs.unc.edu      Computer Science Dept., CB 3175
Phone: 919-962-1844             Sitterson Hall; Room 044
Fax:   919-962-1799             Chapel Hill, NC 27599-3175