Implement kpropd -A

The -A option causes kpropd to contact a specified admin server
(normally an intermediate slave running kadmind -proponly) instead of
the master admin server.

Based on code submitted by Richard Basch.

ticket: 7855

1 files changed, 8 insertions, 0 deletions

diff --git a/src/slave/kpropd.c b/src/slave/kpropd.c
index 3573a262b..55ca51159 100644
--- a/src/slave/kpropd.c
+++ b/src/slave/kpropd.c
@@ -174,6 +174,7 @@ usage()
             progname);
     fprintf(stderr, _("\t[-F kerberos_db_file ] [-p kdb5_util_pathname]\n"));
     fprintf(stderr, _("\t[-x db_args]* [-P port] [-a acl_file]\n"));
+    fprintf(stderr, _("\t[-A admin_server]\n"));
     exit(1);
 }
 
@@ -1056,6 +1057,13 @@ parse_args(char **argv)
         word++;
         while (word != NULL && (ch = *word++) != '\0') {
             switch (ch) {
+            case 'A':
+                params.mask |= KADM5_CONFIG_ADMIN_SERVER;
+                params.admin_server = (*word != '\0') ? word : *argv++;
+                if (params.admin_server == NULL)
+                    usage();
+                word = NULL;
+                break;
             case 'f':
                 file = (*word != '\0') ? word : *argv++;
                 if (file == NULL)