perl-ldap-dev

modify problem

[Uwe G. <ug...@su...>]

Hi,

perl-ldap 0.20

$mesg = $ldap->modify( "cn=".$group.",".$ldapbase,
                       changes => [
                           replace => [ memberuid => "" ],  # change memberuids
                           replace => [ description => $desc ]
                          ]
             );

do not work but :

$mesg = $ldap->modify( "cn=".$group.",".$ldapbase, replace => { memberuid => "" });  # change memberuids
$mesg = $ldap->modify( "cn=".$group.",".$ldapbase, replace => { description => $desc });

works fine. Where is the problem ?


-- 
tschau , Uwe Gansert
-------------------------------------------------------------------------------
echo '$e=5;$p=3;$q=13;$h=$p*$q;while(($e*++$d)%($h-$p-$q+1)-1){};while($t=subst
r("82758c1b8939c7ef5c5d0°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°1eaa4aa38516aed5559fe
27fd0f5b0b464474b2316eac~~~~        ug...@su...        ~~~~390a03",$i,3)){$_.=pa
ck"I",(hex($t)%$h)**$d%$°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°h+95;s/_/ /g;$_=($i+=
3)%2?uc:lc;print"$_\n";}'|perl -ne"chomp;s/°|~|\s*ug@[^~]*//g;print"|perl

Re: modify problem

[Graham B. <gb...@po...>]

A bug in Net::LDAP, try

 $mesg = $ldap->modify( "cn=".$group.",".$ldapbase,
                        changes => [
                            replace => [ memberuid => [""] ],  # change memberuids
                            replace => [ description => [$desc] ]
                           ]
              );

Note the [] around the values

Graham.

On Thu, Aug 31, 2000 at 11:45:13AM +0200, Uwe Gansert wrote:
> Hi,
> 
> perl-ldap 0.20
> 
> $mesg = $ldap->modify( "cn=".$group.",".$ldapbase,
>                        changes => [
>                            replace => [ memberuid => "" ],  # change memberuids
>                            replace => [ description => $desc ]
>                           ]
>              );
> 
> do not work but :
> 
> $mesg = $ldap->modify( "cn=".$group.",".$ldapbase, replace => { memberuid => "" });  # change memberuids
> $mesg = $ldap->modify( "cn=".$group.",".$ldapbase, replace => { description => $desc });
> 
> works fine. Where is the problem ?
> 
> 
> -- 
> tschau , Uwe Gansert
> -------------------------------------------------------------------------------
> echo '$e=5;$p=3;$q=13;$h=$p*$q;while(($e*++$d)%($h-$p-$q+1)-1){};while($t=subst
> r("82758c1b8939c7ef5c5d01eaa4aa38516aed5559fe
> 27fd0f5b0b464474b2316eac~~~~        ug...@su...        ~~~~390a03",$i,3)){$_.=pa
> ck"I",(hex($t)%$h)**$d%$h+95;s/_/ /g;$_=($i+=
> 3)%2?uc:lc;print"$_\n";}'|perl -ne"chomp;s/|~|\s*ug@[^~]*//g;print"|perl
>