get ldap connection base #perl #ldap

get_ldap_connection.pl

#!/usr/bin/env perl

# Getting the base from an ActiveDirectory connection

use Net::LDAP;

my $ldap = ...; # connect to ldap
my $dse = $ldap->root_dse();
my @contexts = $dse->get_value('namingContexts');
my $base;
foreach my $c (@contexts) {
    $base = $c if $c =~ /^dc=/i;
}
$log->logdie("can't find base from connection - namingContexts: " . p(@contexts))
     unless $base;