mahlon/shelldap
1
0
Fork 0
Code Issues Pull requests Activity

base(): make more secure, allow '' as DN

Browse source 
Only accept DNs as arguments to base that are legal DNs.
Convert DN given into canonical form.

FossilOrigin-Name: a0488120c18e20d452ec6ebe8b44e009fca7839c39b0af5524254ea6bd4294e3
This commit is contained in:
peter@adpm.de 2011-03-05 18:41:07 +00:00
parent dcbcabb056
commit 22128dac8b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
shelldap
View file

@ -368,6 +368,7 @@ use Term::ReadKey;
use Term::Shell; use Term::Shell;
use Digest::MD5; use Digest::MD5;
use Net::LDAP qw(LDAP_SUCCESS LDAP_SERVER_DOWN); use Net::LDAP qw(LDAP_SUCCESS LDAP_SERVER_DOWN);
use Net::LDAP::Util qw(canonical_dn);
use Net::LDAP::LDIF; use Net::LDAP::LDIF;
use Data::Dumper; use Data::Dumper;
use File::Temp; use File::Temp;
@ -623,8 +624,9 @@ sub base
$conf->{'basedn'} = $namingContexts[0]; $conf->{'basedn'} = $namingContexts[0];
$self->{'base'} = $namingContexts[0]; $self->{'base'} = $namingContexts[0];
} }
if ( $_[0] ) { if ( @_ ) {
$self->{'base'} = $_[0]; my $base = canonical_dn($_[0], casefold => 'none');
$self->{'base'} = $base if ($base);
} }
return $self->{'base'}; return $self->{'base'};
} }