bin/testing-rmirror.pl

   1 #!/home/src/perl/repoperls/installed-perls/perl/pVNtS9N/perl-5.8.0@32642/bin/perl
   2
   3 $ENV{USER}="andk"; # fill in your name
   4 $ENV{RSYNC_PASSWORD} = shift or die; # fill in your passwd
   5
   6 use strict;
   7 use File::Rsync::Mirror::Recent;
   8 my @rrr = map {
   9     File::Rsync::Mirror::Recent->new
  10             (
  11              ignore_link_stat_errors => 1,
  12              localroot => "/home/ftp/pub/PAUSE/$_",
  13              remote => "pause.perl.org::PAUSE/$_/RECENT.recent",
  14              max_files_per_connection => 12503,
  15              rsync_options =>
  16              {
  17               port => 8732, # only for PAUSE
  18               compress => 1,
  19               links => 1,
  20               times => 1,
  21               timeout => 600,
  22               'omit-dir-times'  => 1, # not available before rsync 3.0.3
  23               checksum => 0,
  24              },
  25              tempdir => "/home/ftp/tmp",
  26              ttl => 20,
  27              verbose => 1,
  28              # verboselog => "/var/log/rmirror-pause.log",
  29              runstatusfile => "/var/log/rmirror-status-$_.state",
  30             )} "authors", "modules";
  31 die "directory $_ doesn't exist, giving up" for grep { ! -d $_->localroot } @rrr;
  32 while (){
  33     my $ttgo = time + 20;
  34     for my $rrr (@rrr){
  35         $rrr->rmirror ( "skip-deletes" => 1 );
  36     }
  37     my $sleep = $ttgo - time;
  38     if ($sleep >= 1) {
  39         # print STDERR "sleeping $sleep ... ";
  40         sleep $sleep;
  41     }
  42 }