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

Additional issues with CF matching.

Browse source
This commit is contained in:
Bradley M. Kuhn 2018-07-22 15:21:59 -07:00
parent 54cd914e47
commit 2598a6f739
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -39,7 +39,7 @@ sub PaymentDateByTicket($$) {
my $date; my $date;
while (my $payLine = <$rtPayFH>) { while (my $payLine = <$rtPayFH>) {
chomp $payLine; chomp $payLine;
if ($payLine =~ /[\d\-]+/) { if ($payLine =~ /^\s*CF\s*.\s*{payment-$paymentNumber-sent}\s*:\s*[\d\-]+\s*$/) {
$date = $payLine; $date = $payLine;
last; last;
} }
@ -112,16 +112,16 @@ sub GetStatusFromTicket($) {
############################################################################### ###############################################################################
sub GetCustomFieldForTicket($$) { sub GetCustomFieldForTicket($$) {
my($ticketSpec, $customField) = @_; my($ticketSpec, $customField) = @_;
open(my $rtPayFH, "-|", "$RT_CMD", "show", "-f", 'CF.{' . $customField .'}', $ticketSpec); open(my $rtCustomFH, "-|", "$RT_CMD", "show", "-f", 'CF.{' . $customField .'}', $ticketSpec);
my $val; my $val;
while (my $customFieldLine = <$rtPayFH>) { while (my $customFieldLine = <$rtCustomFH>) {
chomp $customFieldLine; chomp $customFieldLine;
if ($customFieldLine =~ /^\s*(\S+)\s*$/) { if ($customFieldLine =~ /^\s*CF\s*.\s*{$customField}\s*:\s*(\S+)\s*$/) {
$val = $customFieldLine; $val = $1;
last; last;
} }
} }
close $rtPayFH; close $rtCustomFH;
return $val; return $val;
} }
############################################################################### ###############################################################################