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

Improve parsing of feedback.

Browse source
This commit is contained in:
Bradley M. Kuhn 2019-04-07 20:58:03 -07:00
parent d352fc5322
commit 6ed5c75d85
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -243,16 +243,21 @@ foreach my $ticket (@processList) {
} elsif ($PAYMENT_NUMBER != 1 and (not defined $pass) and $line =~ /^\s*Payment\s+approved\s+by/) {
$pass = 1;
$line = <$logFH>;
unless ($line =~ /^\s*on([\d:\+\.\-\s]+)\s+from/) {
print STDERR "\"$ticket\": rt show $ticketNum mentorDate line evaluation: $line" if ($VERBOSE > 8);
unless ($line =~ /^\s*on\s+([\d:\+\.\-\s]+)\s+from/) {
print STDERR "\"$ticket\": Skipping: Found Payment approved but there is no proper date field.";
next;
}
$mentorDate = UnixDate(ParseDate($1), "%Y-%m-%d");
$mentorDate = $1;
print STDERR "\"$ticket\": intern passed by approval from mentor on $mentorDate\n" if ($VERBOSE > 2);
$mentorDate = UnixDate(ParseDate($mentorDate), "%Y-%m-%d");
print STDERR "\"$ticket\": converted that pass date into $mentorDate after parsing\n" if ($VERBOSE > 5);
next unless defined $mentorDate;
my $attachmentNum;
while (my $subLine = <$logFH>) {
print STDERR "\"$ticket\": rt show $ticketNum sub-line evaluation: $subLine" if ($VERBOSE > 8);
last if $subLine =~ /^\=\=\=\>\s+/;
if ($subLine =~ /^\s+(\d+)\s+\:/) {
if ($subLine =~ /^\s+(\d+)\s*\:\s+/) {
$attachmentNum = $1;
last;
}