httemplate/misc/queue.cgi

   1 <%
   2
   3 $cgi->param('action') =~ /^(new|del|(retry|remove) selected)$/
   4   or die "Illegal action";
   5 my $action = $1;
   6
   7 my $job;
   8 if ( $action eq 'new' || $action eq 'del' ) {
   9   $cgi->param('jobnum') =~ /^(\d+)$/ or die "Illegal jobnum";
  10   my $jobnum = $1;
  11   $job = qsearchs('queue', { 'jobnum' => $1 })
  12     or die "unknown jobnum $jobnum";
  13 }
  14
  15 if ( $action eq 'new' ) {
  16   my %hash = $job->hash;
  17   $hash{'status'} = 'new';
  18   $hash{'statustext'} = '';
  19   my $new = new FS::queue \%hash;
  20   my $error = $new->replace($job);
  21   die $error if $error;
  22 } elsif ( $action eq 'del' ) {
  23   my $error = $job->delete;
  24   die $error if $error;
  25 } elsif ( $action =~ /^(retry|remove) selected$/ ) {
  26   foreach my $jobnum (
  27     map { /^jobnum(\d+)$/; $1; } grep /^jobnum\d+$/, $cgi->param
  28   ) {
  29     my $job = qsearchs('queue', { 'jobnum' => $jobnum });
  30     if ( $action eq 'retry selected' && $job ) { #new
  31       my %hash = $job->hash;
  32       $hash{'status'} = 'new';
  33       $hash{'statustext'} = '';
  34       my $new = new FS::queue \%hash;
  35       my $error = $new->replace($job);
  36       die $error if $error;
  37     } elsif ( $action eq 'remove selected' && $job ) { #del
  38       my $error = $job->delete;
  39       die $error if $error;
  40     }
  41   }
  42 }
  43
  44 print $cgi->redirect(popurl(2). "browse/queue.cgi");
  45
  46 %>