From 1575e25c9e9edc8d577a0f1118732c98871984e0 Mon Sep 17 00:00:00 2001
From: Jon Robertson <jonrober@stanford.edu>
Date: Tue, 17 Feb 2015 14:32:59 -0800
Subject: Added reports to list all types and acl schemes

Two new reports, 'types' and 'schemes'.  These will print out all
configured types and acl schemes.

Change-Id: Ib06d37755fe80c168a6f723c9a1e683fdf5dfcde
---
 server/wallet-report | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'server')

diff --git a/server/wallet-report b/server/wallet-report
index bc499d4..6d1436c 100755
--- a/server/wallet-report
+++ b/server/wallet-report
@@ -29,6 +29,8 @@ Wallet reporting help:
   objects unused                Objects that have never been gotten
   objects unstored              Objects that have never been stored
   owners <type> <name>          All ACL entries owning matching objects
+  schemes                       All configured ACL schemes
+  types                         All configured wallet types
 EOH
 
 ##############################################################################
@@ -98,6 +100,20 @@ sub command {
         for my $entry (@entries) {
             print join (' ', @$entry), "\n";
         }
+    } elsif ($command eq 'schemes') {
+        die "too many arguments to schemes\n" if @args > 0;
+        my @schemes = $report->acl_schemes;
+        for my $entry (@schemes) {
+            print join (' ', @$entry), "\n";
+        }
+
+    } elsif ($command eq 'types') {
+        die "too many arguments to types\n" if @args > 0;
+        my @types = $report->types;
+        for my $entry (@types) {
+            print join (' ', @$entry), "\n";
+        }
+
     } else {
         die "unknown command $command\n";
     }
-- 
cgit v1.2.3