]>
Commit | Line | Data |
---|---|---|
1 | /* | |
2 | * $Source$ | |
3 | * $Header$ | |
4 | */ | |
5 | /* (c) Copyright 1988 by the Massachusetts Institute of Technology. */ | |
6 | /* For copying and distribution information, please see the file */ | |
7 | /* <mit-copyright.h>. */ | |
8 | ||
9 | #ifndef lint | |
10 | static char *rcsid_ticket_c = "$Header$"; | |
11 | #endif lint | |
12 | ||
13 | #include <mit-copyright.h> | |
14 | #include <stdio.h> | |
15 | #include <krb.h> | |
16 | #include <sys/types.h> | |
17 | #include <sys/stat.h> | |
18 | #include <string.h> | |
19 | #include <update.h> | |
20 | #include <com_err.h> | |
21 | #include <krb_et.h> | |
22 | ||
23 | /* too bad we can't set the pathname easily */ | |
24 | static char *srvtab = KEYFILE; /* default == /etc/srvtab */ | |
25 | static char realm[REALM_SZ]; | |
26 | static char master[INST_SZ] = "sms"; | |
27 | static char service[ANAME_SZ] = "rcmd"; | |
28 | C_Block session; | |
29 | ||
30 | ||
31 | static init() | |
32 | { | |
33 | static int initialized = 0; | |
34 | ||
35 | if (!initialized) { | |
36 | if (krb_get_lrealm(realm, 1)) | |
37 | strcpy(realm, KRB_REALM); | |
38 | initialize_krb_error_table(); | |
39 | initialized=1; | |
40 | } | |
41 | } | |
42 | ||
43 | ||
44 | int | |
45 | get_mr_update_ticket(host, ticket) | |
46 | char *host; | |
47 | KTEXT ticket; | |
48 | { | |
49 | register int code; | |
50 | register int pass; | |
51 | char phost[BUFSIZ]; | |
52 | CREDENTIALS cr; | |
53 | ||
54 | pass = 1; | |
55 | init(); | |
56 | strcpy(phost, krb_get_phost(host)); | |
57 | try_it: | |
58 | code = krb_mk_req(ticket, service, phost, realm, (long)0); | |
59 | if (code) { | |
60 | if (pass == 1) { | |
61 | /* maybe we're taking too long? */ | |
62 | if ((code = get_mr_tgt()) != 0) { | |
63 | com_err(whoami, code, " can't get Kerberos TGT"); | |
64 | return(code); | |
65 | } | |
66 | pass++; | |
67 | goto try_it; | |
68 | } | |
69 | com_err(whoami, code, "in krb_mk_req"); | |
70 | } else { | |
71 | code = krb_get_cred(service, phost, realm, &cr); | |
72 | memcpy(session, cr.session, sizeof(session)); | |
73 | } | |
74 | return(code); | |
75 | } | |
76 | ||
77 | int | |
78 | get_mr_tgt() | |
79 | { | |
80 | register int code; | |
81 | char linst[INST_SZ], kinst[INST_SZ]; | |
82 | ||
83 | init(); | |
84 | linst[0] = '\0'; | |
85 | strcpy(kinst, "krbtgt"); | |
86 | code = krb_get_svc_in_tkt(master, linst, realm, kinst, realm, | |
87 | DEFAULT_TKT_LIFE, srvtab); | |
88 | if (!code) | |
89 | return(0); | |
90 | else | |
91 | return(code + ERROR_TABLE_BASE_krb); | |
92 | } |