new code snippet from ms, works perfect

This commit is contained in:
Jonas Meier 2020-05-17 22:56:22 +02:00
parent 120d7e1020
commit e558d783ac

View File

@ -30,20 +30,9 @@ my @files = grep {
#use DDP; p @files;
my @includes;
#my @rsyncincludes;
my $file;
foreach $file (@files)
{
#print "$file->{name}\n";
push @includes, "$file->{name}";
#push @rsyncincludes, "--include $file->{name},";
#push @rsyncincludes, "include=>$file->{name}",;
}
#print "@rsyncincludes\n";
$rsync->exec(src => 'planet.openstreetmap.org::planet/planet/', dst=>'/tmp/rsynctest', include=>"@includes") or warn "rsync failed\n";
#$rsync->exec(src => 'planet.openstreetmap.org::planet/planet/', dst=>'/tmp/rsynctest', @rsyncincludes) or warn "rsync failed\n";
$rsync->exec(
src => 'planet.openstreetmap.org::planet/planet/',
dst => '/tmp/rsynctest',
include => [map { $_->{name} } @files],
exclude => ['*'],
);