bin/rrr-overview

   1 #!/usr/bin/perl -- -*- mode: cperl -*-
   2
   3 =head1 NAME
   4
   5 rrr-overview - summarize the dataset
   6
   7 =head1 SYNOPSIS
   8
   9   rrr-news [options] principal_recentfile
  10
  11 =head1 OPTIONS
  12
  13 =over 8
  14
  15 =cut
  16
  17 my $optpod = <<'=back';
  18
  19 =item B<--help|h>
  20
  21 Prints a brief message and exists.
  22
  23 =item B<--verbose|v+>
  24
  25 More feedback.
  26
  27 =back
  28
  29 =head1 DESCRIPTION
  30
  31 rersyncrecent is a project to get speedy rsync operation on large
  32 trees over multiple hosts. It maintains a collection of files with
  33 metadata (so called recentfiles) that represent adjacent or
  34 overlapping timespans of file change events.
  35
  36 rrr-overview summarizes the contents of the recentfiles.
  37
  38 =cut
  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 my @opt = $optpod =~ /B<--(\S+)>/g;
  49
  50 GetOptions(\%Opt,
  51            @opt,
  52           ) or pod2usage(2);
  53
  54 if ($Opt{help}) {
  55     pod2usage(0);
  56 }
  57
  58 if (@ARGV > 1) {
  59     pod2usage(2);
  60 } elsif (0 == @ARGV and -f "RECENT.recent") {
  61     @ARGV = "RECENT.recent";
  62 } elsif (1 == @ARGV) {
  63 } else {
  64     pod2usage(2);
  65 }
  66
  67 my $rf = File::Rsync::Mirror::Recent->new
  68     (
  69      local => $ARGV[0],
  70     );
  71 my @args;
  72 if ($Opt{verbose}) {
  73     push @args, "verbose", $Opt{verbose};
  74 }
  75 print $rf->overview(@args);
  76
  77 __END__
  78
  79
  80 # Local Variables:
  81 # mode: cperl
  82 # coding: utf-8
  83 # cperl-indent-level: 4
  84 # End: