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 Not yet written.
  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 die "FIXME";
  72
  73 my $recent = File::Rsync::Mirror::Recent->new
  74     (
  75      local => "/home/ftp/pub/PAUSE/authors/RECENT-1h.yaml",
  76     );
  77
  78
  79
  80 __END__
  81
  82
  83 # Local Variables:
  84 # mode: cperl
  85 # coding: utf-8
  86 # cperl-indent-level: 4
  87 # End: