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

Add lines of #'s between functions.

Browse source
This commit is contained in:
Bradley M. Kuhn 2018-07-22 14:35:20 -07:00
parent 0f0b60eada
commit 0170039053
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -13,6 +13,7 @@ use Date::Manip qw(ParseDate UnixDate);
my($PAYMENT_DIR, $VERBOSE, $INTERACTIVE, $PAYMENT_NUMBER, $RT_CMD); my($PAYMENT_DIR, $VERBOSE, $INTERACTIVE, $PAYMENT_NUMBER, $RT_CMD);
###############################################################################
sub FindUniqueTicket(@) { sub FindUniqueTicket(@) {
my @searchTerms = @_; my @searchTerms = @_;
open(my $rtLsFH, "-|", "$RT_CMD", "ls", "-i", 'Queue = outreachy-interns AND ' . open(my $rtLsFH, "-|", "$RT_CMD", "ls", "-i", 'Queue = outreachy-interns AND ' .
@ -31,6 +32,7 @@ sub FindUniqueTicket(@) {
close $rtLsFH; close $rtLsFH;
return $ticketSpec; return $ticketSpec;
} }
###############################################################################
sub PaymentDateByTicket($$) { sub PaymentDateByTicket($$) {
my($ticketSpec, $paymentNumber) = @_; my($ticketSpec, $paymentNumber) = @_;
open(my $rtPayFH, "-|", "$RT_CMD", "show", "-f", 'CF.{payment-' . $paymentNumber . '-sent}', $ticketSpec); open(my $rtPayFH, "-|", "$RT_CMD", "show", "-f", 'CF.{payment-' . $paymentNumber . '-sent}', $ticketSpec);
@ -45,6 +47,7 @@ sub PaymentDateByTicket($$) {
close $rtPayFH; close $rtPayFH;
return $date; return $date;
} }
###############################################################################
sub LedgerTagFromTicket($$) { sub LedgerTagFromTicket($$) {
my($ticketSpec, $tag) = @_; my($ticketSpec, $tag) = @_;
open(my $rtPayFH, "-|", "$RT_CMD", "show", "-f", 'CF.{ledger-tags}', $ticketSpec); open(my $rtPayFH, "-|", "$RT_CMD", "show", "-f", 'CF.{ledger-tags}', $ticketSpec);
@ -59,6 +62,7 @@ sub LedgerTagFromTicket($$) {
close $rtPayFH; close $rtPayFH;
return $tagValue; return $tagValue;
} }
###############################################################################
GetOptions("paymentDir=s" => \$PAYMENT_DIR, "verbose=i" => \$VERBOSE, "interactive" => \$INTERACTIVE, GetOptions("paymentDir=s" => \$PAYMENT_DIR, "verbose=i" => \$VERBOSE, "interactive" => \$INTERACTIVE,
"paymentNumber=i" => \$PAYMENT_NUMBER, "rtCommand=s" => $RT_CMD); "paymentNumber=i" => \$PAYMENT_NUMBER, "rtCommand=s" => $RT_CMD);