[Bio] / FigWebServices / seed_ctl.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/seed_ctl.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4, Mon Dec 6 18:31:02 2004 UTC revision 1.5, Sun Apr 3 19:33:59 2005 UTC
# Line 239  Line 239 
239      {      {
240          my($running, $status, $but, @output, $info, $output);          my($running, $status, $but, @output, $info, $output);
241    
242            my $color="#FFFFFF";
243          if (kill(0, $job) > 0)          if (kill(0, $job) > 0)
244          {          {
245              $running = "Running";              $running = "Running";
246              $but = $cgi->submit(-value => "Kill process", -name => "kill_job_$job");              $but = $cgi->submit(-value => "Kill process", -name => "kill_job_$job");
247                $color="#FF0000";
248          }          }
249          else          else
250          {          {
251              $running = "Dead";              $running = "Dead";
252              $but = $cgi->submit(-value => "Remove entry", -name => "delete_job_$job");              $but = $cgi->submit(-value => "Remove entry", -name => "delete_job_$job");
253                $color="#D3D3D3";
254          }          }
255    
256          $status = &FIG::file_read("$job_dir/$job/STATUS");          $status = &FIG::file_read("$job_dir/$job/STATUS");
# Line 265  Line 268 
268          $Text::Wrap::columns = 60;          $Text::Wrap::columns = 60;
269          $output = wrap('', '', @output);          $output = wrap('', '', @output);
270          $output = "<pre>$output\n</pre><br>$outlink\n";          $output = "<pre>$output\n</pre><br>$outlink\n";
271          push(@$tbl, [$job, $running, $status, $info, $output, $but]);          push(@$tbl, [$job, [$running, "td style=\"background: $color\""], $status, $info, $output, $but]);
272      }      }
273      push(@html, &HTML::make_table(\@hdrs, $tbl));      push(@html, &HTML::make_table(\@hdrs, $tbl));
274  }  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3