Re: [Fwd] Net::LDAP

[Mark W. <mew...@un...>]

Have you tried binding as the directory manager (actually I think this is
the cn=manager in openLDAP) to make sure that it's not an ACL problem and
perhaps you're not finding the entry because you don't have permissions to
search it as anonymous.

Mark

On Wed, 18 Oct 2000, Graham Barr wrote:

> ----- Forwarded message from Matt Chudleigh <ma...@cr...> -----
> 
> From: "Matt Chudleigh" <ma...@cr...>
> To: <gb...@po...>
> Subject: Net::LDAP
> Date: Tue, 17 Oct 2000 17:27:08 -0600
> X-Mailer: Microsoft Outlook Express 5.50.4133.2400
> 
> Hello,
> 
> I am a technical support consultant for Critical Mass productions up here in Calgary, Canada. Over the recent weeks, I have been trying to setup a web interface to our OpenLDAP server to allow us to easily add/change/view the database. I am using your Net::LDAP module with some success in searching and deleting entries from the LDAP database. However, I am compleatly stumped trying to get Net::LDAP to add entries to the database. Our server name is called europa, and we have setup the OpenLDAP server to use dc=europa as a search base. When I use the following code, it seems to add just fine, however, when I search for the entry using the command line: ldapsearch -L -b dc=europa cn=Te*
> the entry is not returned. If I run this code first, then I try to add the same entry from the command line (Using ldapadd and a file) is says that the entry already exists. If you can provide any assistance whatsoever, it would be very much appreciated. If you can get this to work, I would owe my sanity to you as well.
> 
> Thanks in advance,
> 
> Matt Chudleigh
> Technical Support Consultant
> Critical Mass Productions
> ma...@cr...
> 
>  I am using the following code to attempt to add entries..
> 
> #!/usr/bin/perl
> 
> use Net::LDAP;
> 
> my $host = 'europa.criticalmass.com';
> my $name = 'cn=Manager, dc=criticalmass';
> my $pass = 'secret';
> my $vers = 2;
> my $DN = 'cn=test2 test2, dc=europa';
> 
> $ldap = Net::LDAP->new($host) or die $@;
> 
> my %bindargs;
> $bindargs{dn} = $name;
> $bindargs{password} = $pass;
> $bindargs{version} = $vers;
> 
> $ldap->bind(%bindargs) or die $@;
> 
> my $addname = 'test2 test2';
> my $addlast = 'test2';
> my $addclas = 'person';
> my $addmail = 'te...@te...';
> my $addhome = '222-2222';
> my $addwork = '2222';
> my $addloca = 'calgary';
> 
> my %addthing;
> $addthing{dn} = $DN;
> $addthing{cn} = $addname;
> $addthing{objectclass} = $addclas;
> $addthing{mail} = $addmail;
> $addthing{sn} = $addlast;
> $addthing{homephone} = $addhome;
> $addthing{phonenumber} = $addwork;
> $addthing{location} = $addloca;
> 
> $ldap->add (%addthing); 
>              
> $ldap->unbind() or die $@;
> 
> 
> 
> 
> ----- End forwarded message -----
>