[2024] in Moira Commits
/svn/moira r4166 - trunk/moira/clients/mrtest
daemon@ATHENA.MIT.EDU (Garry Zacheiss)
Fri Jun 13 15:31:45 2014
Date: Fri, 13 Jun 2014 15:31:39 -0400
From: Garry Zacheiss <zacheiss@MIT.EDU>
Message-Id: <201406131931.s5DJVdGb009291@drugstore.mit.edu>
To: moira-commits@MIT.EDU
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Author: zacheiss
Date: 2014-06-13 15:31:39 -0400 (Fri, 13 Jun 2014)
New Revision: 4166
Modified:
trunk/moira/clients/mrtest/qy
Log:
Extend syntax of -p flag to allow a way to set proxywith.
Modified: trunk/moira/clients/mrtest/qy
===================================================================
--- trunk/moira/clients/mrtest/qy 2014-06-13 17:51:27 UTC (rev 4165)
+++ trunk/moira/clients/mrtest/qy 2014-06-13 19:31:39 UTC (rev 4166)
@@ -6,6 +6,7 @@
use IPC::Open2;
use FileHandle;
use Socket;
+use File::Basename;
# use vars qw( @connect @auth @query $debug $align );
# use vars qw( $mrtest @help @argl @retl @fields @qret $i );
# use strict;
@@ -36,7 +37,13 @@
@connect = ("c $arg");
} elsif ($arg eq "-p") {
$arg = shift(@ARGV) || usage "No argument specified to -p.\n";
- @proxy = ("p $arg mrtest");
+ if ($arg =~ /,/) {
+ ($proxy_user, $proxy_with) = split(/,/, $arg, 2);
+ } else {
+ $proxy_user = $arg;
+ $proxy_with = basename($0);
+ }
+ @proxy = ("p $proxy_user $proxy_with");
} elsif ($arg eq "-n") {
@auth = "";
} elsif ($arg eq "-s") {
