1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#!/usr/bin/perl
# A wrapper for find, which knows about cruft IGNORES and filesystems to scan
# or not to scan.
use strict;
use warnings;
sub usage { "cruft_find <target> [ <target> ... ] [ option ... ]\n" }
my (@args, @params);
my $dest = \@args;
foreach (@ARGV) { $dest = \@params if /^-/; push @$dest, $_; }
@args or die &usage;
require '/usr/lib/cruft/common.pl';
sub is_subdir($$);
sub ignores;
sub scan_fs;
sub all_fs;
sub noscan_fs;
sub get_direct_fs($@);
sub prunes($@);
sub debug($);
sub run_find
{
my $path = shift;
my $ignore_ref = shift;
my $params_ref = shift;
my $extra = shift || '';
my $cmd = "find $path $extra ".prunes($path, @$ignore_ref).' '.join(' ', @$params_ref);
debug "Running [$cmd]";
system($cmd) == 0 or die "[$cmd] failed: $?\n";
}
sub do_find($)
{
my $path = shift;
my $FS = get_direct_fs($path, all_fs) or die "FS not found for \"$path\"";
my @do_scan = scan_fs;
my @dont_scan = noscan_fs;
my @ignore = ignores;
# use Data::Dumper 'Dumper';
# warn Dumper({FS=>$FS,path=>$path,doscan=>\@do_scan,dont=>\@dont_scan,ignore=>\@ignore});
# $path is below ignored subtree
return if grep { is_subdir($_, $path) } @ignore;
# $path is in non-scan FS
if (grep { $_ eq $FS } @dont_scan) {
my @do_under_path = grep { is_subdir($path, $_) } @do_scan;
# and contains no do-scan FS
if (not scalar @do_under_path) {
return;
} else {
# and contains some do-scan FS
run_find($_, \@ignore, \@params, '-xdev') for @do_under_path;
}
}
# $path is in do-scan FS
elsif (grep { $_ eq $FS } @do_scan) {
my @dont_under_path = grep { is_subdir($path, $_) } @dont_scan;
# and there are no dont-scan FS under $path
if (not scalar @dont_under_path) {
run_find($path, \@ignore, \@params);
} else {
# and there are dont-scan FS under $path
run_find($path, \@ignore, \@params, '-xdev') for @dont_under_path;
}
} else { die "Internal error: [$path][@do_scan][@dont_scan][@ignore]\n"; }
}
do_find($_) for @args;
|
