bin/testing-rmirror-master-k85.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use local::lib;
   5
   6 unless ( $ENV{RSYNC_PASSWORD} ) {
   7     $ENV{RSYNC_PASSWORD} = shift or die "RSYNC_PASSWORD not set and no argument???";
   8 }
   9
  10 use File::Rsync::Mirror::Recent;
  11 my $rrr = File::Rsync::Mirror::Recent->new
  12   (
  13    ignore_link_stat_errors => 1,
  14    localroot => "/home/rrrcpan/target",
  15    tempdir   => "/home/rrrcpan/tmp",
  16    remote => 'andk@cpan-rsync-master.perl.org::CPAN/RECENT.recent',
  17    max_files_per_connection => 5000,
  18    rsync_options => {
  19                      compress => 1,
  20                      links => 1,
  21                      'safe-links' => 1,
  22                      times => 1,
  23                      checksum => 0,
  24                     },
  25    verbose => 1,
  26    _runstatusfile => "/home/rrrcpan/recent-rmirror-state.yml",
  27    _logfilefordone => "/home/rrrcpan/recent-rmirror-donelog.log",
  28   );
  29 $rrr->rmirror ( "skip-deletes" => 0, loop => 1 );