2 * Copyright (c) 1997-2007 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"
39 #include <Security/Security.h>
46 int forwardable_flag
= -1;
47 int proxiable_flag
= -1;
48 int renewable_flag
= -1;
51 int validate_flag
= 0;
55 struct getarg_strings extra_addresses
;
56 int anonymous_flag
= 0;
57 char *lifetime
= NULL
;
58 char *renew_life
= NULL
;
59 char *server_str
= NULL
;
60 char *cred_cache
= NULL
;
61 char *start_str
= NULL
;
62 static int switch_cache_flags
= 1;
63 struct getarg_strings etype_str
;
65 char *keytab_str
= NULL
;
66 static krb5_keytab kt
= NULL
;
69 char *password_file
= NULL
;
70 char *pk_user_id
= NULL
;
71 int pk_enterprise_flag
= 0;
72 struct hx509_certs_data
*ent_user_id
= NULL
;
73 char *pk_x509_anchors
= NULL
;
74 int pk_use_enckey
= 0;
75 static int canonicalize_flag
= 0;
76 static int enterprise_flag
= 0;
77 static int ok_as_delegate_flag
= 0;
78 static char *fast_armor_cache_string
= NULL
;
79 static int use_referrals_flag
= 0;
80 static int windows_flag
= 0;
82 static char *ntlm_domain
;
86 static struct getargs args
[] = {
100 { "afslog", 0 , arg_flag
, &do_afslog
,
101 NP_("obtain afs tokens", ""), NULL
},
103 { "cache", 'c', arg_string
, &cred_cache
,
104 NP_("credentials cache", ""), "cachename" },
106 { "forwardable", 'F', arg_negative_flag
, &forwardable_flag
,
107 NP_("get tickets not forwardable", ""), NULL
},
109 { NULL
, 'f', arg_flag
, &forwardable_flag
,
110 NP_("get forwardable tickets", ""), NULL
},
112 { "keytab", 't', arg_string
, &keytab_str
,
113 NP_("keytab to use", ""), "keytabname" },
115 { "lifetime", 'l', arg_string
, &lifetime
,
116 NP_("lifetime of tickets", ""), "time" },
118 { "proxiable", 'p', arg_flag
, &proxiable_flag
,
119 NP_("get proxiable tickets", ""), NULL
},
121 { "renew", 'R', arg_flag
, &renew_flag
,
122 NP_("renew TGT", ""), NULL
},
124 { "renewable", 0, arg_flag
, &renewable_flag
,
125 NP_("get renewable tickets", ""), NULL
},
127 { "renewable-life", 'r', arg_string
, &renew_life
,
128 NP_("renewable lifetime of tickets", ""), "time" },
130 { "server", 'S', arg_string
, &server_str
,
131 NP_("server to get ticket for", ""), "principal" },
133 { "start-time", 's', arg_string
, &start_str
,
134 NP_("when ticket gets valid", ""), "time" },
136 { "use-keytab", 'k', arg_flag
, &use_keytab
,
137 NP_("get key from keytab", ""), NULL
},
139 { "validate", 'v', arg_flag
, &validate_flag
,
140 NP_("validate TGT", ""), NULL
},
142 { "enctypes", 'e', arg_strings
, &etype_str
,
143 NP_("encryption types to use", ""), "enctypes" },
145 { "fcache-version", 0, arg_integer
, &fcache_version
,
146 NP_("file cache version to create", ""), NULL
},
148 { "addresses", 'A', arg_negative_flag
, &addrs_flag
,
149 NP_("request a ticket with no addresses", ""), NULL
},
151 { "extra-addresses",'a', arg_strings
, &extra_addresses
,
152 NP_("include these extra addresses", ""), "addresses" },
154 { "anonymous", 0, arg_flag
, &anonymous_flag
,
155 NP_("request an anonymous ticket", ""), NULL
},
157 { "request-pac", 0, arg_flag
, &pac_flag
,
158 NP_("request a Windows PAC", ""), NULL
},
160 { "password-file", 0, arg_string
, &password_file
,
161 NP_("read the password from a file", ""), NULL
},
163 { "canonicalize",0, arg_flag
, &canonicalize_flag
,
164 NP_("canonicalize client principal", ""), NULL
},
166 { "enterprise",0, arg_flag
, &enterprise_flag
,
167 NP_("parse principal as a KRB5-NT-ENTERPRISE name", ""), NULL
},
169 { "pk-enterprise", 0, arg_flag
, &pk_enterprise_flag
,
170 NP_("use enterprise name from certificate", ""), NULL
},
172 { "pk-user", 'C', arg_string
, &pk_user_id
,
173 NP_("principal's public/private/certificate identifier", ""), "id" },
175 { "x509-anchors", 'D', arg_string
, &pk_x509_anchors
,
176 NP_("directory with CA certificates", ""), "directory" },
178 { "pk-use-enckey", 0, arg_flag
, &pk_use_enckey
,
179 NP_("Use RSA encrypted reply (instead of DH)", ""), NULL
},
182 { "ntlm-domain", 0, arg_string
, &ntlm_domain
,
183 NP_("NTLM domain", ""), "domain" },
186 { "change-default", 0, arg_negative_flag
, &switch_cache_flags
,
187 NP_("switch the default cache to the new credentials cache", ""), NULL
},
189 { "ok-as-delegate", 0, arg_flag
, &ok_as_delegate_flag
,
190 NP_("honor ok-as-delegate on tickets", ""), NULL
},
192 { "fast-armor-cache", 0, arg_string
, &fast_armor_cache_string
,
193 NP_("use this credential cache as FAST armor cache", ""), "cache" },
195 { "use-referrals", 0, arg_flag
, &use_referrals_flag
,
196 NP_("only use referrals, no dns canalisation", ""), NULL
},
198 { "windows", 0, arg_flag
, &windows_flag
,
199 NP_("get windows behavior", ""), NULL
},
201 { "version", 0, arg_flag
, &version_flag
, NULL
, NULL
},
202 { "help", 0, arg_flag
, &help_flag
, NULL
, NULL
}
208 arg_printusage_i18n(args
, sizeof(args
)/sizeof(*args
), N_("Usage: ", ""),
209 NULL
, "[principal [command]]", getarg_i18n
);
213 static krb5_error_code
214 get_server(krb5_context context
,
215 krb5_principal client
,
217 krb5_principal
*princ
)
219 krb5_const_realm realm
;
221 return krb5_parse_name(context
, server
, princ
);
223 realm
= krb5_principal_get_realm(context
, client
);
224 return krb5_make_principal(context
, princ
, realm
,
225 KRB5_TGS_NAME
, realm
, NULL
);
229 renew_validate(krb5_context context
,
237 krb5_creds in
, *out
= NULL
;
238 krb5_kdc_flags flags
;
240 memset(&in
, 0, sizeof(in
));
242 ret
= krb5_cc_get_principal(context
, cache
, &in
.client
);
244 krb5_warn(context
, ret
, "krb5_cc_get_principal");
247 ret
= get_server(context
, in
.client
, server
, &in
.server
);
249 krb5_warn(context
, ret
, "get_server");
255 * no need to check the error here, it's only to be
256 * friendly to the user
258 krb5_get_credentials(context
, KRB5_GC_CACHED
, cache
, &in
, &out
);
262 flags
.b
.renewable
= flags
.b
.renew
= renew
;
263 flags
.b
.validate
= validate
;
265 if (forwardable_flag
!= -1)
266 flags
.b
.forwardable
= forwardable_flag
;
268 flags
.b
.forwardable
= out
->flags
.b
.forwardable
;
270 if (proxiable_flag
!= -1)
271 flags
.b
.proxiable
= proxiable_flag
;
273 flags
.b
.proxiable
= out
->flags
.b
.proxiable
;
276 flags
.b
.request_anonymous
= anonymous_flag
;
278 in
.times
.endtime
= time(NULL
) + life
;
281 krb5_free_creds(context
, out
);
286 ret
= krb5_get_kdc_cred(context
,
294 krb5_warn(context
, ret
, "krb5_get_kdc_cred");
297 ret
= krb5_cc_initialize(context
, cache
, in
.client
);
299 krb5_free_creds(context
, out
);
300 krb5_warn(context
, ret
, "krb5_cc_initialize");
303 ret
= krb5_cc_store_cred(context
, cache
, out
);
305 if (ret
== 0 && server
== NULL
) {
306 /* only do this if it's a general renew-my-tgt request */
308 if (do_afslog
&& k_hasafs())
309 krb5_afslog(context
, cache
, NULL
, NULL
);
313 krb5_free_creds(context
, out
);
315 krb5_warn(context
, ret
, "krb5_cc_store_cred");
319 krb5_free_cred_contents(context
, &in
);
325 static krb5_error_code
326 store_ntlmkey(krb5_context context
, krb5_ccache id
,
327 const char *domain
, struct ntlm_buf
*buf
)
334 aret
= asprintf(&name
, "ntlm-key-%s", domain
);
335 if (aret
== -1 || name
== NULL
) {
336 krb5_clear_error_message(context
);
340 data
.length
= buf
->length
;
341 data
.data
= buf
->data
;
343 ret
= krb5_cc_set_config(context
, id
, NULL
, name
, &data
);
349 static krb5_error_code
350 get_new_tickets(krb5_context context
,
351 krb5_principal principal
,
353 krb5_deltat ticket_life
,
357 krb5_get_init_creds_opt
*opt
;
360 krb5_deltat start_time
= 0;
361 krb5_deltat renew
= 0;
362 const char *renewstr
= NULL
;
363 krb5_enctype
*enctype
= NULL
;
364 krb5_ccache tempccache
;
365 krb5_init_creds_context ctx
;
367 struct ntlm_buf ntlmkey
;
368 memset(&ntlmkey
, 0, sizeof(ntlmkey
));
375 if (strcasecmp("STDIN", password_file
) == 0)
378 f
= fopen(password_file
, "r");
380 krb5_errx(context
, 1, "Failed to open the password file %s",
383 if (fgets(passwd
, sizeof(passwd
), f
) == NULL
)
384 krb5_errx(context
, 1,
385 N_("Failed to read password from file %s", ""),
389 passwd
[strcspn(passwd
, "\n")] = '\0';
393 if (passwd
[0] == '\0') {
400 realm
= krb5_principal_get_realm(context
, principal
);
402 ret
= krb5_unparse_name_flags(context
, principal
,
403 KRB5_PRINCIPAL_UNPARSE_NO_REALM
, &name
);
407 osret
= SecKeychainFindGenericPassword(NULL
, strlen(realm
), realm
,
409 &length
, &buffer
, NULL
);
411 if (osret
== noErr
&& length
< sizeof(passwd
) - 1) {
412 memcpy(passwd
, buffer
, length
);
413 passwd
[length
] = '\0';
420 memset(&cred
, 0, sizeof(cred
));
422 ret
= krb5_get_init_creds_opt_alloc(context
, &opt
);
424 krb5_err(context
, 1, ret
, "krb5_get_init_creds_opt_alloc");
426 krb5_get_init_creds_opt_set_default_flags(context
, "kinit",
427 krb5_principal_get_realm(context
, principal
), opt
);
429 if (forwardable_flag
!= -1)
430 krb5_get_init_creds_opt_set_forwardable(opt
, forwardable_flag
);
431 if (proxiable_flag
!= -1)
432 krb5_get_init_creds_opt_set_proxiable(opt
, proxiable_flag
);
434 krb5_get_init_creds_opt_set_anonymous(opt
, anonymous_flag
);
436 krb5_get_init_creds_opt_set_pac_request(context
, opt
,
437 pac_flag
? TRUE
: FALSE
);
438 if (canonicalize_flag
)
439 krb5_get_init_creds_opt_set_canonicalize(context
, opt
, TRUE
);
440 if (pk_enterprise_flag
|| enterprise_flag
|| canonicalize_flag
|| windows_flag
)
441 krb5_get_init_creds_opt_set_win2k(context
, opt
, TRUE
);
442 if (pk_user_id
|| ent_user_id
|| anonymous_flag
) {
443 ret
= krb5_get_init_creds_opt_set_pkinit(context
, opt
,
449 pk_use_enckey
? 2 : 0 |
450 anonymous_flag
? 4 : 0,
455 krb5_err(context
, 1, ret
, "krb5_get_init_creds_opt_set_pkinit");
457 krb5_get_init_creds_opt_set_pkinit_user_certs(context
, opt
, ent_user_id
);
460 if (addrs_flag
!= -1)
461 krb5_get_init_creds_opt_set_addressless(context
, opt
,
462 addrs_flag
? FALSE
: TRUE
);
464 if (renew_life
== NULL
&& renewable_flag
)
465 renewstr
= "1 month";
467 renewstr
= renew_life
;
469 renew
= parse_time(renewstr
, "s");
471 errx(1, "unparsable time: %s", renewstr
);
473 krb5_get_init_creds_opt_set_renew_life(opt
, renew
);
476 if (ticket_life
!= 0)
477 krb5_get_init_creds_opt_set_tkt_life(opt
, ticket_life
);
480 int tmp
= parse_time(start_str
, "s");
482 errx(1, N_("unparsable time: %s", ""), start_str
);
487 if (etype_str
.num_strings
) {
490 enctype
= malloc(etype_str
.num_strings
* sizeof(*enctype
));
492 errx(1, "out of memory");
493 for(i
= 0; i
< etype_str
.num_strings
; i
++) {
494 ret
= krb5_string_to_enctype(context
,
495 etype_str
.strings
[i
],
498 errx(1, "unrecognized enctype: %s", etype_str
.strings
[i
]);
500 krb5_get_init_creds_opt_set_etype_list(opt
, enctype
,
501 etype_str
.num_strings
);
504 ret
= krb5_init_creds_init(context
, principal
, krb5_prompter_posix
, NULL
, start_time
, opt
, &ctx
);
506 krb5_err(context
, 1, ret
, "krb5_init_creds_init");
509 ret
= krb5_init_creds_set_service(context
, ctx
, server_str
);
511 krb5_err(context
, 1, ret
, "krb5_init_creds_set_service");
514 if (fast_armor_cache_string
) {
517 ret
= krb5_cc_resolve(context
, fast_armor_cache_string
, &fastid
);
519 krb5_err(context
, 1, ret
, "krb5_cc_resolve(FAST cache)");
521 ret
= krb5_init_creds_set_fast_ccache(context
, ctx
, fastid
);
523 krb5_err(context
, 1, ret
, "krb5_init_creds_set_fast_ccache");
526 if (use_keytab
|| keytab_str
) {
527 ret
= krb5_init_creds_set_keytab(context
, ctx
, kt
);
529 krb5_err(context
, 1, ret
, "krb5_init_creds_set_keytab");
530 } else if (pk_user_id
|| ent_user_id
|| anonymous_flag
) {
532 } else if (!interactive
) {
533 static int already_warned
= 0;
536 krb5_warnx(context
, "Not interactive, failed to get "
538 krb5_get_init_creds_opt_free(context
, opt
);
543 if (passwd
[0] == '\0') {
547 ret
= krb5_unparse_name(context
, principal
, &p
);
549 aret
= asprintf(&prompt
, N_("%s's Password: ", ""), p
);
552 if (ret
|| aret
== -1)
553 errx(1, "failed to generate passwd prompt: not enough memory");
555 if (UI_UTIL_read_pw_string(passwd
, sizeof(passwd
)-1, prompt
, 0)){
556 memset(passwd
, 0, sizeof(passwd
));
557 errx(1, "failed to read password");
563 ret
= krb5_init_creds_set_password(context
, ctx
, passwd
);
565 krb5_err(context
, 1, ret
, "krb5_init_creds_set_password");
569 ret
= krb5_init_creds_get(context
, ctx
);
572 if (ntlm_domain
&& passwd
[0])
573 heim_ntlm_nt_key(passwd
, &ntlmkey
);
575 memset(passwd
, 0, sizeof(passwd
));
580 case KRB5_LIBOS_PWDINTR
: /* don't print anything if it was just C-c:ed */
582 case KRB5KRB_AP_ERR_BAD_INTEGRITY
:
583 case KRB5KRB_AP_ERR_MODIFIED
:
584 case KRB5KDC_ERR_PREAUTH_FAILED
:
585 case KRB5_GET_IN_TKT_LOOP
:
586 krb5_errx(context
, 1, N_("Password incorrect", ""));
588 case KRB5KRB_AP_ERR_V4_REPLY
:
589 krb5_errx(context
, 1, N_("Looks like a Kerberos 4 reply", ""));
592 krb5_err(context
, 1, ret
, "krb5_get_init_creds");
595 krb5_process_last_request(context
, opt
, ctx
);
597 ret
= krb5_init_creds_get_creds(context
, ctx
, &cred
);
599 krb5_err(context
, 1, ret
, "krb5_init_creds_get_creds");
601 if (ticket_life
!= 0) {
602 if (abs(cred
.times
.endtime
- cred
.times
.starttime
- ticket_life
) > 30) {
604 unparse_time_approx(cred
.times
.endtime
- cred
.times
.starttime
,
606 krb5_warnx(context
, N_("NOTICE: ticket lifetime is %s", ""), life
);
610 if (abs(cred
.times
.renew_till
- cred
.times
.starttime
- renew
) > 30) {
612 unparse_time_approx(cred
.times
.renew_till
- cred
.times
.starttime
,
615 N_("NOTICE: ticket renewable lifetime is %s", ""),
620 ret
= krb5_cc_new_unique(context
, krb5_cc_get_type(context
, ccache
),
623 krb5_err(context
, 1, ret
, "krb5_cc_new_unique");
625 ret
= krb5_init_creds_store(context
, ctx
, tempccache
);
627 krb5_err(context
, 1, ret
, "krb5_init_creds_store");
629 krb5_init_creds_free(context
, ctx
);
631 ret
= krb5_cc_move(context
, tempccache
, ccache
);
633 krb5_err(context
, 1, ret
, "krb5_cc_move");
635 if (switch_cache_flags
)
636 krb5_cc_switch(context
, ccache
);
639 if (ntlm_domain
&& ntlmkey
.data
)
640 store_ntlmkey(context
, ccache
, ntlm_domain
, &ntlmkey
);
643 if (ok_as_delegate_flag
|| windows_flag
|| use_referrals_flag
) {
647 if (ok_as_delegate_flag
|| windows_flag
)
649 if (use_referrals_flag
|| windows_flag
)
655 krb5_cc_set_config(context
, ccache
, NULL
, "realm-config", &data
);
658 krb5_get_init_creds_opt_free(context
, opt
);
667 ticket_lifetime(krb5_context context
, krb5_ccache cache
, krb5_principal client
,
668 const char *server
, time_t *renew
)
670 krb5_creds in_cred
, *cred
;
675 memset(&in_cred
, 0, sizeof(in_cred
));
677 ret
= krb5_cc_get_principal(context
, cache
, &in_cred
.client
);
679 krb5_warn(context
, ret
, "krb5_cc_get_principal");
682 ret
= get_server(context
, in_cred
.client
, server
, &in_cred
.server
);
684 krb5_free_principal(context
, in_cred
.client
);
685 krb5_warn(context
, ret
, "get_server");
689 ret
= krb5_get_credentials(context
, KRB5_GC_CACHED
,
690 cache
, &in_cred
, &cred
);
691 krb5_free_principal(context
, in_cred
.client
);
692 krb5_free_principal(context
, in_cred
.server
);
694 krb5_warn(context
, ret
, "krb5_get_credentials");
697 curtime
= time(NULL
);
698 timeout
= cred
->times
.endtime
- curtime
;
702 *renew
= cred
->times
.renew_till
- curtime
;
706 krb5_free_creds(context
, cred
);
711 krb5_context context
;
713 krb5_principal principal
;
714 krb5_deltat ticket_life
;
718 renew_func(void *ptr
)
720 struct renew_ctx
*ctx
= ptr
;
723 static time_t exp_delay
= 1;
725 expire
= ticket_lifetime(ctx
->context
, ctx
->ccache
, ctx
->principal
,
726 server_str
, &renew_expire
);
728 if (renew_expire
> expire
) {
729 renew_validate(ctx
->context
, 1, validate_flag
, ctx
->ccache
,
730 server_str
, ctx
->ticket_life
);
731 expire
= ticket_lifetime(ctx
->context
, ctx
->ccache
, ctx
->principal
,
732 server_str
, &renew_expire
);
735 if (expire
< ctx
->ticket_life
/ 2) {
736 get_new_tickets(ctx
->context
, ctx
->principal
,
737 ctx
->ccache
, ctx
->ticket_life
, 0);
738 expire
= ticket_lifetime(ctx
->context
, ctx
->ccache
, ctx
->principal
,
739 server_str
, &renew_expire
);
743 if (do_afslog
&& k_hasafs())
744 krb5_afslog(ctx
->context
, ctx
->ccache
, NULL
, NULL
);
748 * If our tickets have expired and we been able to either renew them
749 * or obtain new tickets, then we still call this function but we use
750 * an exponential backoff. This should take care of the case where
751 * we are using stored credentials but the KDC has been unavailable
756 if (exp_delay
< 7200)
762 return expire
/ 2 + 1;
766 set_princ_realm(krb5_context context
,
767 krb5_principal principal
,
772 if ((ret
= krb5_principal_set_realm(context
, principal
, realm
)) != 0)
773 krb5_err(context
, 1, ret
, "krb5_principal_set_realm");
777 parse_name_realm(krb5_context context
,
781 krb5_principal
*princ
)
786 flags
|= KRB5_PRINCIPAL_PARSE_NO_DEF_REALM
;
787 if ((ret
= krb5_parse_name_flags(context
, name
, flags
, princ
)) != 0)
788 krb5_err(context
, 1, ret
, "krb5_parse_name_flags");
789 if (realm
&& krb5_principal_get_realm(context
, *princ
) == NULL
)
790 set_princ_realm(context
, *princ
, realm
);
794 get_default_realm(krb5_context context
)
799 if ((ret
= krb5_get_default_realm(context
, &realm
)) != 0)
800 krb5_err(context
, 1, ret
, "krb5_get_default_realm");
805 get_default_principal(krb5_context context
, krb5_principal
*princ
)
809 if ((ret
= krb5_get_default_principal(context
, princ
)) != 0)
810 krb5_err(context
, 1, ret
, "krb5_get_default_principal");
814 get_user_realm(krb5_context context
)
817 char *user_realm
= NULL
;
820 * If memory allocation fails, we don't try to use the wrong realm,
821 * that will trigger misleading error messages complicate support.
823 krb5_appdefault_string(context
, "kinit", NULL
, "user_realm", "",
825 if (user_realm
== NULL
) {
826 ret
= krb5_enomem(context
);
827 krb5_err(context
, 1, ret
, "krb5_appdefault_string");
830 if (*user_realm
== 0) {
839 get_princ(krb5_context context
, krb5_principal
*principal
, const char *name
)
849 /* If credential cache provides a client principal, use that. */
850 if (krb5_cc_default(context
, &ccache
) == 0) {
851 ret
= krb5_cc_get_principal(context
, ccache
, principal
);
852 krb5_cc_close(context
, ccache
);
858 user_realm
= get_user_realm(context
);
861 if (canonicalize_flag
|| enterprise_flag
)
862 parseflags
|= KRB5_PRINCIPAL_PARSE_ENTERPRISE
;
864 parse_name_realm(context
, name
, parseflags
, user_realm
, &tmp
);
866 if (user_realm
&& krb5_principal_get_num_comp(context
, tmp
) > 1) {
867 /* Principal is instance qualified, reparse with default realm. */
868 krb5_free_principal(context
, tmp
);
869 parse_name_realm(context
, name
, parseflags
, NULL
, principal
);
874 get_default_principal(context
, principal
);
876 set_princ_realm(context
, *principal
, user_realm
);
884 get_princ_kt(krb5_context context
,
885 krb5_principal
*principal
,
891 krb5_kt_cursor cursor
;
892 krb5_keytab_entry entry
;
898 * If the credential cache exists and specifies a client principal,
901 if (krb5_cc_default(context
, &ccache
) == 0) {
902 ret
= krb5_cc_get_principal(context
, ccache
, principal
);
903 krb5_cc_close(context
, ccache
);
910 /* If the principal specifies an explicit realm, just use that. */
911 parseflags
|= KRB5_PRINCIPAL_PARSE_NO_DEF_REALM
;
912 parse_name_realm(context
, name
, parseflags
, NULL
, &tmp
);
913 if (krb5_principal_get_realm(context
, tmp
) != NULL
) {
918 /* Otherwise, search keytab for bare name of the default principal. */
919 get_default_principal(context
, &tmp
);
920 set_princ_realm(context
, tmp
, NULL
);
923 def_realm
= get_default_realm(context
);
925 ret
= krb5_kt_start_seq_get(context
, kt
, &cursor
);
927 krb5_err(context
, 1, ret
, "krb5_kt_start_seq_get");
930 krb5_kt_next_entry(context
, kt
, &entry
, &cursor
) == 0) {
933 if (!krb5_principal_compare_any_realm(context
, tmp
, entry
.principal
))
936 krb5_principal_compare(context
, *principal
, entry
.principal
))
938 /* The default realm takes precedence */
939 realm
= krb5_principal_get_realm(context
, entry
.principal
);
940 if (*principal
&& strcmp(def_realm
, realm
) == 0) {
941 krb5_free_principal(context
, *principal
);
942 ret
= krb5_copy_principal(context
, entry
.principal
, principal
);
946 ret
= krb5_copy_principal(context
, entry
.principal
, principal
);
948 if (ret
!= 0 || (ret
= krb5_kt_end_seq_get(context
, kt
, &cursor
)) != 0)
949 krb5_err(context
, 1, ret
, "get_princ_kt");
951 parse_name_realm(context
, name
, parseflags
, NULL
, principal
);
953 krb5_free_principal(context
, tmp
);
958 main(int argc
, char **argv
)
961 krb5_context context
;
963 krb5_principal principal
= NULL
;
965 krb5_deltat ticket_life
= 0;
967 setprogname(argv
[0]);
969 setlocale(LC_ALL
, "");
970 bindtextdomain("heimdal_kuser", HEIMDAL_LOCALEDIR
);
971 textdomain("heimdal_kuser");
973 ret
= krb5_init_context(&context
);
974 if (ret
== KRB5_CONFIG_BADFORMAT
)
975 errx(1, "krb5_init_context failed to parse configuration file");
977 errx(1, "krb5_init_context failed: %d", ret
);
979 if (getarg(args
, sizeof(args
) / sizeof(args
[0]), argc
, argv
, &optidx
))
994 * Open the keytab now, we use the keytab to determine the principal's
995 * realm when the requested principal has no realm.
997 if (use_keytab
|| keytab_str
) {
999 ret
= krb5_kt_resolve(context
, keytab_str
, &kt
);
1001 ret
= krb5_kt_default(context
, &kt
);
1003 krb5_err(context
, 1, ret
, "resolving keytab");
1006 if (pk_enterprise_flag
) {
1007 ret
= krb5_pk_enterprise_cert(context
, pk_user_id
,
1008 argv
[0], &principal
,
1011 krb5_err(context
, 1, ret
, "krb5_pk_enterprise_certs");
1015 } else if (anonymous_flag
) {
1017 ret
= krb5_make_principal(context
, &principal
, argv
[0],
1018 KRB5_WELLKNOWN_NAME
, KRB5_ANON_NAME
,
1021 krb5_err(context
, 1, ret
, "krb5_make_principal");
1022 krb5_principal_set_type(context
, principal
, KRB5_NT_WELLKNOWN
);
1024 } else if (use_keytab
|| keytab_str
) {
1025 get_princ_kt(context
, &principal
, argv
[0]);
1027 get_princ(context
, &principal
, argv
[0]);
1031 krb5_set_fcache_version(context
, fcache_version
);
1033 if (renewable_flag
== -1)
1034 /* this seems somewhat pointless, but whatever */
1035 krb5_appdefault_boolean(context
, "kinit",
1036 krb5_principal_get_realm(context
, principal
),
1037 "renewable", FALSE
, &renewable_flag
);
1038 if (do_afslog
== -1)
1039 krb5_appdefault_boolean(context
, "kinit",
1040 krb5_principal_get_realm(context
, principal
),
1041 "afslog", TRUE
, &do_afslog
);
1044 ret
= krb5_cc_resolve(context
, cred_cache
, &ccache
);
1048 ret
= krb5_cc_new_unique(context
, NULL
, NULL
, &ccache
);
1050 krb5_err(context
, 1, ret
, "creating cred cache");
1051 snprintf(s
, sizeof(s
), "%s:%s",
1052 krb5_cc_get_type(context
, ccache
),
1053 krb5_cc_get_name(context
, ccache
));
1054 setenv("KRB5CCNAME", s
, 1);
1056 ret
= krb5_cc_cache_match(context
, principal
, &ccache
);
1059 ret
= krb5_cc_default(context
, &ccache
);
1061 krb5_err(context
, 1, ret
,
1062 N_("resolving credentials cache", ""));
1065 * Check if the type support switching, and we do,
1066 * then do that instead over overwriting the current
1067 * default credential
1069 type
= krb5_cc_get_type(context
, ccache
);
1070 if (krb5_cc_support_switch(context
, type
)) {
1071 krb5_cc_close(context
, ccache
);
1072 ret
= krb5_cc_new_unique(context
, type
, NULL
, &ccache
);
1078 krb5_err(context
, 1, ret
, N_("resolving credentials cache", ""));
1081 if (argc
> 1 && k_hasafs())
1086 int tmp
= parse_time(lifetime
, "s");
1088 errx(1, N_("unparsable time: %s", ""), lifetime
);
1093 if (addrs_flag
== 0 && extra_addresses
.num_strings
> 0)
1094 krb5_errx(context
, 1,
1095 N_("specifying both extra addresses and "
1096 "no addresses makes no sense", ""));
1099 krb5_addresses addresses
;
1100 memset(&addresses
, 0, sizeof(addresses
));
1101 for(i
= 0; i
< extra_addresses
.num_strings
; i
++) {
1102 ret
= krb5_parse_address(context
, extra_addresses
.strings
[i
],
1105 krb5_add_extra_addresses(context
, &addresses
);
1106 krb5_free_addresses(context
, &addresses
);
1109 free_getarg_strings(&extra_addresses
);
1112 if (renew_flag
|| validate_flag
) {
1113 ret
= renew_validate(context
, renew_flag
, validate_flag
,
1114 ccache
, server_str
, ticket_life
);
1118 get_new_tickets(context
, principal
, ccache
, ticket_life
, 1);
1121 if (do_afslog
&& k_hasafs())
1122 krb5_afslog(context
, ccache
, NULL
, NULL
);
1125 struct renew_ctx ctx
;
1128 timeout
= ticket_lifetime(context
, ccache
, principal
,
1129 server_str
, NULL
) / 2;
1131 ctx
.context
= context
;
1132 ctx
.ccache
= ccache
;
1133 ctx
.principal
= principal
;
1134 ctx
.ticket_life
= ticket_life
;
1136 ret
= simple_execvp_timed(argv
[1], argv
+1,
1137 renew_func
, &ctx
, timeout
);
1138 #define EX_NOEXEC 126
1139 #define EX_NOTFOUND 127
1140 if (ret
== EX_NOEXEC
)
1141 krb5_warnx(context
, N_("permission denied: %s", ""), argv
[1]);
1142 else if (ret
== EX_NOTFOUND
)
1143 krb5_warnx(context
, N_("command not found: %s", ""), argv
[1]);
1145 krb5_cc_destroy(context
, ccache
);
1151 krb5_cc_close(context
, ccache
);
1154 krb5_free_principal(context
, principal
);
1156 krb5_kt_close(context
, kt
);
1157 krb5_free_context(context
);