From 8d0841dfaec61dabe6808b1dc5e53bb0350882a6 Mon Sep 17 00:00:00 2001
From: "peter@adpm.de" <peter@adpm.de>
Date: Sat, 5 Mar 2011 19:56:19 +0000
Subject: [PATCH] fix attribute lists for LDAP queries

LDAP does not know of an attribute named 'dn'.
To get only the DN in a search, the attriibute list to use is '1.1'.
On all other cases, the DN of the entries found is automaticlly
part of the result set too.

FossilOrigin-Name: 7fd8da252b548c1dfe609c0b87f68370f316a53cdb88954e24353587169181bf
---
 shelldap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/shelldap b/shelldap
index b5b9b58..62498e9 100755
--- a/shelldap
+++ b/shelldap
@@ -1005,7 +1005,7 @@ sub run_cd
 	$self->base( $newbase );
 
 	# get new 'cwd' listing
-	my $s = $self->search({ scope => 'one', attrs => ['dn'] });
+	my $s = $self->search({ scope => 'one', attrs => [ '1.1' ] });
 	if ( $s->{'code'} ) {
 		print "$s->{'message'}\n";
 		return;
@@ -1407,7 +1407,7 @@ sub run_list
 	my $self	= shift;
 	my @filters = @_;
 	my $base	= $self->base();
-	my $attrs 	= [ 'dn', 'hasSubordinates' ];
+	my $attrs 	= [ 'hasSubordinates' ];
 
 	# setup filters
 	my ( $flags, $filter );