RT-Plugins/RT-Client-Tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

rt-reassign: script to reassign tickets.

Browse source 
This assumes a set of ticket ids on STDIN and reassigns them if
they're open and in the queue specified on the CLI.
This commit is contained in:
Bradley M. Kuhn 2020-07-21 13:46:53 -07:00
parent 8ac2663124
commit 11d060a2fa
1 changed files with 43 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
scripts/rt-reassign.plx Executable file
View file

@ -0,0 +1,43 @@
#!/usr/bin/perl
# Copyright © 2018, Bradley M. Kuhn
# License: AGPL-3.0-or-later
# probably want to pipe in: rt ls -i "Status = 'needs-release-approval'" | xargs -I_ rt show -f DependsOn _/links | grep -Eo '[0-9]+,?' | sed -e 's/,$//'
use strict;
use warnings;
use autodie qw(:all);
my $RT_CMD = '/usr/bin/rt';
my($queue, $oldUser, $newUser) = @ARGV;
my $count = 0;
foreach my $id (<STDIN>) {
chomp $id;
my $line;
open(my $rtShowFH, "-|", "$RT_CMD", "show", '-t', 'ticket', '-f', 'Queue,id,status,owner', $id);
my %tixData;
while (my $line = <$rtShowFH>) {
die "$id: invalid line: $line" unless $line =~ /^(\S+)\s*:\s+(\S+)\s*$/;
$tixData{$1} = $2;
}
close $rtShowFH;
die "$tixData{id} is not $id" unless $tixData{id} =~ /$id/;
die "$id: missing status or Owner" unless defined $tixData{Status} and defined $tixData{Owner};
my $skip = 0;
if ($tixData{Queue} ne $queue) {
$skip++; print STDERR "$id: skipping since status $tixData{Queue}\n";
} elsif ($tixData{Status} ne 'open') {
$skip++; print STDERR "$id: skipping since status $tixData{Status} is not open\n"
} elsif ($tixData{Owner} ne $oldUser) {
$skip++; print STDERR "$id: skipping since status $tixData{Owner} is not $oldUser\n" unless $tixData{Owner} eq $oldUser;
}
next if $skip > 0;
print STDERR "$id: reassigning to $newUser\n";
system($RT_CMD, 'edit', $id, 'set', "Owner=$newUser");
$count++;
}
print "Reassigned $count tickets to $newUser from $oldUser\n";