Re: Error trying to add attribute to existing class

Nevermind, list! I figured out what I was doing wrong. My code previous
code was trying to add a new dn instead of modiying an existing one. A
code sample in this presentation set me straight:

http://ldap.perl.org/perl-ldap-oscon2001.pdf

And then I realized that $group_dn wasn't being defined properly. I was
leaving off the "cn=" at the start. My code has been reduced to this,
which works:


 $mesg = $ldap->modify($group_dn,
              add => { 'memberUid' => "$username" },
    );



Prentice 


On 04/05/2012 01:55 PM, Prentice Bisbal wrote:
> Dear Net::LDAPers,
>
> I'm using Net:LDAP to add/remove user accounts from LDAP. I've created a
> subroutine that adds the user to a group after their account is already
> created. I'm trying to add an additional MemberUID attribute to an
> existing posixGroup object. Here's my subroutine:
>
> sub ldap_add_group2
> {
>     my $ldap = $_[0];
>     my $ldap_base = $_[1];
>     my $username = $_[2];
>     my $group2 = $_[3];
>     my $debug = $_[4];  
>
>     my $entry;
>     my $mesg;
>     my $code;
>     my $error;
>     my $group_dn = "$group2,ou=Group,$ldap_base";
>    
>     if ($debug) {
>     print "Adding $username to secondary group $group2 ($group_dn)\n";
>     }
>     $entry = Net::LDAP::Entry->new($dn);
>     $entry->add('memberUid' => "$username");
>     $mesg = $entry->update($ldap);
>     $code = $mesg->code();
>     if ($code == 0) {
>     if ($debug) {
>         print "$Username added to LDAP group $group2\n";
>     }
>     } else {
>     $error = $mesg->error();
>     print "$error\n";
>     print "Error: Could not add $user to secondary group $group\n";
>     exit(1);
>     }
> }
>
>   
> This code is producing this error:
>
> addRequest.addRequest.objectName is undefined at
> /usr/local/perl-5.14.2/lib/site_perl/5.14.2/Net/LDAP/Message.pm line 194.
>  at /usr/local/perl-5.14.2/lib/site_perl/5.14.2/Net/LDAP/Entry.pm line 269.
> addRequest.addRequest.objectName is undefined at
> /usr/local/perl-5.14.2/lib/site_perl/5.14.2/Net/LDAP/Message.pm line 194.
>
> I know I'm probably doing something silly wrong. Can anyone point me in
> the right direction?
>
>