tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-22 14:07:55 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

src/parallel: transfer of relative files on systems without /./ capable rsync.

Browse source
This commit is contained in:
Ole Tange 2013-03-23 11:46:47 +01:00
parent 3615f0b473
commit e14d8f9586
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/parallel
View file

@ -3778,14 +3778,19 @@ sub sshreturn {
my @cmd = ();
my $rsync_destdir = ($relpath ? "./" : "/");
my $ret_file = $file;
# If relative path: prepend workdir/./ to avoid problems
# if the dir contains ':' and to get the right relative return path
my $replaced = ($relpath ? $self->workdir()."/./" : "") . $file;
my $cd;
if($relpath) {
# rsync -avR /foo/./bar/baz.c remote:/tmp/
# == (on old systems)
# rsync -avR --rsync-path="cd /foo; rsync" remote:bar/baz.c /tmp/
my $wd = $self->workdir();
$cd = '--rsync-path='.::shell_quote_scalar("cd $wd; rsync");
}
# --return
# Abs path: rsync -rlDzR server:/home/tange/dir/subdir/file.gz /
# Rel path: rsync -rlDzR server:./subsir/file.gz ./
$pre .= "rsync $rsync_opt $serverlogin:".
::shell_quote_scalar($replaced) . " ".$rsync_destdir.";";
# Rel path: rsync -rlDzR server:./subdir/file.gz ./
$pre .= "rsync $cd $rsync_opt $serverlogin:".
::shell_quote_scalar($file) . " ".$rsync_destdir.";";
}
return $pre;
}
@ -3883,7 +3888,7 @@ sub workdir {
} else {
$workdir = ".";
}
$self->{'workdir'} = $workdir;
$self->{'workdir'} = ::shell_quote_scalar($workdir);
}
return $self->{'workdir'};
}