Cleanup key.

This commit is contained in:
Bradley M. Kuhn 2020-07-21 13:49:52 -07:00
parent 11d060a2fa
commit 5a16830b12

View file

@ -265,7 +265,8 @@ foreach my $ticket (@processList) {
} elsif ($line =~ /^\s*([^:]+)\s*:\s*(.+)$/) {
my($key, $val) = ($1, $2);
# Note that this will take the last one used, since rt log gives ticket traffic IN ORDER.
if ($key =~ /(CONTRACTED NAME|PAYMENT NAME|PAYMENT METHOD)/i) {
$key =~ s/^\s*//; $key =~ s/\s*$//;
if ($key =~ /^(CONTRACTED NAME|PAYMENT NAME|PAYMENT METHOD)$/i) {
$paymentVals{$key} = $val;
print STDERR "\"$ticket\": rt show $ticketNum line match: $key $val for $line\n" if ($VERBOSE > 7);
}