From d125279f9b951d5dcb4bbe66a0dea022567d39fd Mon Sep 17 00:00:00 2001 From: "mahlon@martini.nu" Date: Tue, 8 Dec 2015 08:54:13 +0000 Subject: [PATCH] Allow the period character when moving an entry by full DN. Reported by Carlos Jnr . FossilOrigin-Name: aebc78b1ae3cb4f0ca7f424d5d81b18f75fd8bab8d3ada7ace022729c5d9d84f --- shelldap | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/shelldap b/shelldap index 7803c4d..28b551d 100755 --- a/shelldap +++ b/shelldap @@ -864,7 +864,7 @@ sub display foreach my $e ( @{ $s->{'entries'} } ) { $ldif->write_entry( $e ); } - if( $use_pager ) { + if ( $use_pager ) { system( $self->{'pager'}, $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 my ( $new_dn, $old_dn ); - ( $d_dn, $new_dn ) = ( $1, $2 ) if $d_dn =~ /^([\-\w=]+),(.*)$/; - $old_dn = $1 if $s_dn =~ /^[\-\w=]+,(.*)$/; + ( $d_dn, $new_dn ) = ( $1, $2 ) if $d_dn =~ /^([\.\-\w=]+),(.*)$/; + $old_dn = $1 if $s_dn =~ /^[\.\-\w=]+,(.*)$/; my $moddn = sub { return $self->ldap()->moddn(