Add CA to the (sub)commands delegated to the small institute.

diff --git a/README.org b/README.org
index 4b0b0c06c07e50139b63af356e6439118cede950..15398aff5d2758a9284a8a5c2a4885580cabcaf0 100644 (file)
--- 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 db426cce35b5b52227be609952b40db48bc21a14..9f8ec93727fdd5acb3aa3c688c36911025a1e78d 100755 (executable)
--- 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;
 }