httemplate/browse/queue.cgi

   1 <%
   2
   3 print header("Job Queue", menubar(
   4   'Main Menu' => $p,
   5 #  'Add new referral' => "../edit/part_referral.cgi",
   6 )), &table(), <<END;
   7       <TR>
   8         <TH COLSPAN=2>Job</TH>
   9         <TH>Args</TH>
  10         <TH>Date</TH>
  11         <TH>Status</TH>
  12       </TR>
  13 END
  14
  15 foreach my $queue ( sort {
  16   $a->getfield('jobnum') <=> $b->getfield('jobnum')
  17 } qsearch('queue',{}) ) {
  18   my($hashref)=$queue->hashref;
  19   my $jobnum = $hashref->{jobnum};
  20   my $args = join(' ', $queue->args);
  21   my $date = time2str( "%a %b %e %T %Y", $queue->_date );
  22   my $status = $hashref->{status};
  23   if ( $status eq 'failed' || $status eq 'locked' ) {
  24     $status .=
  25       qq! ( <A HREF="$p/edit/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!.
  26       qq! <A HREF="$p/edit/queue.cgi?jobnum$jobnum&action=del">remove </A> )!;
  27   }
  28   print <<END;
  29       <TR>
  30         <TD>$jobnum</TD>
  31         <TD>$hashref->{job}</TD>
  32         <TD>$args</TD>
  33         <TD>$date</TD>
  34         <TD>$status</TD>
  35       </TR>
  36 END
  37
  38 }
  39
  40 print <<END;
  41     </TABLE>
  42   </BODY>
  43 </HTML>
  44 END
  45
  46 %>