From ced1ffcebee246fd51572566f1b4f08e6b981c23 Mon Sep 17 00:00:00 2001 From: Mystery Man Date: Wed, 15 Jun 2005 10:21:34 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'V10_3_0_24mdk'. --- move/tools/busy-files | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100755 move/tools/busy-files (limited to 'move/tools/busy-files') 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"; -} -- cgit v1.2.1