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

More command line options.

Browse source
This commit is contained in:
Bradley M. Kuhn 2018-07-15 09:05:33 -07:00
parent aa5e41555e
commit 7685bfc61a
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -11,9 +11,11 @@ use Getopt::Long;
use File::Spec; use File::Spec;
use Date::Manip qw(ParseDate UnixDate); use Date::Manip qw(ParseDate UnixDate);
my($PAYMENT_DIR, $VERBOSE, $INTERACTIVE, $PAYMENT_NUMBER, $RT_CMD);
sub FindUniqueTicket(@) { sub FindUniqueTicket(@) {
my @searchTerms = @_; my @searchTerms = @_;
open(my $rtLsFH, "-|", "rt", "ls", "-i", 'Queue = outreachy-interns AND ' . open(my $rtLsFH, "-|", "$RT_CMD", "ls", "-i", 'Queue = outreachy-interns AND ' .
join(" AND ", @searchTerms)); join(" AND ", @searchTerms));
my $ticketSpec; my $ticketSpec;
while (my $lsLine = <$rtLsFH>) { while (my $lsLine = <$rtLsFH>) {
@ -29,14 +31,22 @@ sub FindUniqueTicket(@) {
close $rtLsFH; close $rtLsFH;
return $ticketSpec; return $ticketSpec;
} }
my($PAYMENT_DIR, $VERBOSE);
GetOptions("paymentDir=s", \$PAYMENT_DIR, "verbose=i", \$VERBOSE); GetOptions("paymentDir=s" => \$PAYMENT_DIR, "verbose=i" => \$VERBOSE, "interactive" => \$INTERACTIVE,
"paymentNumber=i" => \$PAYMENT_NUMBER, "rtCommand=s" => $RT_CMD);
$RT_CMD = '/usr/bin/rt' unless defined $RT_CMD;
$INTERACTIVE = 0 if not defined $INTERACTIVE;
unless (defined $PAYMENT_DIR and -d $PAYMENT_DIR) { unless (defined $PAYMENT_DIR and -d $PAYMENT_DIR) {
print STDERR "usage: $0 --paymentDir=<DIRECTORY> option is required and directory must exist\n"; print STDERR "usage: $0 --paymentDir=<DIRECTORY> option is required and directory must exist\n";
exit 1; exit 1;
} }
unless (defined $PAYMENT_NUMBER and $PAYMENT_NUMBER =~ /^123$/) {
print STDERR "usage: $0 --paymentNumber=<VALUE> option is required and must be 1, 2 or 3\n";
exit 1;
}
$VERBOSE = 0 unless defined $VERBOSE; $VERBOSE = 0 unless defined $VERBOSE;
opendir(my $dh, $PAYMENT_DIR); opendir(my $dh, $PAYMENT_DIR);