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