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

LedgerTagFromTicket: handle that CF line might be first

Browse source 
The 'CF.{ledger-tags}: ' portion appears on the first line of output, so that
must be handled.
This commit is contained in:
Bradley M. Kuhn 2018-07-22 15:13:03 -07:00
parent def7498189
commit 54cd914e47
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scripts/rt-outreachy-payment-next.plx
View file

@ -53,8 +53,10 @@ sub LedgerTagFromTicket($$) {
open(my $rtPayFH, "-|", "$RT_CMD", "show", "-f", 'CF.{ledger-tags}', $ticketSpec); open(my $rtPayFH, "-|", "$RT_CMD", "show", "-f", 'CF.{ledger-tags}', $ticketSpec);
my $tagValue; my $tagValue;
while (my $tagsLine = <$rtPayFH>) { while (my $tagsLine = <$rtPayFH>) {
print STDERR "Tag Lookup for \"$ticketSpec\" for \"$tag\", searching this line for it: $tagsLine"
if ($VERBOSE > 6);
chomp $tagsLine; chomp $tagsLine;
if ($tagsLine =~ /^\s*;?$tag\s*:\s*(.+)\s*$/i) { if ($tagsLine =~ /^(?:\s*|\s*CF[^:]+\s*}\s*:\s*);?$tag\s*:\s*(.+)\s*$/i) {
$tagValue = $1; $tagValue = $1;
last; last;
} }