# HG changeset patch # User Peter Marschall # Date 1299441068 -3600 # Node ID 95dbffcc757b649574f4b40705afd7c4a336b69e # Parent a3a710f720dd55dfda170fdb6129f8e5bdecd2a3 [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(-) diff -r a3a710f720dd -r 95dbffcc757b shelldap --- a/shelldap Sun Mar 06 20:31:05 2011 +0100 +++ b/shelldap Sun Mar 06 20:51:08 2011 +0100 @@ -636,27 +636,6 @@ 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. #