[Pkg-privacy-commits] [msva-perl] 224/356: enable requesting keyserverpolicy in Crypt::Monkeysphere::MSVA::Client

[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 4b7b7f97702764b5ef6de55592492579ed9f75f4
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Mon Dec 6 00:36:42 2010 -0500

    enable requesting keyserverpolicy in Crypt::Monkeysphere::MSVA::Client
---
 Crypt/Monkeysphere/MSVA/Client.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Crypt/Monkeysphere/MSVA/Client.pm b/Crypt/Monkeysphere/MSVA/Client.pm
index ad1cb5d..45ae447 100644
--- a/Crypt/Monkeysphere/MSVA/Client.pm
+++ b/Crypt/Monkeysphere/MSVA/Client.pm
@@ -43,8 +43,9 @@
     my $peertype = shift;
     my $pkctype = shift;
     my $pkcdata = shift;
+    my $keyserverpolicy = shift;
 
-    my $apd = $self->create_apd($context, $peer, $peertype, $pkctype, $pkcdata);
+    my $apd = $self->create_apd($context, $peer, $peertype, $pkctype, $pkcdata, $keyserverpolicy);
 
     my $apdjson = to_json($apd);
 
@@ -83,6 +84,7 @@
     my $peertype = shift;
     my $pkctype = shift;
     my $pkcdata = shift;
+    my $keyserverpolicy = shift;
 
     $self->log('debug', "context: %s\n", $context);
     $self->log('debug', "peer: %s\n", $peer);
@@ -129,6 +131,8 @@
               };
     $ret->{peer}->{type} = $peertype
       if (defined $peertype);
+    $ret->{keyserverpolicy} = $keyserverpolicy
+      if (defined $keyserverpolicy);
 
     return $ret;
   };

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