equal
deleted
inserted
replaced
744 $self->debug("Using cached lookups for $base\n"); |
744 $self->debug("Using cached lookups for $base\n"); |
745 } |
745 } |
746 |
746 |
747 $self->{'cwd_entries'} = $cache->{'entries'}; |
747 $self->{'cwd_entries'} = $cache->{'entries'}; |
748 return; |
748 return; |
749 } |
|
750 |
|
751 # parse parent ('..') cn requests |
|
752 # |
|
753 sub parent_dn |
|
754 { |
|
755 my $self = shift; |
|
756 my $rdn = shift or return; |
|
757 return unless ref $rdn; |
|
758 |
|
759 # FIXME: 'cd ../ou=somewhere' should work |
|
760 my $dn = $self->base(); |
|
761 my $dotcount = $$rdn =~ s/\.\./\.\./g; |
|
762 $dn =~ s/^.*?,// for 1 .. $dotcount; |
|
763 |
|
764 $$rdn = $dn; |
|
765 } |
749 } |
766 |
750 |
767 # given an array ref of shell-like globs, |
751 # given an array ref of shell-like globs, |
768 # make and return an LDAP filter object. |
752 # make and return an LDAP filter object. |
769 # |
753 # |