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? -- Prentice