[RAS] mirroring RePEc:per fails

[Thomas Krichel]

  Christian Zimmermann writes
> Sune has no problem:
> 
> https://econpapers.repec.org/remilogs/mirror_a_per.tmp.log

  Actually, it appears to be running after I run my toggle mirror
  script

#!/usr/bin/perl                                                                                 
use strict;
use warnings;
use File::Slurp;

my $file=$ENV{'HOME'}.'/perl/mirror4remi.pl';
if(not -f $file) {
  die "I don't see $file";
}
my $str=File::Slurp::read_file($file);
if(not $str=~m|(default\{\s*'passive_ftp'\s*\}\s*=\s*)([0,1])|) {
  die "I don't see the ftp switch in $file";
}
my $statement=$1;
my $statement0=$statement.'0';
my $statement1=$statement.'1';
if(not $str=~s|\Q$statement\E1|$statement0|) {
  $str=~s|\Q$statement\E0|$statement1|;
}
File::Slurp::write_file($file, $str);

  As you seed this toggles active and passive modes. I
  run this once a day to alternatively run passive and
  active on all archives.

  It still takes ages to run. It would be good to have such data
  available via public rsync.

-- 

  Cheers,

  Thomas Krichel                  http://openlib.org/home/krichel
                                              skype:thomaskrichel