[padb-devel] [padb commit] r86 - Re-instate orte support across multiple nodes, I accidentally disabled

[codesite-noreply at google.com]

Author: apittman
Date: Wed Jul  1 03:31:28 2009
New Revision: 86

Modified:
    branches/full-duplex/src/padb

Log:
Re-instate orte support across multiple nodes, I accidentally disabled
this last week when changing the way it reads orte-ps


Modified: branches/full-duplex/src/padb
==============================================================================
--- branches/full-duplex/src/padb	(original)
+++ branches/full-duplex/src/padb	Wed Jul  1 03:31:28 2009
@@ -2374,7 +2374,7 @@
          return;

      }
-    my $hostname = hostname();
+
      my $job;

      open( OPEN, "ompi-ps|" ) or return;
@@ -2408,16 +2408,14 @@
                  next if $host eq "Node";
                  $open_jobs{$job}{hosts}{$host}++;

-                if ( $host eq $hostname ) {
-                    my $name = $elems[1];
-                    $name =~ /\[\[(\d+)\,(\d+)\]\,(\d+)\]/;
-                    my $rank = $3;
-
-                    my $pid = $elems[3];
-                    $rank =~ s/ //g;
-                    $pid  =~ s/ //g;
-                    $open_jobs{$job}{ranks}{$host}{$rank} = $pid;
-                }
+                my $name = $elems[1];
+                $name =~ /\[\[(\d+)\,(\d+)\]\,(\d+)\]/;
+                my $rank = $3;
+
+                my $pid = $elems[3];
+                $rank =~ s/ //g;
+                $pid  =~ s/ //g;
+                $open_jobs{$job}{ranks}{$host}{$rank} = $pid;
              }
          }