[padb-devel] [padb commit] r66 - Remove some old Tru64 code which isn't need on Linux.

[codesite-noreply at google.com]

Author: apittman
Date: Sun Jun 28 08:16:41 2009
New Revision: 66

Modified:
    branches/full-duplex/src/padb

Log:
Remove some old Tru64 code which isn't need on Linux.


Modified: branches/full-duplex/src/padb
==============================================================================
--- branches/full-duplex/src/padb	(original)
+++ branches/full-duplex/src/padb	Sun Jun 28 08:16:41 2009
@@ -5881,41 +5881,19 @@
      }
  }

-my %proc_data;
-
-sub load_all_proc_info {
-    my $cmd = "ps -eo pid,ppid,user,comm";
-    open( PS, "$cmd|" );
-    my @pids = (<PS>);
-    close(PS);
-    foreach my $pid (@pids) {
-        my ( $pid, $ppid, $user, $cmd ) = split( " ", $pid );
-        next if $pid eq "PID";
-        $proc_data{$pid}{PPid} = $ppid;
-
-        # $proc{$pid}{user} = $user;
-        $proc_data{$pid}{Name} = $cmd;
-    }
-}
-
  sub find_from_status {
      my $pid = shift;
      my $key = shift;

-    if ( -f "/proc/version" ) {
-        open( PCMD, "/proc/$pid/status" ) or return;
-        while (<PCMD>) {
-            my $l = $_;
-            if ( $l =~ /$key:\t+(\w+)/ ) {
-                close PCMD;
-                return $1;
-            }
+    open( PCMD, "/proc/$pid/status" ) or return;
+    while (<PCMD>) {
+        my $l = $_;
+        if ( $l =~ /$key:\t+(\w+)/ ) {
+            close PCMD;
+            return $1;
          }
-        close PCMD;
-    } else {
-        load_all_proc_info() if ( keys(%proc_data) eq 0 );
-        return $proc_data{$pid}{$key} if ( defined $proc_data{$pid}{$key}  
);
      }
+    close PCMD;
      return;
  }