From 4b69cee3e0d0b8ce856bd97e43928c8284b8804e Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 28 Dec 2023 15:47:20 -0700
Subject: [PATCH] Add CA to the (sub)commands delegated to the small institute.

---
 README.org | 14 +-------------
 abbey      | 14 +-------------
 2 files changed, 2 insertions(+), 26 deletions(-)

diff --git a/README.org b/README.org
index 4b0b0c0..15398af 100644
--- a/README.org
+++ b/README.org
@@ -3218,19 +3218,7 @@ The script begins with the following prefix and trampolines.
 
 use strict;
 
-if ($ARGV[0] eq "config") {
-  exec "./Institute/inst", @ARGV;
-}
-if ($ARGV[0] eq "new") {
-  exec "./Institute/inst", @ARGV;
-}
-if ($ARGV[0] eq "old") {
-  exec "./Institute/inst", @ARGV;
-}
-if ($ARGV[0] eq "pass") {
-  exec "./Institute/inst", @ARGV;
-}
-if ($ARGV[0] eq "client") {
+if (grep { $_ eq $ARGV[0] } qw(CA config new old pass client)) {
   exec "./Institute/inst", @ARGV;
 }
 #+END_SRC
diff --git a/abbey b/abbey
index db426cc..9f8ec93 100755
--- a/abbey
+++ b/abbey
@@ -4,19 +4,7 @@
 
 use strict;
 
-if ($ARGV[0] eq "config") {
-  exec "./Institute/inst", @ARGV;
-}
-if ($ARGV[0] eq "new") {
-  exec "./Institute/inst", @ARGV;
-}
-if ($ARGV[0] eq "old") {
-  exec "./Institute/inst", @ARGV;
-}
-if ($ARGV[0] eq "pass") {
-  exec "./Institute/inst", @ARGV;
-}
-if ($ARGV[0] eq "client") {
+if (grep { $_ eq $ARGV[0] } qw(CA config new old pass client)) {
   exec "./Institute/inst", @ARGV;
 }
 
-- 
2.25.1