ldap->add

[<SS...@wi...>]

Hi,
I have the following code:

#########################################
#!/opt/perl/bin/perl

use Net::LDAP qw(:all);
use Net::LDAP::Util qw(ldap_error_desc);
use Net::LDAP::LDIF;

        $ldap = Net::LDAP->new('jws-portald', port => '390', version => 3)
|| die "ERROR: $@";
        $ldif = Net::LDAP::LDIF->new
( '/d01/oracle/product/oid301/ldap/odi/data/import/ldapdata.ldif', "r" );
        $bind = $ldap->bind('orcladmin', password => 'welcome');

while ($entry = $ldif->read_entry) {
        $r = $ldap->add($entry);
        warn $entry->dn,": ",$r->error if $r->code;
}
warn "Error reading ldapdata" unless $ldif->eof;

#############################################

And I got the following error message:

CN=testportald,OU=IT,OU=NewYork605,O=Wiley: Insufficient access at
./odidominoagent line 30, <GEN3> line 1.

Can you please let me know where I did wrong?
Thanks for the help!!

-- Sue Su
212-850-6724