factorise pidHome
authorcasta <casta@78f58264-58f8-0310-be4b-c7ad7e3b7018>
Wed, 31 Aug 2005 12:58:00 +0000 (12:58 +0000)
committercasta <casta@78f58264-58f8-0310-be4b-c7ad7e3b7018>
Wed, 31 Aug 2005 12:58:00 +0000 (12:58 +0000)
git-svn-id: svn+ssh://svn.xwing.info/home/svn/gtk-fuser/trunk@490 78f58264-58f8-0310-be4b-c7ad7e3b7018

gtk-fuser

index cdb52c8db13d9bd25b1d1246f398b928dbcc23b3..305ad3ff70a1bdf953dd82db766016086f35d97b 100755 (executable)
--- a/gtk-fuser
+++ b/gtk-fuser
@@ -173,12 +173,13 @@ sub search
         my @match = ($pinfo =~ m/^(\d+)/); # extract PID
         next if not defined $match[0];
         my $p = $match[0];
+        my $pidHome = "/proc/$p";
         my $process = {pid => $p};
-        next if not -r "/proc/$p/status";
-        print "Opening /proc/$p/status\n" if $debug;
-        if (not (open (PINFO, "/proc/$p/status")))
+        next if not -r "$pidHome/status";
+        print "Opening $pidHome/status\n" if $debug;
+        if (not (open (PINFO, "$pidHome/status")))
         {
-            print STDERR _("Can't open")." /proc/$p/status\n";
+            print STDERR _("Can't open")." $pidHome/status\n";
             next;
         }
         while (<PINFO>)
@@ -189,26 +190,26 @@ sub search
         close PINFO;
         # Serching for other attrs
         my $fdList = {};
-        if ($pinfo =~ m/c/ and -r "/proc/$p/cwd") # cwd
+        if ($pinfo =~ m/c/ and -r "$pidHome/cwd") # cwd
         {
-            my $cwd = readlink ("/proc/$p/cwd") if -l "/proc/$p/cwd";
+            my $cwd = readlink ("$pidHome/cwd") if -l "$pidHome/cwd";
             $fdList->{"%> "._("Current directory")." : $cwd"} = 1 if $cwd =~ m/$regexpText/;
         }
-        if ($pinfo =~ m/e/ and -r "/proc/$p/exe") # exe
+        if ($pinfo =~ m/e/ and -r "$pidHome/exe") # exe
         {
-            my $exe = readlink ("/proc/$p/exe") if -l "/proc/$p/exe";
+            my $exe = readlink ("$pidHome/exe") if -l "$pidHome/exe";
             $fdList->{"%> $exe "._("currently running")} = 1 if $exe =~ m/$regexpText/;
         }
-        if ($pinfo =~ m/r/ and -r "/proc/$p/root") # root
+        if ($pinfo =~ m/r/ and -r "$pidHome/root") # root
         {
-            my $root = readlink ("/proc/$p/root") if -l "/proc/$p/root";
+            my $root = readlink ("$pidHome/root") if -l "$pidHome/root";
             $fdList->{"%> "._("Root directory")." : $root"} = 1 if $root =~ m/$regexpText/;
         }
         # Search for openned handles in searchText path
-        next if not -r "/proc/$p/fd";
-        if (not (opendir (FDDIR, "/proc/$p/fd")))
+        next if not -r "$pidHome/fd";
+        if (not (opendir (FDDIR, "$pidHome/fd")))
         {
-            print STDERR  _("Can't open")." /proc/$p/fd\n";
+            print STDERR  _("Can't open")." $pidHome/fd\n";
             next;
         }
         my @fds = readdir (FDDIR);
@@ -216,7 +217,7 @@ sub search
         for my $fd (@fds)
         {
             next if $fd =~ m/^\./;
-            my $absPath = "/proc/$p/fd/$fd";
+            my $absPath = "$pidHome/fd/$fd";
             $absPath = readlink $absPath if -l $absPath;
             $fdList->{"=> FD : $absPath"} = 1 if $absPath =~ m/$regexpText/;
         }