in reply to Using Perl LDAP

Here's some untested code employing Net::LDAP which may be of some use to you ...

sub DN          ()  { 'cn=admin,dc=domain,dc=com' }
sub PASSWORD    ()  { 'password' }
sub SERVER      ()  { 'localhost' }

use Carp;
use Net::LDAP;

#   Create connection to the LDAP server and bind authoratively using
#   administrator credentials

my $ldap = Net::LDAP->new( SERVER );
unless ( defined $ldap )
{
    croak( 'Cannot create connection to LDAP server -- ', $! );
}
$ldap->bind
(
    'dn'        =>  DN,
    'password'  =>  PASSWORD
);

my $result = $ldap->add
( 
    'cn=domain,ou=v_domains,ou=postfix,ou=system_services,dc=domain,dc
+=com',
    'attr'  =>  
    [
        'cn'                    =>  'domain',
        'objectClass'           =>  'inetLocalMailRecipient',
        'mailLocalAddress'      =>  'username@domain, domain',
        'mailRoutingAddress'    =>  'alias'
    ]
);
if ( $result->code )
{
    carp( 'Error in adding LDAP entry -- ', $result->error );
}

$ldap->unbind;

[download]

Some links which may be of help to you include:

 

perl -le 'print+unpack"N",pack"B32","00000000000000000000001001110100"'

Replies are listed 'Best First'.
Re: Re: Using Perl LDAP
by hiddenlinux (Acolyte) on Jul 18, 2003 at 08:57 UTC
    thanks for that, but i'm still having trouble using it: 
    
#! /usr/bin/perl

sub DN          ()  { 'cn=admin,dc=foo,dc=com' }
sub PASSWORD    ()  { 'mypass' }
sub SERVER      ()  { 'localhost' }

use Carp;
use Net::LDAP;

#   Create connection to the LDAP server and bind authoratively using
#   administrator credentials

my $ldap = Net::LDAP->new( SERVER );
unless ( defined $ldap )
{
    croak( 'Cannot create connection to LDAP server -- ', $! );
}
$ldap->bind
(
    'dn'        =>  DN,
    'password'  =>  PASSWORD
);

my $result = $ldap->add
(
    'cn=foo,ou=v_domains,ou=postfix,ou=system_services,dc=foo,dc=com',
    'attr'  =>
    [
        'cn'                    =>  'foo',
        'objectClass'           =>  'inetLocalMailRecipient',
        'mailLocalAddress'      =>  'test001@foo.com, xmbox.com',
        'mailRoutingAddress'    =>  'foo'
    ]
);
$ldap->unbind;

    [download]
[reply]
[d/l]
      Hey, I've started to work with LDAP in the last few months, and have been banging my head on problems like this for a while now. One tool I found amazingly useful (which helped me write my Net::LDAP code) was the Java LDAP browser. (http://www.iit.edu/~gawojar/ldap/) That may help you debug your queries.

      The book _LDAP_System_Administration_ is also quite useful (as much as perldoc Net::LDAP) and has become a part of my Safari bookshelf.

      Also, please add some errorchecking (you can do this on the bind too): 
       die $result->error if $result->code;

      [download]
      Maybe that will help debugging it? I also like the following shell command: 
      ldapadd -x -D cn=mycn -w mypassword < myldiffile.ldif

      [download]
      Good luck!

      Rohit
[reply]
[d/l]
[select]

      Hi there,

      I've been using Net::LDAP intensively and extensively for the last year in a project that makes heavy use of the LDAP Directory Server.

      The code above looks good to me.

      Sometimes it's easier to make a search of the user you want to work on, this way you get an Entry object pointing to hir, and there are many things that are more easily done with an entry than with the whole LDAP object (even a kind of transactional nature on your addings/updatings...)

      Good luck,

      --
      our $Perl6 is Fantastic;

[reply]
[d/l]

      thanks for that, but i'm still having trouble using it:

      Can you be more specific? What sorts of errors are you seeing? What kind of results or lack thereof are you seeing?

      I use Net::LDAP and its friend Net::LDAPS all the time with great success. I even do evil things like populate Active Directory <shudder!> from an Oracle database

      Peter L. BergholdBrewer of Belgian Ales
      Peter@Berghold.Netwww.berghold.net
      Unix Professional
[reply]
        Hi There, I am not seeing the data get entered when i run the above.
[reply]
      Its saying that the entry already exists. Even tho, when i use LDAP Browser, i cannot see the entry in there.
[reply]
        this is how a successfull entry is listed in my db: 
        dn: cn=test1,cn=foo.com,ou=v_domains,ou=postfix,ou=system_services, dc
+=foo,dc=com
mailRoutingAddress: test1
objectClass: inetLocalMailRecipient
mailLocalAddress: test1@foo.com

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom