bin/rrr-dirtyupdate

   1 #!/usr/bin/perl -- -*- mode: cperl -*-
   2
   3 =head1 NAME
   4
   5 rrr-dirtyupdate - add a file with an old timestamp to the dataset
   6
   7 =head1 SYNOPSIS
   8
   9   rrr-dirtyupdate [options] file epoch
  10
  11 =head1 OPTIONS
  12
  13 =over 8
  14
  15 =cut
  16
  17 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  18
  19 =item B<--dry-run!>
  20
  21 (TBD) Do not really run the command, ...
  22
  23 =item B<--help|h>
  24
  25 Prints a brief message and exists.
  26
  27 =item B<--verbose|v+>
  28
  29 More feedback.
  30
  31 =back
  32
  33 =head1 DESCRIPTION
  34
  35 When you later discover missing files...
  36
  37 =head1 BUGS
  38
  39 This is slow: it calls aggregate twice with force which took 2 x 10-15 seconds on PAUSE.
  40
  41 =cut
  42
  43
  44 use strict;
  45 use warnings;
  46
  47 use File::Find qw(find);
  48 use File::Rsync::Mirror::Recent;
  49 use Getopt::Long;
  50 use Pod::Usage qw(pod2usage);
  51
  52 our %Opt;
  53 GetOptions(\%Opt,
  54            @opt,
  55           ) or pod2usage(1);
  56
  57 if ($Opt{help}) {
  58     pod2usage(0);
  59 }
  60
  61 unless (@ARGV) {
  62     pod2usage(1);
  63 }
  64
  65 # my($file,$epoch) = @ARGV; # XXX
  66
  67 if ($Opt{'dry-run'}) {
  68     die "FIXME: not yet implemented";
  69 }
  70
  71 my $rf = File::Rsync::Mirror::Recentfile->new_from_file
  72     (
  73      "/home/ftp/pub/PAUSE/authors/RECENT-1h.yaml",
  74     );
  75 unless ($rf) {
  76     die "ALERT: Could not create an rf: $@";
  77 }
  78 my $sleep = 2;
  79 warn "prove of concept for one file only. Last chance to hit ^C now to interrupt. sleeping $sleep";
  80 sleep $sleep;
  81 my $recent = File::Rsync::Mirror::Recent->new
  82     (
  83      local => "/home/ftp/pub/PAUSE/authors/RECENT-1h.yaml",
  84     );
  85 my $recentev = $recent->news();
  86 for my $re (@$recentev) {
  87     my $recfile = "/home/ftp/pub/PAUSE/authors/".$re->{path};
  88     next if -f $recfile;
  89     print "Not found: $recfile\n";
  90 }
  91
  92 __END__
  93
  94
  95 # Local Variables:
  96 # mode: cperl
  97 # coding: utf-8
  98 # cperl-indent-level: 4
  99 # End: