[Pkg-privacy-commits] [msva-perl] 268/356: allow passing pkc data to msva-query-agent as argument

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit a0c26721f93149ab528f992920be61f1a8d06c78
Author: Jameson Rollins <jrollins at finestructure.net>
Date:   Sat Dec 25 19:49:59 2010 -0500

    allow passing pkc data to msva-query-agent as argument
    
    This is likely only useful for 'openpgp4fpr' type, but for that it is
    indeed useful.  This will make it considerably easier for calling
    programs that want to use this type (like mail clients).
---
 msva-query-agent | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/msva-query-agent b/msva-query-agent
index 3f58c44..e4e0a68 100755
--- a/msva-query-agent
+++ b/msva-query-agent
@@ -24,17 +24,21 @@ use Crypt::Monkeysphere::MSVA::Client;
 my $context = shift;
 if ($context eq '--help') {
     printf STDERR "Usage: msva-query-agent CONTEXT PEER PKC_TYPE [PEER_TYPE] <PKC_DATA\n";
+    printf STDERR "       msva-query-agent CONTEXT PEER PKC_TYPE PEER_TYPE PKC_DATA\n";
     exit 0;
 }
 my $peer = shift;
 my $pkctype = shift;
 my $peertype = shift;
-
-# load raw pkc data from stdin
-my $pkcdata = do {
-  local $/; # slurp!
-  <STDIN>;
-};
+my $pkcdata = shift;
+
+if (!defined $pkcdata) {
+  # load raw pkc data from stdin
+  $pkcdata = do {
+    local $/; # slurp!
+    <STDIN>;
+  };
+}
 
 my $client = Crypt::Monkeysphere::MSVA::Client->new(
                                                     socket => $ENV{MONKEYSPHERE_VALIDATION_AGENT_SOCKET},
@@ -63,6 +67,8 @@ msva-query-agent - query a Monkeysphere Validation Agent
 
 msva-query-agent CONTEXT PEER PKC_TYPE [PEER_TYPE] < /path/to/public_key_carrier
 
+msva-query-agent CONTEXT PEER PKC_TYPE PEER_TYPE PKC_DATA
+
 =head1 ABSTRACT
 
 msva-query-agent validates certificates for a given use by querying a
@@ -94,7 +100,7 @@ service, supply the host's full DNS name (e.g.  'foo.example.net')
 =item PKC_TYPE
 
 The format of public key carrier data provided on standard input
-(e.g. 'x509der', 'x509pem', 'opensshpubkey', 'rfc4716')
+(e.g. 'x509der', 'x509pem', 'opensshpubkey', 'rfc4716', 'openpgp4fpr')
 
 =back
 
@@ -106,6 +112,10 @@ The fourth argument is optional:
 
 The type of peer we are inquiring about (e.g. 'client', 'server')
 
+If 5 arguments are given, the 5th argument is interpreted to be the
+PKC_DATA itself.  This is likely only useful for supplying an OpenPGP
+fingerprint with the 'openpgp4fpr' type.
+
 =back
 
 =head1 RETURN CODE

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git