Changeset 12466 for trunk/Ohana/src/opihi/pantasks/JobOps.c

Timestamp:

Mar 15, 2007, 3:54:25 PM (19 years ago)

Author:

eugene

Message:

better job status information

File:

• trunk/Ohana/src/opihi/pantasks/JobOps.c (modified) (2 diffs)

trunk/Ohana/src/opihi/pantasks/JobOps.c

@@ -64 +64 @@
 
   int i;
+  int status;
+  char command[1024];
+  IOBuffer buffer;
 
   gprint (GP_LOG, "\n");
@@ -71 +74 @@
   }
 
-  gprint (GP_LOG, " Jobs\n");
+  gprint (GP_LOG, " Jobs in Pantasks Queue\n");
   for (i = 0; i < Njobs; i++) {
     gprint (GP_LOG, " %d: %-15s %5d %20s (%lx)\n", Njobs, jobs[i][0].task[0].name, jobs[i][0].JobID, jobs[i][0].argv[0], (long) jobs[i][0].argv);
   }
+
+  /* check if controller is running */
+  status = CheckControllerStatus ();
+  if (!status) {
+    return;
+  }
+
+  sprintf (command, "jobstack busy");
+  InitIOBuffer (&buffer, 0x100);
+
+  SerialThreadLock ();
+  status = ControllerCommand (command, CONTROLLER_PROMPT, &buffer);
+  SerialThreadUnlock ();
+
+  if (status) {
+    gprint (GP_LOG, " jobs currently running remotely:\n");
+    gwrite (buffer.buffer, 1, buffer.Nbuffer, GP_LOG);
+  } else {
+    gprint (GP_LOG, "controller is not responding\n");
+  }
+  FreeIOBuffer (&buffer);
   return;
 }