httemplate/browse/queue.cgi

   1 <%
   2 #<!-- $Id: queue.cgi,v 1.3 2001-10-24 00:59:56 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $p ); # $part_referral );
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use Date::Format;
   9 use FS::UID qw(cgisuidsetup);
  10 use FS::Record qw(qsearch);
  11 use FS::CGI qw(header menubar popurl table);
  12 use FS::queue;
  13
  14 $cgi = new CGI;
  15
  16 &cgisuidsetup($cgi);
  17
  18 $p = popurl(2);
  19
  20 print $cgi->header( '-expires' => 'now' ), header("Job Queue", menubar(
  21   'Main Menu' => $p,
  22 #  'Add new referral' => "../edit/part_referral.cgi",
  23 )), &table(), <<END;
  24       <TR>
  25         <TH COLSPAN=2>Job</TH>
  26         <TH>Args</TH>
  27         <TH>Date</TH>
  28         <TH>Status</TH>
  29       </TR>
  30 END
  31
  32 foreach my $queue ( sort {
  33   $a->getfield('jobnum') <=> $b->getfield('jobnum')
  34 } qsearch('queue',{}) ) {
  35   my($hashref)=$queue->hashref;
  36   my $args = join(' ', $queue->args);
  37   my $date = time2str( "%a %b %e %T %Y", $queue->_date );
  38   my $status = $hashref->{status};
  39   if ( $status eq 'failed' || $status eq 'locked' ) {
  40     $status .=
  41       qq! ( <A HREF="$p/edit/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!.
  42       qq! <A HREF="$p/edit/queue.cgi?jobnum$jobnum&action=del">remove </A> )!;
  43   }
  44   print <<END;
  45       <TR>
  46         <TD>$hashref->{jobnum}</TD>
  47         <TD>$hashref->{job}</TD>
  48         <TD>$args</TD>
  49         <TD>$date</TD>
  50         <TD>$status</TD>
  51       </TR>
  52 END
  53
  54 }
  55
  56 print <<END;
  57     </TABLE>
  58   </BODY>
  59 </HTML>
  60 END
  61
  62 %>