Add a krb5-regex ACL type

Add the krb5-regex ACL type and corresponding Wallet::ACL::Krb5::Regex
module.  This ACL is identical to krb5 except that it takes a regular
expression matching principals instead of a string that must match
exactly.

1 files changed, 2 insertions, 2 deletions

diff --git a/server/wallet-backend b/server/wallet-backend
index 0a611db..52e9857 100755
--- a/server/wallet-backend
+++ b/server/wallet-backend
@@ -147,7 +147,7 @@ sub command {
     if ($command eq 'acl') {
         my $action = shift @args;
         if ($action eq 'add') {
-            check_args (3, 3, [], @args);
+            check_args (3, 3, [3], @args);
             $server->acl_add (@args) or failure ($server->error, @_);
         } elsif ($action eq 'create') {
             check_args (1, 1, [], @args);
@@ -164,7 +164,7 @@ sub command {
                 failure ($server->error, @_);
             }
         } elsif ($action eq 'remove') {
-            check_args (3, 3, [], @args);
+            check_args (3, 3, [3], @args);
             $server->acl_remove (@args) or failure ($server->error, @_);
         } elsif ($action eq 'rename') {
             check_args (2, 2, [], @args);