PAUSE: eliminate 07mirror updates (and FTP_RUN config)

lib/PAUSE.pm

@@ -68,10 +68,6 @@ push @INC, $pauselib;
 
 $PAUSE::Config ||=
     {
-     # previously also used for ftp password; still used in Error as
-     # contact address and as address to send internal notifications
-     # to:
-     FTP_RUN => qq{/home/ftp/run},
      ABRA_EXPIRATION => 86400/4,
      ADMIN => q{[email protected], [email protected]},
      ADMINS => [qq(modules\@perl.org)],

lib/PAUSE/mldistwatch.pm

@@ -165,7 +165,6 @@ sub rewrite_indexes {
     $self->rewrite01();
     $self->rewrite03();
     $self->rewrite06();
-    $self->rewrite07();
     $Logger->log("finished rewriting indexes");
 
     $self->git->commit({ m => "indexer run at $^T, pid $$" })
@@ -1330,26 +1329,6 @@ Date:        %s
     }
 }
 
-sub rewrite07 {
-    my($self) = @_;
-    my $fromdir = $PAUSE::Config->{FTP_RUN} or $Logger->log("FTP_RUN not defined");
-    $fromdir .= "/mirroryaml";
-    -d $fromdir or $Logger->log("FTP_RUN directory [$fromdir] does not exist");
-    my $mlroot = $self->mlroot or $Logger->log("MLROOT not defined");
-    my $todir = "$mlroot/../../modules";
-    -d $todir or $Logger->log("mirror list target directory [$todir] does not exist");
-    for my $exte (qw(json yml)) {
-        my $f = "$fromdir/mirror.$exte";
-        my $t = "$todir/07mirror.$exte";
-        next unless -e $f;
-        rename $f, $t or $Logger->log([
-          "couldn't rename: %s",
-          { old => $f, new => $t, err => "$!" },
-        ]);
-        PAUSE::newfile_hook($t);
-    }
-}
-
 sub chdir_ln_chdir {
     my ($self, $postdir, $link_target, $link_name, $log) = @_;
     chdir $postdir or die "Couln't chdir to $postdir";