Perl - Adding Entries
#!/usr/bin/perl -w
use strict;
use Net::LDAP;
my $root = "dc=pisoftware,dc=com";
my $manager = "cn=Manager,$root";
my $password = 'secret';
my $groupdn = "cn=test,ou=Group,$root";
my $uid = "test";
my($ldap) = Net::LDAP->new('ldap.staff.plugged.com.au') or die "Can't bind to ldap: $!\n";
$ldap->bind(
dn => $manager,
password => $password,
);
#$ldap->modify( $groupdn, add => { memberuid => $uid } );
$result = $ldap->add( dn => $groupdn,
attr => [ 'cn' => 'Test User',
'sn' => 'User',
'uid' => 'test',
];
$result->code && warn "failed to add entry: ", $result->error;
$ldap->unbind;
|