From: David R. <d.r...@qu...> - 2001-04-29 22:57:25
|
I get the value of '16' from $mesg->code ... sorry haven't looked up the defined constant. Dave. Graham Barr wrote: > > The code looks OK. > > What value do you get from $mesg->code ? > > Graham. > > On Fri, Apr 27, 2001 at 05:11:27PM +1000, David Richards wrote: > > Hi, > > > > I'm having a tough time trying to get a modify working, the code below > > is failing and I know it is just because I don't quite understand the > > syntax. What I am trying to do is remove all the listed attributes from > > the entry (which do exist). Can someone please help me.... > > > > Code: > > > > # Unconditional delete of existing memberships. > > my %qv_del_arry = ( mailListRecv => [], mailListSend => [], > > mailListAdmin => [], mailListModerator => [] ); > > printf( "Modify '%s'\n", $entry->dn() ); > > my $mesg = $ldap->modify( $entry, delete => { %qv_del_arry } ); > > if( $mesg->code != LDAP_SUCESS ) { > > printf( "%s LDAP modify failed (delete membership), exiting. SERVER > > ERROR = %s\n", > > $NICE_TIME, $mesg->error ); > > exit( 1 ); > > } > > > > This produces the output: > > > > Modify 'clientID=23055, ou=People, o=QUT' > > 2001-04-27 17:02:51 LDAP modify failed (delete membership), exiting. > > SERVER ERROR = modify: delete values failed > > > > I have tried all sorts of combinations, thanks in advance. > > > > -- > > David Richards > > Project Manager (Messaging) > > Information Technology Services > > Queensland University of Technology > > -- David Richards Project Manager (Messaging) Information Technology Services Queensland University of Technology |