<% # use strict; use vars qw( $cgi $p ); # $part_referral ); use CGI; use CGI::Carp qw(fatalsToBrowser); use Date::Format; use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearch); use FS::CGI qw(header menubar popurl table); use FS::queue; $cgi = new CGI; &cgisuidsetup($cgi); $p = popurl(2); print $cgi->header( @FS::CGI::header ), header("Job Queue", menubar( 'Main Menu' => $p, # 'Add new referral' => "../edit/part_referral.cgi", )), &table(), < Job Args Date Status END foreach my $queue ( sort { $a->getfield('jobnum') <=> $b->getfield('jobnum') } qsearch('queue',{}) ) { my($hashref)=$queue->hashref; my $args = join(' ', $queue->args); my $date = time2str( "%a %b %e %T %Y", $queue->_date ); my $status = $hashref->{status}; if ( $status eq 'failed' || $status eq 'locked' ) { $status .= qq! ( retry |!. qq! remove )!; } print < $hashref->{jobnum} $hashref->{job} $args $date $status END } print < END %>