mahlon/shelldap
1
0
Fork 0
Code Issues Pull requests Activity

Allow the period character when moving an entry by full DN.

Browse source 
Reported by Carlos Jnr <carlos.jnr@gmail.com>.

FossilOrigin-Name: aebc78b1ae3cb4f0ca7f424d5d81b18f75fd8bab8d3ada7ace022729c5d9d84f
This commit is contained in:
Mahlon E. Smith 2015-12-08 08:54:13 +00:00
parent 897837b463
commit d125279f9b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
shelldap
View file

@ -864,7 +864,7 @@ sub display
foreach my $e ( @{ $s->{'entries'} } ) { foreach my $e ( @{ $s->{'entries'} } ) {
$ldif->write_entry( $e ); $ldif->write_entry( $e );
} }
if( $use_pager ) { if ( $use_pager ) {
system( $self->{'pager'}, $self->{'ldif_fname'} ); system( $self->{'pager'}, $self->{'ldif_fname'} );
unlink $self->{'ldif_fname'}; unlink $self->{'ldif_fname'};
} }
@ -2083,8 +2083,8 @@ sub run_move
# see if we're moving the entry to a totally new path # see if we're moving the entry to a totally new path
my ( $new_dn, $old_dn ); my ( $new_dn, $old_dn );
( $d_dn, $new_dn ) = ( $1, $2 ) if $d_dn =~ /^([\-\w=]+),(.*)$/; ( $d_dn, $new_dn ) = ( $1, $2 ) if $d_dn =~ /^([\.\-\w=]+),(.*)$/;
$old_dn = $1 if $s_dn =~ /^[\-\w=]+,(.*)$/; $old_dn = $1 if $s_dn =~ /^[\.\-\w=]+,(.*)$/;
my $moddn = sub { my $moddn = sub {
return $self->ldap()->moddn( return $self->ldap()->moddn(