bin/rrr-dirtyupdate

   1 #!/usr/bin/perl -- -*- mode: cperl -*-
   2
   3 =head1 NAME
   4
   5 rrr-dirtyupdate - add files with an old timestamp to the dataset
   6
   7 =head1 SYNOPSIS
   8
   9   rrr-dirtyupdate [options] file ...
  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 if ($Opt{'dry-run'}) {
  61     die "FIXME: not yet implemented";
  62 }
  63
  64 die "Nothing implemented yet";
  65
  66 __END__
  67
  68
  69 # Local Variables:
  70 # mode: cperl
  71 # coding: utf-8
  72 # cperl-indent-level: 4
  73 # End: