From 9d5ee8d947433edd542ed441136d19e4f4033af4 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Wed, 19 Sep 2007 22:43:15 +0000
Subject: Implement unchanging support in the keytab object backend, which
 retrieves keytabs via remctl from the KDC.

---
 perl/t/data/keytab-fake | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 perl/t/data/keytab-fake

(limited to 'perl/t/data/keytab-fake')

diff --git a/perl/t/data/keytab-fake b/perl/t/data/keytab-fake
new file mode 100755
index 0000000..df21294
--- /dev/null
+++ b/perl/t/data/keytab-fake
@@ -0,0 +1,29 @@
+#!/bin/sh
+# $Id$
+#
+# keytab-fake -- Fake keytab-backend implementation.
+#
+# This keytab-fake script is meant to be run by remctld during testing of
+# the keytab object implementation.  It returns a fixed string for
+# wallet/one and returns an error for wallet/two.
+
+set -e
+
+if [ "$1" != "retrieve" ] ; then
+    echo "Invalid command $1" >&2
+    exit 1
+fi
+
+case "$2" in
+wallet/one@*)
+    printf 'Keytab for wallet/one'
+    ;;
+wallet/two@*)
+    echo 'bite me' >&2
+    exit 1
+    ;;
+*)
+    echo "Unknown principal $2" >&2
+    exit 1
+    ;;
+esac
-- 
cgit v1.2.3