1 #!/usr/bin/perl -- -*- mode: cperl -*-
5 rrr-aggregate - merge a set of recentfiles
9 rrr-aggregate [options] file
17 my $optpod = <<'=back';
21 Do not really run the command, ...
25 Prints a brief message and exists.
27 =item B<--locktimeout=s>
29 Sets the locktimeout. See L<File::Rsync::Mirror::Recentfile>.
39 rersyncrecent is a project to get speedy rsync operation on large
40 trees over multiple hosts. It maintains a collection of files with
41 metadata (so called recentfiles) that represent overlapping timespans
42 of file change events.
44 rrr-aggregate merges the recentfiles that describe a tree.
52 use File
::Rsync
::Mirror
::Recentfile
;
54 use Pod
::Usage
qw(pod2usage);
57 my @opt = $optpod =~ /B<--(\S+)>/g;
71 if ($Opt{'dry-run'}) {
72 die "FIXME: not yet implemented";
75 my $rf = File
::Rsync
::Mirror
::Recentfile
->new_from_file($ARGV[0]);
76 if (my $tout = $Opt{locktimeout
}) {
77 $rf->locktimeout($tout);
87 # cperl-indent-level: 4