# HG changeset patch
# User Peter Marschall <peter@adpm.de>
# Date 1299348530 -3600
# Node ID d956658803b85351ddc3119a073cf4451f794d9e
# Parent  18e71da965ff0516a132cc4ec79be7ba97881eaf
use sane way to get a default basedn: RootDSe's namingContexts

diff -r 18e71da965ff -r d956658803b8 shelldap
--- a/shelldap	Tue Sep 06 15:59:07 2011 -0700
+++ b/shelldap	Sat Mar 05 19:08:50 2011 +0100
@@ -619,12 +619,9 @@
 	# try and determine base automatically from rootDSE
 	#
 	unless ( $self->{'base'} ) {
-		my $base = $self->{'root_dse'}->{'asn'} || {};
-		$base = $base->{'attributes'}			|| [];
-		$base = $base->[0]						|| {};
-		$base = $base->{'vals'}					|| [];
-		$conf->{'basedn'} = $base->[0];
-		$self->{'base'}   = $base->[0];
+		my @namingContexts = $self->{'root_dse'}->get_value('namingContexts');
+		$conf->{'basedn'} = $namingContexts[0];
+		$self->{'base'}   = $namingContexts[0];
 	}
 	if ( $_[0] ) {
 		$self->{'base'} = $_[0];