From a385775cf0f1645d393f249c4a3b086c8b1d8a42 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Mon, 17 Sep 2007 16:29:07 +0000
Subject: Add an acl show command to the front end that calls the appropriate
 Wallet::Server method.

---
 server/wallet-backend | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'server')

diff --git a/server/wallet-backend b/server/wallet-backend
index 015c035..8777990 100755
--- a/server/wallet-backend
+++ b/server/wallet-backend
@@ -77,6 +77,14 @@ sub command {
         } elsif ($action eq 'rename') {
             check_args (2, [], @args);
             $server->acl_rename (@args) or die $server->error;
+        } elsif ($action eq 'show') {
+            check_args (1, [], @args);
+            my $output = $server->acl_show (@args);
+            if (defined $output) {
+                print $output;
+            } else {
+                die $server->error;
+            }
         } else {
             die "unknown command acl $action\n";
         }
@@ -234,6 +242,10 @@ accidental lockout, but administrators can remove themselves from the
 C<ADMIN> ACL and can leave only a non-functioning entry on the ACL.  Use
 caution when removing entries from the C<ADMIN> ACL.
 
+=item acl show <id>
+
+Display the name, numeric ID, and entries of the ACL <id>.
+
 =item create <type> <name>
 
 Create a new object of type <type> with name <name>.  With some backends,
-- 
cgit v1.2.3