[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.3, Wed Jun 16 14:06:48 2004 UTC revision 1.4, Mon Dec 6 18:31:02 2004 UTC
# Line 11  Line 11 
11    
12  use FIG;  use FIG;
13  #$FIG_Config::dbport =3000;  #$FIG_Config::dbport =3000;
14    use JobScheduler;
15    
16  use strict;  use strict;
17    
# Line 169  Line 170 
170  push(@html, $cgi->hr);  push(@html, $cgi->hr);
171    
172  #  #
173    # Check the asynchronous job queue.
174    #
175    
176    push(@html, $cgi->h2("Job scheduler queue"));
177    
178    my $js = new JobScheduler;
179    my @job_status = $js->get_status();
180    
181    if (@job_status == 0)
182    {
183        push(@html, $cgi->p("No jobs in queue"));
184    }
185    else
186    {
187        my @t = ();
188    
189        for my $jent (@job_status)
190        {
191            my($id, $code, $status) = @$jent;
192    
193            push(@t, [$cgi->a({name => "job_$id"}, $id), $status]);
194        }
195    
196        push(@html, &HTML::make_table(["Job ID", "Job status"], \@t));
197    }
198    
199    
200    #
201  # Check for background jobs.  # Check for background jobs.
202  #  #
203    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3