9 rrr-fsck [options] principalfile
17 my @opt = <<'=back' =~ /B<--(\S+)>/g;
21 Does nothing, only prints what it would do.
25 Prints a brief message and exists.
27 =item B<--remoteroot=s>
29 If provided fsck will try to mirror missing files from this location.
30 For remote locations requiring authentication you may need to set the
31 environment variables USER and RSYNC_PASSWORD as well.
39 Consider all answers to asked questions to be I<yes>.
45 Compares disk contents with index contents and gathers files missing
46 on local disk and files missing in local index.
48 If remoteroot is given missing files are fetched from remote.
50 Files on the local disk that have no counterpart in the index are
51 considered obsolete and the user is asked for each file if the file
52 should be deleted. And if the user confirms it will be deleted.
56 There is a race condition when the tree or the index is manipulated
57 while we are running. This implies that the result is only then 100%
58 correct when disk and index are not changed while we are running.
60 There should be an option to declare the files on disk authoritative
61 so that they are added to the index.
69 use lib
"/home/k/sources/rersyncrecent/lib";
71 use File
::Basename
qw(dirname);
72 use File
::Find
qw(find);
73 use ExtUtils
::MakeMaker
qw(prompt);
74 use File
::Rsync
::Mirror
::Recent
;
77 use List
::Util
qw(max);
78 use Pod
::Usage
qw(pod2usage);
79 use Time
::HiRes
qw(time sleep);
95 my($principal) = @ARGV;
96 my $recc = File
::Rsync
::Mirror
::Recent
->new
99 localroot
=> dirname
$principal,
101 for my $passthrough (qw(remoteroot verbose)) {
102 if (my $opt = $Opt{$passthrough}) {
103 $recc->$passthrough($opt);
106 my $root = $recc->localroot;
107 die "Alert: Root not defined, giving up" unless defined $root;
111 my $last_verbosity = 0;
118 my @lstat = lstat $_;
119 return unless -l _
or -f _
;
121 if ($Opt{verbose
} && time - $last_verbosity > 0.166666) {
122 printf "\r%8d files and symlinks checked on disk ", $i;
123 $last_verbosity = time;
125 $diskfiles{$File::Find
::name
} = $lstat[9];
132 printf "\r%8d files checked on disk\n", $i;
137 print "\rChecking index";
143 $i = scalar @
{shift;};
144 if (time - $last_verbosity > 0.166666) {
145 printf "\r%8d entries read from index ", $i;
146 $last_verbosity = time;
150 my $indexfiles = $recc->news(@newsargs);
152 printf "\r%8d entries read from index\n", scalar @
$indexfiles;
155 my %indexfiles = map {("$root/$_->{path}"=>$_->{epoch
})} grep { !$seen{$_->{path
}}++ && $_->{type
} eq "new" } @
$indexfiles;
156 for my $rf (@
{$recc->recentfiles}) {
157 my $rfrfile = $rf->rfile;
158 my @stat = stat $rfrfile or die "Could not stat '$rfrfile': $!";
159 $indexfiles{$rfrfile} = $stat[9];
162 printf "\r%8d file objects found in index\n", scalar keys %indexfiles;
164 my $sprintfd = length(max
scalar @
$indexfiles, scalar keys %diskfiles);
168 $sprintfd, scalar keys %diskfiles,
169 $sprintfd, scalar keys %indexfiles,
171 my @diskmisses = sort { $indexfiles{$b} <=> $indexfiles{$a} } grep { ! exists $diskfiles{$_} } keys %indexfiles;
172 my @indexmisses = sort { $diskfiles{$a} <=> $diskfiles{$b} } grep { ! exists $indexfiles{$_} } keys %diskfiles;
174 "missing on disk: %*d\n".
175 "missing in index: %*d\n",
176 $sprintfd, scalar @diskmisses,
177 $sprintfd, scalar @indexmisses,
180 my $rf = $recc->principal_recentfile;
181 my $last_aggregate_call = time;
183 for my $dm (@diskmisses) {
185 } elsif ($Opt{"dry-run"}) {
186 if ($Opt{remoteroot
}) {
187 warn "Would fetch $dm\n";
189 warn "Would remove from indexfile $dm\n";
191 } elsif ($Opt{remoteroot
}) {
192 my $relative = substr $dm, 1 + length $root;
193 $rf->get_remotefile($relative);
195 warn "Removing from indexfile: $dm\n";
196 push @batch, {path
=> $dm, type
=> "delete"};
197 #$rf->update($dm,"delete");
198 #if (time > $last_aggregate_call + $rf->interval_secs) {
199 # warn "Aggregating\n";
201 # $last_aggregate_call = time;
205 for my $im (@indexmisses) {
206 if ($Opt{"dry-run"}) {
207 if ($Opt{remoteroot
}) {
208 warn "Would remove $im\n";
210 warn "Would add to indexfile $im\n";
212 } elsif ($Opt{remoteroot
}) {
215 warn "Going to unlink '$im'\n";
218 $ans = prompt
"Unlink '$im'?", "y";
221 unlink $im or die "Could not unlink '$im': $!";
224 warn "Adding to indexfile: $im\n";
225 my @stat = stat $im or next;
226 push @batch, {epoch
=> $stat[9], path
=> $im, type
=> "new"};
227 #$rf->update($im,"new");
228 #if (time > $last_aggregate_call + $rf->interval_secs) {
229 # warn "Aggregating\n";
231 # $last_aggregate_call = time;
235 $rf->batch_update(\
@batch);
243 # cperl-indent-level: 4