2 * Copyright (c) 1997-2008 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Portions Copyright (c) 2009 Apple Inc. All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
19 * 3. Neither the name of the Institute nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 #include "kuser_locl.h"
38 #include "parse_units.h"
39 #include "kcc-commands.h"
42 printable_time_internal(time_t t, int x)
47 if ((p = ctime(&t)) == NULL)
48 strlcpy(s, "?", sizeof(s));
50 strlcpy(s, p + 4, sizeof(s));
56 printable_time(time_t t)
58 return printable_time_internal(t, 20);
62 printable_time_long(time_t t)
64 return printable_time_internal(t, 20);
67 #define COL_ISSUED NP_(" Issued","")
68 #define COL_EXPIRES NP_(" Expires", "")
69 #define COL_FLAGS NP_("Flags", "")
70 #define COL_NAME NP_(" Name", "")
71 #define COL_PRINCIPAL NP_(" Principal", "in klist output")
72 #define COL_PRINCIPAL_KVNO NP_(" Principal (kvno)", "in klist output")
73 #define COL_CACHENAME NP_(" Cache name", "name in klist output")
74 #define COL_DEFCACHE NP_("", "")
77 print_cred(krb5_context context, krb5_creds *cred, rtbl_t ct, int do_flags)
83 krb5_timeofday (context, &sec);
86 if(cred->times.starttime)
87 rtbl_add_column_entry(ct, COL_ISSUED,
88 printable_time(cred->times.starttime));
90 rtbl_add_column_entry(ct, COL_ISSUED,
91 printable_time(cred->times.authtime));
93 if(cred->times.endtime > sec)
94 rtbl_add_column_entry(ct, COL_EXPIRES,
95 printable_time(cred->times.endtime));
97 rtbl_add_column_entry(ct, COL_EXPIRES, N_(">>>Expired<<<", ""));
98 ret = krb5_unparse_name (context, cred->server, &str);
100 krb5_err(context, 1, ret, "krb5_unparse_name");
101 rtbl_add_column_entry(ct, COL_PRINCIPAL, str);
104 if(cred->flags.b.forwardable)
106 if(cred->flags.b.forwarded)
108 if(cred->flags.b.proxiable)
110 if(cred->flags.b.proxy)
112 if(cred->flags.b.may_postdate)
114 if(cred->flags.b.postdated)
116 if(cred->flags.b.renewable)
118 if(cred->flags.b.initial)
120 if(cred->flags.b.invalid)
122 if(cred->flags.b.pre_authent)
124 if(cred->flags.b.hw_authent)
127 rtbl_add_column_entry(ct, COL_FLAGS, s);
133 print_cred_verbose(krb5_context context, krb5_creds *cred)
140 krb5_timeofday (context, &sec);
142 ret = krb5_unparse_name(context, cred->server, &str);
145 printf(N_("Server: %s\n", ""), str);
148 ret = krb5_unparse_name(context, cred->client, &str);
151 printf(N_("Client: %s\n", ""), str);
159 decode_Ticket(cred->ticket.data, cred->ticket.length, &t, &len);
160 ret = krb5_enctype_to_string(context, t.enc_part.etype, &s);
161 printf(N_("Ticket etype: ", ""));
166 printf(N_("unknown-enctype(%d)", ""), t.enc_part.etype);
169 printf(N_(", kvno %d", ""), *t.enc_part.kvno);
171 if(cred->session.keytype != t.enc_part.etype) {
172 ret = krb5_enctype_to_string(context, cred->session.keytype, &str);
174 krb5_warn(context, ret, "session keytype");
176 printf(N_("Session key: %s\n", "enctype"), str);
181 printf(N_("Ticket length: %lu\n", ""),
182 (unsigned long)cred->ticket.length);
184 printf(N_("Auth time: %s\n", ""),
185 printable_time_long(cred->times.authtime));
186 if(cred->times.authtime != cred->times.starttime)
187 printf(N_("Start time: %s\n", ""),
188 printable_time_long(cred->times.starttime));
189 printf(N_("End time: %s", ""),
190 printable_time_long(cred->times.endtime));
191 if(sec > cred->times.endtime)
192 printf(N_(" (expired)", ""));
194 if(cred->flags.b.renewable)
195 printf(N_("Renew till: %s\n", ""),
196 printable_time_long(cred->times.renew_till));
199 unparse_flags(TicketFlags2int(cred->flags.b),
200 asn1_TicketFlags_units(),
201 flags, sizeof(flags));
202 printf(N_("Ticket flags: %s\n", ""), flags);
204 printf(N_("Addresses: ", ""));
205 if (cred->addresses.len != 0) {
206 for(j = 0; j < cred->addresses.len; j++){
210 ret = krb5_print_address(&cred->addresses.val[j],
211 buf, sizeof(buf), &len);
217 printf(N_("addressless", ""));
223 * Print all tickets in `ccache' on stdout, verbosily iff do_verbose.
227 print_tickets (krb5_context context,
229 krb5_principal principal,
236 krb5_cc_cursor cursor;
242 ret = krb5_unparse_name (context, principal, &str);
244 krb5_err (context, 1, ret, "krb5_unparse_name");
246 printf ("%17s: %s:%s\n",
247 N_("Credentials cache", ""),
248 krb5_cc_get_type(context, ccache),
249 krb5_cc_get_name(context, ccache));
250 printf ("%17s: %s\n", N_("Principal", ""), str);
252 ret = krb5_cc_get_friendly_name(context, ccache, &name);
254 if (strcmp(name, str) != 0)
255 printf ("%17s: %s\n", N_("Friendly name", ""), name);
261 printf ("%17s: %d\n", N_("Cache version", ""),
262 krb5_cc_get_version(context, ccache));
264 krb5_cc_set_flags(context, ccache, KRB5_TC_NOTICKET);
267 ret = krb5_cc_get_kdc_offset(context, ccache, &sec);
269 if (ret == 0 && do_verbose && sec != 0) {
281 unparse_time (val, buf, sizeof(buf));
283 printf ("%17s: %s%s\n", N_("KDC time offset", ""),
284 sig == -1 ? "-" : "", buf);
289 ret = krb5_cc_start_seq_get (context, ccache, &cursor);
291 krb5_err(context, 1, ret, "krb5_cc_start_seq_get");
295 rtbl_add_column(ct, COL_ISSUED, 0);
296 rtbl_add_column(ct, COL_EXPIRES, 0);
298 rtbl_add_column(ct, COL_FLAGS, 0);
299 rtbl_add_column(ct, COL_PRINCIPAL, 0);
300 rtbl_set_separator(ct, " ");
302 while ((ret = krb5_cc_next_cred (context,
306 if (!do_hidden && krb5_is_config_principal(context, creds.server)) {
308 }else if(do_verbose){
309 print_cred_verbose(context, &creds);
311 print_cred(context, &creds, ct, do_flags);
313 krb5_free_cred_contents (context, &creds);
315 if(ret != KRB5_CC_END)
316 krb5_err(context, 1, ret, "krb5_cc_get_next");
317 ret = krb5_cc_end_seq_get (context, ccache, &cursor);
319 krb5_err (context, 1, ret, "krb5_cc_end_seq_get");
321 rtbl_format(ct, stdout);
327 * Check if there's a tgt for the realm of `principal' and ccache and
328 * if so return 0, else 1
332 check_for_tgt (krb5_context context,
334 krb5_principal principal,
340 krb5_const_realm client_realm;
343 krb5_cc_clear_mcred(&pattern);
345 client_realm = krb5_principal_get_realm(context, principal);
347 ret = krb5_make_principal (context, &pattern.server,
348 client_realm, KRB5_TGS_NAME, client_realm, NULL);
350 krb5_err (context, 1, ret, "krb5_make_principal");
351 pattern.client = principal;
353 ret = krb5_cc_retrieve_cred (context, ccache, 0, &pattern, &creds);
354 krb5_free_principal (context, pattern.server);
356 if (ret == KRB5_CC_END)
358 krb5_err (context, 1, ret, "krb5_cc_retrieve_cred");
361 expired = time(NULL) > creds.times.endtime;
364 *expiration = creds.times.endtime;
366 krb5_free_cred_contents (context, &creds);
372 * Print a list of all AFS tokens
378 display_tokens(int do_verbose)
381 unsigned char t[4096];
382 struct ViceIoctl parms;
384 parms.in = (void *)&i;
385 parms.in_size = sizeof(i);
386 parms.out = (void *)t;
387 parms.out_size = sizeof(t);
390 int32_t size_secret_tok, size_public_tok;
392 struct ClearToken ct;
393 unsigned char *r = t;
395 char buf1[20], buf2[20];
397 if(k_pioctl(NULL, VIOCGETTOK, &parms, 0) < 0) {
402 if(parms.out_size > sizeof(t))
404 if(parms.out_size < sizeof(size_secret_tok))
406 t[min(parms.out_size,sizeof(t)-1)] = 0;
407 memcpy(&size_secret_tok, r, sizeof(size_secret_tok));
408 /* dont bother about the secret token */
409 r += size_secret_tok + sizeof(size_secret_tok);
410 if (parms.out_size < (r - t) + sizeof(size_public_tok))
412 memcpy(&size_public_tok, r, sizeof(size_public_tok));
413 r += sizeof(size_public_tok);
414 if (parms.out_size < (r - t) + size_public_tok + sizeof(int32_t))
416 memcpy(&ct, r, size_public_tok);
417 r += size_public_tok;
418 /* there is a int32_t with length of cellname, but we dont read it */
419 r += sizeof(int32_t);
422 gettimeofday (&tv, NULL);
423 strlcpy (buf1, printable_time(ct.BeginTimestamp),
425 if (do_verbose || tv.tv_sec < ct.EndTimestamp)
426 strlcpy (buf2, printable_time(ct.EndTimestamp),
429 strlcpy (buf2, N_(">>> Expired <<<", ""), sizeof(buf2));
431 printf("%s %s ", buf1, buf2);
433 if ((ct.EndTimestamp - ct.BeginTimestamp) & 1)
434 printf(N_("User's (AFS ID %d) tokens for %s", ""), ct.ViceId, cell);
436 printf(N_("Tokens for %s", ""), cell);
438 printf(" (%d)", ct.AuthHandle);
445 * display the ccache in `cred_cache'
449 display_v5_ccache (krb5_context context, krb5_ccache ccache,
450 int do_test, int do_verbose,
451 int do_flags, int do_hidden)
454 krb5_principal principal;
458 ret = krb5_cc_get_principal (context, ccache, &principal);
462 krb5_warnx(context, N_("No ticket file: %s", ""),
463 krb5_cc_get_name(context, ccache));
466 krb5_err (context, 1, ret, "krb5_cc_get_principal");
469 exit_status = check_for_tgt (context, ccache, principal, NULL);
471 print_tickets (context, ccache, principal, do_verbose,
472 do_flags, do_hidden);
474 ret = krb5_cc_close (context, ccache);
476 krb5_err (context, 1, ret, "krb5_cc_close");
478 krb5_free_principal (context, principal);
488 list_caches(krb5_context context)
490 krb5_cc_cache_cursor cursor;
491 const char *cdef_name;
497 cdef_name = krb5_cc_default_name(context);
498 if (cdef_name == NULL)
499 krb5_errx(context, 1, "krb5_cc_default_name");
500 def_name = strdup(cdef_name);
502 ret = krb5_cc_cache_get_first (context, NULL, &cursor);
503 if (ret == KRB5_CC_NOSUPP)
506 krb5_err (context, 1, ret, "krb5_cc_cache_get_first");
509 rtbl_add_column(ct, COL_NAME, 0);
510 rtbl_add_column(ct, COL_CACHENAME, 0);
511 rtbl_add_column(ct, COL_EXPIRES, 0);
512 rtbl_add_column(ct, COL_DEFCACHE, 0);
513 rtbl_set_prefix(ct, " ");
514 rtbl_set_column_prefix(ct, COL_NAME, "");
516 while (krb5_cc_cache_next (context, cursor, &id) == 0) {
517 krb5_principal principal = NULL;
522 ret = krb5_cc_get_principal(context, id, &principal);
526 expired = check_for_tgt (context, id, principal, &t);
528 ret = krb5_cc_get_friendly_name(context, id, &name);
532 rtbl_add_column_entry(ct, COL_NAME, name);
533 rtbl_add_column_entry(ct, COL_CACHENAME,
534 krb5_cc_get_name(context, id));
536 str = N_(">>> Expired <<<", "");
538 str = printable_time(t);
539 rtbl_add_column_entry(ct, COL_EXPIRES, str);
542 ret = krb5_cc_get_full_name(context, id, &fname);
544 krb5_err (context, 1, ret, "krb5_cc_get_full_name");
546 if (strcmp(fname, def_name) == 0)
547 rtbl_add_column_entry(ct, COL_DEFCACHE, "*");
549 rtbl_add_column_entry(ct, COL_DEFCACHE, "");
553 krb5_cc_close(context, id);
555 krb5_free_principal(context, principal);
558 krb5_cc_cache_end_seq_get(context, cursor);
561 rtbl_format(ct, stdout);
572 klist(struct klist_options *opt, int argc, char **argv)
585 if (opt->list_all_flag) {
586 exit_status = list_caches(kcc_context);
593 if (opt->all_content_flag) {
594 krb5_cc_cache_cursor cursor;
596 ret = krb5_cc_cache_get_first(kcc_context, NULL, &cursor);
598 krb5_err(kcc_context, 1, ret, "krb5_cc_cache_get_first");
601 while (krb5_cc_cache_next(kcc_context, cursor, &id) == 0) {
602 exit_status |= display_v5_ccache(kcc_context, id, do_test,
603 do_verbose, opt->flags_flag,
607 krb5_cc_cache_end_seq_get(kcc_context, cursor);
610 if(opt->cache_string) {
611 ret = krb5_cc_resolve(kcc_context, opt->cache_string, &id);
613 krb5_err(kcc_context, 1, ret, "%s", opt->cache_string);
615 ret = krb5_cc_default(kcc_context, &id);
617 krb5_err(kcc_context, 1, ret, "krb5_cc_resolve");
619 exit_status = display_v5_ccache(kcc_context, id, do_test,
620 do_verbose, opt->flags_flag,
627 if (opt->tokens_flag && k_hasafs()) {
630 display_tokens(opt->verbose_flag);