add problems

[Jonathan L. <jon...@le...>]

Hello all, I didn't see a place to look through archives, so if there is, I would 
greatly appreciate it.

I have a simple script that looks like this:

#!/usr/bin/perl -w

use Net::LDAP qw(:all);                      

$ldap = Net::LDAP->new("localhost") or die $@;

my $msg = $ldap->bind(
        'cn=Manager, dc=t3link, dc=com',        
        password => "pass", 
        ); 

print "bind msg:  "  . $msg->code  . "\n";

my $result = $ldap->add (
               dn   => 'ou=People, dc=t3link, dc=com',
               attr => [ 'uid'  => "ldapuser2", 
                         'cn'   => 'ldapuser2',
                         'userpassword' => 'blahaslbasdf',
                         'uidnumber' => 400,
                         'gidnumber' => 400,
                         'objectclass' => ['top', 'account',
                                           'shadowAccount',
                                           'posixAccount' ],
                       ]
             );
print "ERROR:" . $result->error . "\n";


For some reason, this has NO effect. None of the .dbb files change and doing a 
search with ldapsearch comes up empty. When using ldapadd with a comparable ldif
file and the same user/pass, everything is fine. No error is printed out, 
and bind returns 0.

I am using openldap 1.2.11 and Net::LDAP 0.19 on linux 2.2 .


--
jon...@le...
"With pain comes clarity."