From eefa81120cd8ad06059a74d219882060f249c107 Mon Sep 17 00:00:00 2001
From: Tobias Brunner <tobias@strongswan.org>
Date: Thu, 25 Apr 2019 11:09:20 +0200
Subject: [PATCH] vici: Update command wrappers in the Perl bindings

Note that load_key() now returns the complete response (to get the key
identifier).
---
 .../perl/Vici-Session/lib/Vici/Session.pm     | 39 ++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/src/libcharon/plugins/vici/perl/Vici-Session/lib/Vici/Session.pm b/src/libcharon/plugins/vici/perl/Vici-Session/lib/Vici/Session.pm
index 5c09b14ed..27c023e52 100644
--- a/src/libcharon/plugins/vici/perl/Vici-Session/lib/Vici/Session.pm
+++ b/src/libcharon/plugins/vici/perl/Vici-Session/lib/Vici/Session.pm
@@ -36,6 +36,10 @@ sub terminate {
     return request_vars_res('terminate', @_);
 }
 
+sub rekey {
+    return request_vars_res('rekey', @_);
+}
+
 sub redirect {
     return request_vars_res('redirect', @_);
 }
@@ -89,13 +93,33 @@ sub load_cert {
 }
 
 sub load_key {
-    return request_vars_res('load-key', @_);
+    return request_vars('load-key', @_);
+}
+
+sub unload_key {
+    return request_vars_res('unload-key', @_);
+}
+
+sub get_keys {
+    return request('get-keys', @_);
+}
+
+sub load_token {
+    return request_vars('load-token', @_);
 }
 
 sub load_shared {
     return request_vars_res('load-shared', @_);
 }
 
+sub unload_shared {
+    return request_vars_res('unload-shared', @_);
+}
+
+sub get_shared {
+    return request('get-shared', @_);
+}
+
 sub flush_certs {
     return request_vars_res('flush-certs', @_);
 }
@@ -128,6 +152,14 @@ sub get_algorithms {
     return request('get-algorithms', @_);
 }
 
+sub get_counters {
+    return request_vars('get-counters', @_);
+}
+
+sub reset_counters {
+    return request_vars_res('reset-counters', @_);
+}
+
 # Private functions
 
 sub request {
@@ -135,6 +167,11 @@ sub request {
     return $self->{'Packet'}->request($command);
 }
 
+sub request_vars {
+    my ($command, $self, $vars) = @_;
+    return $self->{'Packet'}->request($command, $vars);
+}
+
 sub request_res {
     my ($command, $self) = @_;
     my $msg = $self->{'Packet'}->request($command);