make it more flexible

1 files changed, 7 insertions, 1 deletions

diff --git a/move/tools/busy-files-accesses b/move/tools/busy-files-accesses
index 04f37f7f7..241b68405 100644
--- a/move/tools/busy-files-accesses
+++ b/move/tools/busy-files-accesses
@@ -6,18 +6,24 @@ use Getopt::Long;
 GetOptions('no-link' => \ (my $no_link), 
 	   'no-dir' => \ (my $no_dir),
 	   'full-dirs=s', \ (my $full_dirs),
+	   'already-have=s', \ (my $already_have),
 );
 
 if ($full_dirs) {
     my @l = map { chomp_(MDK::Common::File::cat_or_die($_)) } split(' ', $full_dirs);
     $full_dirs = '/tmp/live_tree(' . join('|', map { quotemeta } @l) . ')/';
 }
+if ($already_have) {
+    my @l = map { chomp_(MDK::Common::File::cat_or_die($_)) } split(' ', $already_have);
+    $already_have = '(' . join('|', map { quotemeta } @l) . ')';
+}
 
 my ($file_list) = @ARGV;
 foreach my $file (cat_($file_list)) {
     chomp $file;
 
     $file =~ m!/tmp/live_tree! or next;
+    $already_have && $file =~ /^$already_have$/ and next;
 
     if (-l $file ? !$no_link : -d $file ? !$no_dir : 1) {
 	my $s = $full_dirs && $file =~ /^$full_dirs/ ? "/tmp/live_tree$1" : $file;
@@ -25,4 +31,4 @@ foreach my $file (cat_($file_list)) {
     }
 }
 
-print "$_\n" foreach sort uniq(@l);
+print "$_\n" foreach sort(uniq(@l));