Changeset 25 for trunk/cluster_status.php

Timestamp:

Jan 13, 2017, 1:30:29 PM (7 years ago)

Author:

gegorbet

Message:

merge us3iab/airavata gridctl code

File:

• trunk/cluster_status.php (modified) (4 diffs)

trunk/cluster_status.php

@@ -4 +4 @@
 include "$us3bin/listen-config.php";
 
-$xml  = get_data();
-
-if ( $xml != "" )
-   parse( $xml );
+if ( ! preg_match( "/localhost/", $dbhost ) )
+{
+   $xml  = get_data();
+
+   if ( $xml != "" )
+      parse( $xml );
+}
 
 $data = array();
@@ -165 +168 @@
    global $self;
    global $data;
-
-   $clusters = array( "alamo", "lonestar5", "stampede",
-                      "comet", "gordon", "jureca", "jacinto" );
-//   $clusters = array( "alamo", "lonestar5", "stampede",
-//                      "comet", "gordon", "jureca"            );
+   global $dbhost;
+   global $org_domain;
+
+   if ( preg_match( "/localhost/", $dbhost ) )
+   {
+      if ( preg_match( "/attlocal/", $org_domain ) )
+         $clusters = array( "us3iab-devel" );
+      else
+         $clusters = array( "us3iab-node0" );
+   }
+   else
+   {
+      $clusters = array( "alamo", "lonestar5", "stampede", "comet",
+                         "gordon", "jureca", "jacinto" );
+   }
+
    foreach ( $clusters as $clname )
    {
       $a      = Array();
+//echo "$self:   clname=$clname\n";
+
       switch( $clname )
       {
-         case 'alamo':
-         {
-            $host   = "us3@alamo.uthscsa.edu";
-            $qstat  = `ssh $host '/usr/bin/qstat -B 2>&1|tail -1'`;
+         case 'us3iab-node0':
+         case 'us3iab-node1':
+         case 'us3iab-devel':
+         {
+            $qstat  = `/usr/bin/qstat -B 2>&1|tail -1`;
+
             $sparts = preg_split( '/\s+/', $qstat );
             $que    = $sparts[ 3 ];
@@ -189 +207 @@
             break;
          }
+         case 'alamo':
+         {
+            $host   = "us3@alamo.uthscsa.edu";
+            $qstat  = `ssh $host '/usr/bin/qstat -B 2>&1|tail -1'`;
+            $sparts = preg_split( '/\s+/', $qstat );
+            $que    = $sparts[ 3 ];
+            $run    = $sparts[ 4 ];
+            $sta    = $sparts[ 10 ];
+            if ( $sta == "Active" )
+               $sta    = "up";
+            else
+               $sta    = "down";
+            break;
+         }
          case 'jacinto':
          {
@@ -289 +321 @@
       $a[ 'running' ] = $run;
       $a[ 'status'  ] = $sta;
+//echo "$self:  $clname  $que $run $sta\n";
 
       $data[] = $a;