From ddcd754dcff9ebb8bff6e05cab550c6896feddd2 Mon Sep 17 00:00:00 2001
From: Johan Danielsson <joda@pdc.kth.se>
Date: Fri, 24 Sep 1999 12:53:41 +0000
Subject: [PATCH] add a `--cache' flag

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@7019 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 kuser/klist.c | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/kuser/klist.c b/kuser/klist.c
index 58548cdf7..caa81f331 100644
--- a/kuser/klist.c
+++ b/kuser/klist.c
@@ -346,8 +346,11 @@ static int do_test	= 0;
 #ifdef KRB4
 static int do_tokens	= 0;
 #endif
+static char *cred_cache;
 
 static struct getargs args[] = {
+    { "cache",			'c', arg_string, &cred_cache,
+      "credentials cache to list", "cache" },
     { "test",			't', arg_flag, &do_test,
       "test for having tickets", NULL },
 #ifdef KRB4
@@ -405,9 +408,15 @@ main (int argc, char **argv)
     if (ret)
 	krb5_err(context, 1, ret, "krb5_init_context");
 
-    ret = krb5_cc_default (context, &ccache);
-    if (ret)
-	krb5_err (context, 1, ret, "krb5_cc_default");
+    if(cred_cache) {
+	ret = krb5_cc_resolve(context, cred_cache, &ccache);
+	if (ret)
+	    krb5_err (context, 1, ret, "%s", cred_cache);
+    } else {
+	ret = krb5_cc_default (context, &ccache);
+	if (ret)
+	    krb5_err (context, 1, ret, "krb5_cc_resolve");
+    }
 
     ret = krb5_cc_get_principal (context, ccache, &principal);
     if (ret) {