1 #!/usr/bin/perl -- -*- mode: cperl -*-
5 rrr-aggregate - merge a set of recentfiles
9 rrr-aggregate [options] file
17 my $optpod = <<'=back';
21 (TBD) 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. The file
45 argument is the path to the principal (the shortest) in a collection
54 use File
::Rsync
::Mirror
::Recentfile
;
56 use Pod
::Usage
qw(pod2usage);
59 my @opt = $optpod =~ /B<--(\S+)>/g;
73 if ($Opt{'dry-run'}) {
74 die "FIXME: not yet implemented";
77 my $rf = File
::Rsync
::Mirror
::Recentfile
->new_from_file($ARGV[0]);
78 if (my $tout = $Opt{locktimeout
}) {
79 $rf->locktimeout($tout);
89 # cperl-indent-level: 4