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

Make $round an argument to this sub.

Browse source 
Also, add $RT_CMD as an "our" variable.
This commit is contained in:
Bradley M. Kuhn 2018-07-25 14:32:05 -07:00
parent 7e52b5922b
commit 9867531a53
2 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scripts/rt-helper.pl
View file

@ -1,11 +1,17 @@
# -*- Perl -*- # -*- Perl -*-
# Copyright © 2018, Bradley M. Kuhn # Copyright © 2018, Bradley M. Kuhn
# License: AGPL-3.0-or-later # License: AGPL-3.0-or-later
use strict;
use warnings;
use autodie qw(:all);
our $RT_CMD;
############################################################################### ###############################################################################
sub Outreachy_FindUniqueTicket(@) { sub Outreachy_FindUniqueTicket($@) {
my @searchTerms = @_; my($round, @searchTerms) = @_;
open(my $rtLsFH, "-|", "$RT_CMD", "ls", "-i", 'Queue = outreachy-interns ' . open(my $rtLsFH, "-|", "$RT_CMD", "ls", "-i", 'Queue = outreachy-interns ' .
"AND Subject LIKE '" . $ROUND . "' AND" . "AND Subject LIKE '" . $round . "' AND" .
join(" AND ", @searchTerms)); join(" AND ", @searchTerms));
my $ticketSpec; my $ticketSpec;
while (my $lsLine = <$rtLsFH>) { while (my $lsLine = <$rtLsFH>) {
@ -24,10 +30,13 @@ sub Outreachy_FindUniqueTicket(@) {
############################################################################### ###############################################################################
sub Outreachy_FindMainTicketsInRound($) { sub Outreachy_FindMainTicketsInRound($) {
my($round) = @_; my($round) = @_;
open(my $rtLsFH, "-|", "$RT_CMD", "ls", "-i", 'Queue = outreachy-interns ' . open(my $rtLsFH, "-|",
"AND Subject LIKE '" . $ROUND); $RT_CMD, "ls", "-i", 'Queue = outreachy-interns ' .
"AND Subject LIKE '" . $round . "'");
print $round;
my @ticketSpecs; my @ticketSpecs;
while (my $lsLine = <$rtLsFH>) { while (my $lsLine = <$rtLsFH>) {
print $lsLine;
chomp $lsLine; chomp $lsLine;
if ($lsLine =~ /ticket/) { if ($lsLine =~ /ticket/) {
push(@ticketSpecs, $lsLine); push(@ticketSpecs, $lsLine);

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

@ -11,9 +11,10 @@ use Getopt::Long;
use File::Spec; use File::Spec;
use Date::Manip qw(ParseDate UnixDate); use Date::Manip qw(ParseDate UnixDate);
our $RT_CMD;
require 'rt-helper.pl'; require 'rt-helper.pl';
my($PAYMENT_DIR, $VERBOSE, $INTERACTIVE, $PAYMENT_NUMBER, $RT_CMD, $INVOICE_LINE, $INTERN_SUCCESS_FILE, my($PAYMENT_DIR, $VERBOSE, $INTERACTIVE, $PAYMENT_NUMBER, $INVOICE_LINE, $INTERN_SUCCESS_FILE,
$INTERN_FAIL_FILE, $LEDGER_ENTRY_DATE, $SVN_CMD, $ROUND, $TRAVEL_NOTICE_TICKET); $INTERN_FAIL_FILE, $LEDGER_ENTRY_DATE, $SVN_CMD, $ROUND, $TRAVEL_NOTICE_TICKET);
############################################################################### ###############################################################################
@ -190,7 +191,7 @@ while (my $file = readdir $dh) {
push(@searchTerms, 'Subject LIKE "' . $name . '"'); push(@searchTerms, 'Subject LIKE "' . $name . '"');
} }
# Find the ticket number for this intern. # Find the ticket number for this intern.
my $ticket = Outreachy_FindUniqueTicket(@searchTerms); my $ticket = Outreachy_FindUniqueTicket($ROUND, @searchTerms);
if (not defined $ticket) { if (not defined $ticket) {
foreach my $term (@searchTerms) { foreach my $term (@searchTerms) {
$ticket = Outreachy_FindUniqueTicket(($term)); $ticket = Outreachy_FindUniqueTicket(($term));