Programs invoke themselves via `userv' if necessary.

[distorted-keys] / userv / distorted-keys.in

diff --git a/userv/distorted-keys.in b/userv/distorted-keys.in
index 2f618aa667733316cc2833a58f0c8667ca62bae4..07ecd4ab275c4a661e965cb841028d0f8c46e342 100644 (file)
--- a/userv/distorted-keys.in
+++ b/userv/distorted-keys.in
@@ -14,7 +14,24 @@ if ( glob service cryptop
        require-fd 1-2 write
        ignore-fd 3-
        no-set-environment
-       execute @sbindir@/cryptop
+       execute @bindir@/cryptop
+fi
+
+###--------------------------------------------------------------------------
+### Key administration operations.
+
+if ( glob service keys
+   & glob service-user @user@
+   & ( grep calling-user @pkgconfdir@/admin.users
+     | grep calling-group @pkgconfdir@/admin.groups
+     )
+   )
+       no-suppress-args
+       require-fd 0 read
+       require-fd 1-2 write
+       ignore-fd 3-
+       no-set-environment
+       execute @sbindir@/keys
 fi
 
 ###--------------------------------------------------------------------------