remove more environment variables from Client.pm, for a more flexible programmatic...

diff --git a/Crypt/Monkeysphere/MSVA/Client.pm b/Crypt/Monkeysphere/MSVA/Client.pm
index 820266db2415b703d7d51e892cc3bb33e116a0f7..0d91aadd0bd8fbf77bb4efffe5be0bc753ab0007 100644 (file)
--- a/Crypt/Monkeysphere/MSVA/Client.pm
+++ b/Crypt/Monkeysphere/MSVA/Client.pm
@@ -46,14 +46,16 @@
     my $peer = shift;
     my $pkctype = shift;
     my $pkcdata = shift;
+    my $msvasocket = shift;
+
+    if (! defined $msvasocket or $msvasocket eq '') {
+      $msvasocket = 'http://localhost:8901';
+    }
 
     my $apd = create_apd($context, $peer, $pkctype, $pkcdata);
 
     my $apdjson = to_json($apd);
 
-    # get msva socket from environment
-    my $msvasocket = $ENV{MONKEYSPHERE_VALIDATION_AGENT_SOCKET};
-
     # create the user agent
     my $ua = LWP::UserAgent->new;
 
@@ -73,6 +75,7 @@
        $apdjson,
        );
 
+    msvalog('debug', "Contacting MSVA at %s\n", $requesturl);
     my $response = $ua->request($request);
 
     my $status = $response->status_line;

diff --git a/msva-query-agent b/msva-query-agent
index 8dfd192576f86458cd4007a3c3a25a1e8b80de44..846d27d210f4aaf9596e87b1473df30328826abd 100755 (executable)
--- a/msva-query-agent
+++ b/msva-query-agent
@@ -32,7 +32,7 @@ my $pkcdata = do {
   <STDIN>;
 };
 
-my ($status,$ret) = Crypt::Monkeysphere::MSVA::Client->query_agent($context,$peer,$pkctype, $pkcdata);
+my ($status,$ret) = Crypt::Monkeysphere::MSVA::Client->query_agent($context,$peer,$pkctype, $pkcdata, $ENV{MONKEYSPHERE_VALIDATION_AGENT_SOCKET});
 
 msvalog('info', "status: %s\n", $status);
 msvalog('info', "valid: %s\n", $ret->{valid});