equal
deleted
inserted
replaced
1003 |
1003 |
1004 # update new base |
1004 # update new base |
1005 $self->base( $newbase ); |
1005 $self->base( $newbase ); |
1006 |
1006 |
1007 # get new 'cwd' listing |
1007 # get new 'cwd' listing |
1008 my $s = $self->search({ scope => 'one', attrs => ['dn'] }); |
1008 my $s = $self->search({ scope => 'one', attrs => [ '1.1' ] }); |
1009 if ( $s->{'code'} ) { |
1009 if ( $s->{'code'} ) { |
1010 print "$s->{'message'}\n"; |
1010 print "$s->{'message'}\n"; |
1011 return; |
1011 return; |
1012 } |
1012 } |
1013 $self->update_entries( search => $s ); |
1013 $self->update_entries( search => $s ); |
1405 sub run_list |
1405 sub run_list |
1406 { |
1406 { |
1407 my $self = shift; |
1407 my $self = shift; |
1408 my @filters = @_; |
1408 my @filters = @_; |
1409 my $base = $self->base(); |
1409 my $base = $self->base(); |
1410 my $attrs = [ 'dn', 'hasSubordinates' ]; |
1410 my $attrs = [ 'hasSubordinates' ]; |
1411 |
1411 |
1412 # setup filters |
1412 # setup filters |
1413 my ( $flags, $filter ); |
1413 my ( $flags, $filter ); |
1414 if ( scalar @filters ) { |
1414 if ( scalar @filters ) { |
1415 # support '-l' or '-R' listings |
1415 # support '-l' or '-R' listings |