httemplate/browse/queue.cgi

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