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 (TBD)
  36
  37 =cut
  38
  39
  40 use strict;
  41 use warnings;
  42
  43 use File::Rsync::Mirror::Recent;
  44 use Getopt::Long;
  45 use Pod::Usage qw(pod2usage);
  46
  47 our %Opt;
  48 GetOptions(\%Opt,
  49            @opt,
  50           ) or pod2usage(1);
  51
  52 if ($Opt{help}) {
  53     pod2usage(0);
  54 }
  55
  56 unless (@ARGV) {
  57     pod2usage(1);
  58 }
  59
  60 # my($file,$epoch) = @ARGV; # XXX
  61
  62 if ($Opt{'dry-run'}) {
  63     die "FIXME: not yet implemented";
  64 }
  65
  66 my $rf = File::Rsync::Mirror::Recentfile->new_from_file
  67     (
  68      "/home/ftp/pub/PAUSE/authors/RECENT-1h.yaml",
  69     );
  70 unless ($rf) {
  71     die "ALERT: Could not create an rf: $@";
  72 }
  73 warn "prove of concept for one file only. Last chance to hit ^C now to interrupt. sleeping 5";
  74 sleep 5;
  75 $rf->update("/home/ftp/pub/PAUSE/authors/id/S/SA/SAMUELL/Ctype-0.02.readme","new","0.123456789");
  76 $rf->aggregate;
  77 $rf->aggregate;
  78
  79 __END__
  80
  81
  82 # Local Variables:
  83 # mode: cperl
  84 # coding: utf-8
  85 # cperl-indent-level: 4
  86 # End: