[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.6, Sat Apr 9 17:21:16 2005 UTC revision 1.7, Sun Jul 10 01:05:36 2005 UTC
# Line 130  Line 130 
130  #  #
131    
132  push(@html, $cgi->h1("SEED current status"));  push(@html, $cgi->h1("SEED current status"));
133  push(@html, $cgi->start_form(-action => "seed_ctl.cgi"));  push(@html, $cgi->start_form(-action => "seed_ctl.cgi", -name=>"seed_ctl"));
134  push(@html, $cgi->h2("Database status"));  push(@html, $cgi->h2("Database status"));
135    
136  if (!$ok)  if (!$ok)
# Line 190  Line 190 
190  # Check the asynchronous job queue.  # Check the asynchronous job queue.
191  #  #
192    
193  push(@html, $cgi->h2("Job scheduler queue"));  push(@html, "\n\n", $cgi->h2("Job scheduler queue"), "\n");
194    
195  my $js = new JobScheduler;  my $js = new JobScheduler;
 my @job_status = $js->get_status();  
196    
197    my @todel=$cgi->param('deletejob');
198    if (@todel) {
199     foreach my $del (@todel) {
200      my $res=$js->job_delete($del);
201      if ($res) {push @html, $cgi->p("Deleted $del\n")}
202      else {push @html, $cgi->p("Some problem deleting $del\n")}
203     }
204    }
205    
206    my @job_status = $js->get_status();
207  if (@job_status == 0)  if (@job_status == 0)
208  {  {
209      push(@html, $cgi->p("No jobs in queue"));      push(@html, $cgi->p("No jobs in queue\n"));
210  }  }
211  else  else
212  {  {
# Line 207  Line 216 
216      {      {
217          my($id, $code, $status) = @$jent;          my($id, $code, $status) = @$jent;
218    
219          push(@t, [$cgi->a({name => "job_$id"}, $id), $status]);          push(@t, [$cgi->a({name => "job_$id"}, $id), $status, $cgi->checkbox(-name=>"deletejob", -value=>$id, -label=>'')]);
220      }      }
221    
222      push(@html, &HTML::make_table(["Job ID", "Job status"], \@t));      push(@html, &HTML::make_table(["Job ID", "Job status", "Delete Job"], \@t));
223        push(@html, $cgi->br, &HTML::java_buttons("seed_ctl", "deletejob"), $cgi->br, "\n");
224        push(@html, "\n", $cgi->p,$cgi->submit("Delete Job(s)"), $cgi->reset, $cgi->p, $cgi->end_form, "\n");
225  }  }
226    
227    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3