bin/rrr

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5 rrr - rsync (rapidly,repeatedly) recent rubbish
   6
   7 =head1 SYNOPSIS
   8
   9   rrr does not exist yet, try
  10   man File::Rsync::Mirror::Recent
  11
  12 =head1 OPTIONS
  13
  14 =over 8
  15
  16 =cut
  17
  18 my $optpod = <<'=back';
  19
  20 =item B<--help|h>
  21
  22 Prints a brief message and exists.
  23
  24 =item B<--verbose|v+>
  25
  26 More feedback.
  27
  28 =back
  29
  30 =head1 DESCRIPTION
  31
  32 This program does not exist yet. I am still musing about the
  33 interface, for now, please see the file HOWTO.mirrorcpan in the
  34 File::Rsync::Mirror::Recent distribution and follow the instructions
  35 there.
  36
  37 The usual blurb: rersyncrecent is a project to get speedy rsync
  38 operation on large trees over multiple hosts. It maintains a
  39 collection of files with metadata (so called recentfiles) that
  40 represent adjacent or overlapping timespans of file change events.
  41
  42 =cut
  43
  44 use strict;
  45 use warnings;
  46
  47 use File::Rsync::Mirror::Recent;
  48 use Getopt::Long;
  49 use Pod::Usage qw(pod2usage);
  50
  51 our %Opt;
  52 my @opt = $optpod =~ /B<--(\S+)>/g;
  53
  54 GetOptions(\%Opt,
  55            @opt,
  56           ) or pod2usage(2);
  57
  58 if ($Opt{help}) {
  59     pod2usage(0);
  60 }
  61
  62 pod2usage(0);
  63
  64 __END__
  65
  66
  67 # Local Variables:
  68 # mode: cperl
  69 # coding: utf-8
  70 # cperl-indent-level: 4
  71 # End: