bin/testing-rmirror-loop.pl

   1 #!/home/src/perl/repoperls/installed-perls/perl/pVNtS9N/perl-5.8.0@32642/bin/perl
   2
   3 use Getopt::Long;
   4
   5 my %Opt;
   6 GetOptions(\%Opt,
   7            "dir=s",
   8           ) or die "Usage";
   9
  10 $ENV{USER}="andk"; # fill in your name
  11 $ENV{RSYNC_PASSWORD} = shift or die; # fill in your passwd
  12
  13 $Opt{dir} ||= "authors";
  14 use strict;
  15 use File::Rsync::Mirror::Recent;
  16 my $statusfile = "/root/rmirror-status-$Opt{dir}.state";
  17 my $rrr = File::Rsync::Mirror::Recent->new
  18     (
  19      ignore_link_stat_errors => 1,
  20      localroot => "/home/ftp/pub/PAUSE/$Opt{dir}",
  21      remote => "pause.perl.org::PAUSE/$Opt{dir}/RECENT.recent",
  22      max_files_per_connection => 7591,
  23      rsync_options =>
  24      {
  25       port => 8732, # only for PAUSE
  26       compress => 0,
  27       links => 1,
  28       times => 1,
  29       checksum => 0,
  30       'omit-dir-times'  => 1, # not available before rsync 3.0.3
  31      },
  32      tempdir => "/home/ftp/tmp",
  33      ttl => 60,
  34      verbose => 1,
  35      verboselog => "/var/log/rmirror-pause.log",
  36      runstatusfile => $statusfile,
  37      # _logfilefordone => "recent-rmirror-donelog-$tree.log",
  38     );
  39 $rrr->rmirror
  40     (
  41      # "skip-deletes" => 1,
  42      loop => 1,
  43     );