diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-11-05 10:20:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-11-05 10:20:34 +0000 |
| commit | 67a2cb1ebbe4374e0ec2b7d2f27c0fca6c015466 (patch) | |
| tree | 087fafe2d7fec7571f5cd7c2069c8b0926fc5782 /move/tools/busy-files-accesses | |
| parent | 908be3b29189fa82128edba43063ff83d995c13b (diff) | |
| download | drakx-backup-do-not-use-67a2cb1ebbe4374e0ec2b7d2f27c0fca6c015466.tar drakx-backup-do-not-use-67a2cb1ebbe4374e0ec2b7d2f27c0fca6c015466.tar.gz drakx-backup-do-not-use-67a2cb1ebbe4374e0ec2b7d2f27c0fca6c015466.tar.bz2 drakx-backup-do-not-use-67a2cb1ebbe4374e0ec2b7d2f27c0fca6c015466.tar.xz drakx-backup-do-not-use-67a2cb1ebbe4374e0ec2b7d2f27c0fca6c015466.zip | |
make it more flexible
Diffstat (limited to 'move/tools/busy-files-accesses')
| -rw-r--r-- | move/tools/busy-files-accesses | 8 |
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)); |