httemplate/browse/queue.cgi

   1 <%
   2 #<!-- $Id: queue.cgi,v 1.1 2001-09-11 04:44:58 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   print <<END;
  39       <TR>
  40         <TD>$hashref->{jobnum}</TD>
  41         <TD>$hashref->{job}</TD>
  42         <TD>$args</TD>
  43         <TD>$date</TD>
  44         <TD>$hashref->{status}</TD>
  45       </TR>
  46 END
  47
  48 }
  49
  50 print <<END;
  51     </TABLE>
  52   </BODY>
  53 </HTML>
  54 END
  55
  56 %>