httemplate/browse/queue.cgi

   1 <%
   2 #<!-- $Id: queue.cgi,v 1.6 2001-10-31 16:52:42 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 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 $jobnum = $hashref->{jobnum};
  37   my $args = join(' ', $queue->args);
  38   my $date = time2str( "%a %b %e %T %Y", $queue->_date );
  39   my $status = $hashref->{status};
  40   if ( $status eq 'failed' || $status eq 'locked' ) {
  41     $status .=
  42       qq! ( <A HREF="$p/edit/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!.
  43       qq! <A HREF="$p/edit/queue.cgi?jobnum$jobnum&action=del">remove </A> )!;
  44   }
  45   print <<END;
  46       <TR>
  47         <TD>$jobnum</TD>
  48         <TD>$hashref->{job}</TD>
  49         <TD>$args</TD>
  50         <TD>$date</TD>
  51         <TD>$status</TD>
  52       </TR>
  53 END
  54
  55 }
  56
  57 print <<END;
  58     </TABLE>
  59   </BODY>
  60 </HTML>
  61 END
  62
  63 %>