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.
--- a/shelldap Sat Mar 05 20:24:07 2011 +0100
+++ b/shelldap Sat Mar 05 20:56:20 2011 +0100
@@ -1005,7 +1005,7 @@
$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 @@
my $self = shift;
my @filters = @_;
my $base = $self->base();
- my $attrs = [ 'dn', 'hasSubordinates' ];
+ my $attrs = [ 'hasSubordinates' ];
# setup filters
my ( $flags, $filter );