Changeset 27170

Timestamp:

Mar 3, 2010, 4:34:17 PM (16 years ago)

Author:

bills

Message:

adapt to change in pantasks status output

File:

• trunk/pstamp/scripts/pstamp_server_status (modified) (1 diff)

trunk/pstamp/scripts/pstamp_server_status

@@ -86 +86 @@
     } elsif ($got_state == 1 and $line =~ /\+|\-/) {
 #        print "$line\n";
-        my ($task_state, $task, $njobs, $ngood, $nfail, $ntime, $cmd) = split " ", $line;
+        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 );