From 38c021a71ddcf036384f773087eef574797c2fdd Mon Sep 17 00:00:00 2001 From: "peter@adpm.de" Date: Sun, 6 Mar 2011 19:51:08 +0000 Subject: [PATCH] [PATCH 19/19] remove rdn_to_dn() after its last users are gone From 892013debac0aef9937ecfbf2c8aab72c88e07cc Mon Sep 17 00:00:00 2001 Signed-off-by: Peter Marschall --- shelldap | 21 --------------------- 1 files changed, 0 insertions(+), 21 deletions(-) FossilOrigin-Name: 3f2282a675ea198aa016bb7c87344fad130a0e7c5797bbd5c0133194a2344c9f --- shelldap | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/shelldap b/shelldap index b4778dc..e086dec 100755 --- a/shelldap +++ b/shelldap @@ -636,27 +636,6 @@ sub base return $self->{'base'}; } -# make sure a given rdn includes the current -# base, making it a dn. -# accepts a string reference. -# -sub rdn_to_dn -{ - my $self = shift; - my $rdn = shift or return; - - return unless ref $rdn; - - # allow cd to 'basedn' and cd to directories 'higher' in the tree - return if $$rdn =~ /$conf->{'basedn'}$/; - - # auto fill in current base for deeper DNs - my ( $dn, $curbase ) = ( $$rdn, $self->base() ); - $dn = "$$rdn," . $curbase unless $$rdn =~ /$curbase/i; - - $$rdn = $dn; -} - # do a search on a dn to determine if it is valid. # returns a bool. #