remove now unused parent_dn() method
FossilOrigin-Name: 05511ce76336be27ff3bf1637e65aa6ba79c7fa9b624734ecfb3b464dd3c06d9
This commit is contained in:
parent
4d64b1b0fe
commit
02cca5227d
1 changed files with 0 additions and 16 deletions
16
shelldap
16
shelldap
|
|
@ -748,22 +748,6 @@ sub update_entries
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
# parse parent ('..') cn requests
|
|
||||||
#
|
|
||||||
sub parent_dn
|
|
||||||
{
|
|
||||||
my $self = shift;
|
|
||||||
my $rdn = shift or return;
|
|
||||||
return unless ref $rdn;
|
|
||||||
|
|
||||||
# FIXME: 'cd ../ou=somewhere' should work
|
|
||||||
my $dn = $self->base();
|
|
||||||
my $dotcount = $$rdn =~ s/\.\./\.\./g;
|
|
||||||
$dn =~ s/^.*?,// for 1 .. $dotcount;
|
|
||||||
|
|
||||||
$$rdn = $dn;
|
|
||||||
}
|
|
||||||
|
|
||||||
# given an array ref of shell-like globs,
|
# given an array ref of shell-like globs,
|
||||||
# make and return an LDAP filter object.
|
# make and return an LDAP filter object.
|
||||||
#
|
#
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue