Changeset 27211 for trunk/pstamp/scripts/pstamp_server_status

Timestamp:

Mar 5, 2010, 1:47:06 PM (16 years ago)

Author:

bills

Message:

add support for making stamps from unconvolved stacks and if
REQFILT is a single charcter append a '%' character

File:

• trunk/pstamp/scripts/pstamp_server_status (modified) (3 diffs)

trunk/pstamp/scripts/pstamp_server_status

@@ -88 +88 @@
         my ($task_state, $task, $nrun, $njobs, $ngood, $nfail, $ntime, $cmd) = split " ", $line;
 #        print "$task $task_state\n";
-        my %this_task = ( name => $task, njobs => $njobs, ngood => $ngood, nfail => $nfail, ntime => $ntime, cmd => $cmd ); 
+        my %this_task = ( name => $task, nrun=> $nrun, njobs => $njobs, ngood => $ngood, nfail => $nfail, ntime => $ntime, cmd => $cmd ); 
 
         # change '.' in task name to '_' so we have a valid hash key
@@ -116 +116 @@
 
 if ($request_run) {
-    print "$request_run->{ngood} of $request_run->{njobs} Requests parsed successfully.";
+    print "<b>Parser Status:</b> $request_run->{nrun} running. $request_run->{ngood} parsed successfully.&nbsp; $request_run->{nfail} failed to parse.";
     if ($request_fin) {
         print "  $request_fin->{ngood} Requests finished.";
@@ -125 +125 @@
     print "\n";
     if ($job_run) {
-        print "$job_run->{ngood} of $job_run->{njobs} Jobs run successfully.";
+        print "<b>Job Status:</b> &nbsp;&nbsp; $job_run->{nrun} running. &nbsp; $job_run->{ngood} completed successfully. &nbsp; $job_run->{nfail} failed";
         print "\n";
     } else {