diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 12:26:16 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 12:26:16 +0000 |
commit | 126777bc019a54afb4ec51299f2cf9d2841698aa (patch) | |
tree | 97f76e571902ead55ba138f1156a4b4f00b9b779 /move/tools/busy-files | |
parent | f1f67448efc714873378dfeb8279fae68054a90a (diff) | |
download | drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.gz drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.bz2 drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.xz drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.zip |
re-sync after the big svn loss
Diffstat (limited to 'move/tools/busy-files')
-rwxr-xr-x | move/tools/busy-files | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/move/tools/busy-files b/move/tools/busy-files deleted file mode 100755 index 7426e785a..000000000 --- a/move/tools/busy-files +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl - -use MDK::Common; - -my @pids = grep { $_ ne $$ && /^(\d+)$/ } all('/proc'); - -my @l = map { - grep { - $_ && !m!^(/proc/|/dev/|pipe:|socket:)!; - } map { readlink($_) } "/proc/$_/exe", glob_("/proc/$_/fd/*"); -} @pids; - -push @l, grep { $_ } map { (split)[5] } map { cat_("/proc/$_/maps") } @pids; - -if ($ARGV[0] eq '--totem') { - @l = grep { m!/(image(_boot)?|cdrom)/! } @l; - $ARGV[0] = '--server'; -} -foreach (uniq @l) { - if ($ARGV[0] eq '--server') { - s!/image(_always|_boot|_totem)?/!/tmp/live_tree/!; - s!/cdrom/live_tree!/tmp/live_tree!; - } - print "$_\n"; -} |