vici: Update command wrappers in the Perl bindings

Note that load_key() now returns the complete response (to get the key
identifier).

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 5c09b14edf5ce656487309cd8bbebd03455f2e08..27c023e52b3befdaa5573e114b9c70b0f606f43b 100644 (file)
--- 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);