bin/queue-bulk_change

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 #use Getopt::Std;
   5 use FS::UID qw( adminsuidsetup );
   6 use FS::Record qw( qsearch qsearchs );
   7 use FS::queue_arg;
   8 use FS::queue;
   9
  10 my $user = shift or &usage;
  11 adminsuidsetup $user;
  12
  13 my $from = shift or &usage;
  14 my $to = shift or &usage;
  15
  16 foreach my $queue_arg ( qsearch('queue_arg', { 'arg' => $from, } ) ) {
  17
  18   $queue_arg->arg($to);
  19   my $error = $queue_arg->replace;
  20   die $error if $error;
  21
  22   #not on 3.x my $queue = $queue_arg->queue;
  23   my $queue = qsearchs( 'queue', { 'jobnum' => $queue_arg->jobnum } );
  24   if ( $queue->status eq 'failed' ) {
  25     $queue->status('new');
  26     my $error = $queue->replace;
  27     die $error if $error;
  28   }
  29
  30 }
  31
  32 sub usage {
  33   die "usage: queue-bulk_chage employee_username from_arg to_arg\n";
  34 }