enable requesting keyserverpolicy in Crypt::Monkeysphere::MSVA::Client

diff --git a/Crypt/Monkeysphere/MSVA/Client.pm b/Crypt/Monkeysphere/MSVA/Client.pm
index ad1cb5db1c631ad51b63e4e88cc0c8d2a285c69e..45ae447cf281c2380e24db677c0a4de8ee6751b0 100644 (file)
--- 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;
   };