diff options
Diffstat (limited to 'httemplate/search/queue.html')
-rw-r--r-- | httemplate/search/queue.html | 142 |
1 files changed, 0 insertions, 142 deletions
diff --git a/httemplate/search/queue.html b/httemplate/search/queue.html deleted file mode 100644 index 1c12470..0000000 --- a/httemplate/search/queue.html +++ /dev/null @@ -1,142 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Job Queue', - 'name' => 'jobs', - 'html_form' => qq!<FORM NAME="jobForm" ACTION="$p/misc/queue.cgi" METHOD="POST">!, - 'query' => { 'table' => 'queue', - 'hashref' => $hashref, - 'order_by' => 'ORDER BY jobnum', - }, - 'count_query' => $count_query, - 'header' => [ '#', - 'Job', - 'Args', - 'Date', - 'Status', - 'Account', # unless $hashref->{'svcnum'} - '', # checkbox column - ], - 'fields' => [ - 'jobnum', - 'job', - sub { - my $queue = shift; - if ( $dangerous - || $queue->job !~ /^FS::part_export::/ - || !$noactions - ) - { - encode_entities( join(' ', $queue->args) ); - } else { - ''; - } - }, - sub { - time2str( "%a %b %e %T %Y", shift->_date ); - }, - sub { - my $queue = shift; - my $jobnum = $queue->jobnum; - my $status = $queue->status; - $status .= ': '. $queue->statustext - if $queue->statustext; - my @queue_depend = $queue->queue_depend; - $status .= ' (waiting for '. - join(', ', map { $_->depend_jobnum } - @queue_depend - ). - ')' - if @queue_depend; - my $changable = $dangerous - || ( ! $noactions - && $status =~ /^failed/ - || $status =~ /^locked/ - || $status =~ /^done/ - ); - if ( $changable ) { - $status .= qq! (!; - $status .= - qq! <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=new">retry</A> |! - unless $status =~ /^done/; - $status .= - qq! <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=del">remove</A> )!; - } - $status; - }, - sub { - my $queue = shift; - # return '' if $hashref->{'svcnum'} - my $cust_svc = $queue->cust_svc; - my $account; - if ( $cust_svc ) { - my $table = $cust_svc->part_svc->svcdb; - my $label = ( $cust_svc->label )[1]; - qq!<A HREF="../view/$table.cgi?!. $queue->svcnum. - qq!">$label</A>!; - } else { - ''; - } - }, - sub { - my $queue = shift; - my $jobnum = $queue->jobnum; - my $status = $queue->status; - my $changable = $dangerous - || ( ! $noactions - && $status eq 'failed' - || $status eq 'locked' - ); - if ( $changable ) { - $areboxes = 1; - qq!<INPUT NAME="jobnum$jobnum" TYPE="checkbox" VALUE="1">!; - } else { - ''; - } - }, - ], - #'links' => [ - # '', - # '', - # '', - # '', - # '', - # '', #$acct_link, - # '', - # ], - 'html_foot' => sub { - if ( $areboxes ) { - '<BR><INPUT TYPE="button" VALUE="select all" onClick="setAll(true)">'. - '<INPUT TYPE="button" VALUE="unselect all" onClick="setAll(false)">'. - '<BR><INPUT TYPE="submit" NAME="action" VALUE="retry selected">'. - '<INPUT TYPE="submit" NAME="action" VALUE="remove selected"><BR>'. - '<SCRIPT TYPE="text/javascript">'. - ' function setAll(setTo) { '. - ' theForm = document.jobForm;'. - ' for (i=0,n=theForm.elements.length;i<n;i++)'. - ' if (theForm.elements[i].name.indexOf("jobnum") != -1)'. - ' theForm.elements[i].checked = setTo;'. - ' }'. - '</SCRIPT>'; - } else { - ''; - } - }, - ) - -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Job queue'); - -my $hashref = {}; - -my $conf = new FS::Conf; -my $dangerous = $conf->exists('queue_dangerous_controls'); - -my $noactions = 0; - -my $count_query = 'SELECT COUNT(*) FROM queue'; # + $hashref - -my $areboxes = 0; - -</%init> |