From 95e63f61e6ec5bdeae43b7c3c1d656d85d326b67 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillaume.rousse@renater.fr>
Date: Tue, 7 Nov 2017 14:16:43 +0100
Subject: [PATCH] allows to delete providers too
---
bin/account-manager.pl.in | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/bin/account-manager.pl.in b/bin/account-manager.pl.in
index a9ef29c..67f7fa5 100755
--- a/bin/account-manager.pl.in
+++ b/bin/account-manager.pl.in
@@ -225,6 +225,12 @@ sub list_providers {
$provider->print();
}
+ if ($options{delete}) {
+ foreach my $provider (@$providers) {
+ $provider->delete() or die "failed to delete authentication token\n";
+ }
+ printf "%d providers removed\n", scalar @$providers;
+ }
}
sub list_tokens {
@@ -351,6 +357,7 @@ S<B<--contact> I<string>>
S<[B<--displayname> I<string>]>
B<account-manager-client.pl> B<list_providers>
+[B<--delete>]
B<account-manager-client.pl> B<list_tokens>
S<B<--sp_entityid> I<string>>
--
GitLab