From 126777bc019a54afb4ec51299f2cf9d2841698aa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 25 Apr 2007 12:26:16 +0000 Subject: re-sync after the big svn loss --- move/tools/busy-files-accesses | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 move/tools/busy-files-accesses (limited to 'move/tools/busy-files-accesses') diff --git a/move/tools/busy-files-accesses b/move/tools/busy-files-accesses deleted file mode 100644 index 241b68405..000000000 --- a/move/tools/busy-files-accesses +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl - -use MDK::Common; -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; - push @l, $s; - } -} - -print "$_\n" foreach sort(uniq(@l)); -- cgit v1.2.1