[padb-devel] [padb commit] r82 - Tidy up the *_is_installed functions, if a rmgr code needs

[codesite-noreply at google.com]

Author: apittman
Date: Wed Jul  1 01:51:13 2009
New Revision: 82

Modified:
    branches/full-duplex/src/padb

Log:
Tidy up the *_is_installed functions, if a rmgr code needs
more than one executable to run then test for the presence of
all executables.


Modified: branches/full-duplex/src/padb
==============================================================================
--- branches/full-duplex/src/padb	(original)
+++ branches/full-duplex/src/padb	Wed Jul  1 01:51:13 2009
@@ -2021,7 +2021,7 @@
  }

  sub rms_is_installed {
-    return find_exe("prun");
+    return ( find_exe("prun") and find_exe("rmsquery") );
  }

  sub rms_get_jobs {
@@ -2128,7 +2128,7 @@
   
###############################################################################

  sub slurm_is_installed {
-    return find_exe("srun");
+    return ( find_exe("srun") and find_exe("squeue") and  
find_exe("scontrol") );
  }

  sub slurm_get_jobs {
@@ -2266,7 +2266,7 @@
   
###############################################################################

  sub mpd_is_installed {
-    return find_exe("mpdlistjobs");
+    return ( find_exe("mpdlistjobs") and find_exe("mpdrun") );
  }

  sub mpd_get_data {
@@ -2362,7 +2362,7 @@
  }

  sub open_is_installed {
-    return find_exe("ompi-ps");
+    return ( find_exe("ompi-ps") and find_exe("orterun") );
  }

  my %open_jobs;
@@ -2475,9 +2475,7 @@

      # Check for both LSF and RMS, I know LSF works in other ways but I  
don't
      # know how to launch jobs then...
-    my $rms = find_exe("rinfo");
-    return 0 unless $rms;
-    return find_exe("bjobs");
+    return ( find_exe("bjobs") and rms_is_installed() );
  }

  sub lsf_get_jobs {