[2021] in Moira Commits
/svn/moira r4163 - trunk/moira/clients/mrtest
daemon@ATHENA.MIT.EDU (Garry Zacheiss)
Tue Jun 10 08:15:41 2014
Date: Tue, 10 Jun 2014 08:15:34 -0400
From: Garry Zacheiss <zacheiss@MIT.EDU>
Message-Id: <201406101215.s5ACFYBX001470@drugstore.mit.edu>
To: moira-commits@MIT.EDU
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Author: zacheiss
Date: 2014-06-10 08:15:34 -0400 (Tue, 10 Jun 2014)
New Revision: 4163
Modified:
trunk/moira/clients/mrtest/qy
Log:
Fix proxy authentication flag.
Modified: trunk/moira/clients/mrtest/qy
===================================================================
--- trunk/moira/clients/mrtest/qy 2014-05-27 18:33:33 UTC (rev 4162)
+++ trunk/moira/clients/mrtest/qy 2014-06-10 12:15:34 UTC (rev 4163)
@@ -20,6 +20,7 @@
@auth = ("a");
@query = ();
@outfields = ();
+@proxy = ();
$debug = 0;
$short = 0;
@@ -34,7 +35,7 @@
@connect = ("c $arg");
} elsif ($arg eq "-p") {
$arg = shift(@ARGV) || usage "No argument specified to -p.\n";
- @connect = ("p $arg");
+ @proxy = ("p $arg mrtest");
} elsif ($arg eq "-n") {
@auth = "";
} elsif ($arg eq "-s") {
@@ -105,6 +106,7 @@
read_reply; # wait for the initial 'moira: ' prompt
command @connect; # connect to the server
command @auth if @auth; # authenticate to the server (or not)
+command @proxy if @proxy; # proxy as a different user
# get help information on command
if ($query[0] !~ /^_/) {
