ce1b2ebd9f2594df57cf33b50354de49e3a15ff0
[openafs.git] / src / kauth / krb_tf.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  *
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 /*
11  * ALL RIGHTS RESERVED
12  */
13
14 /* This modified from the code in kerberos/src/lib/krb/tf_util.c. */
15
16 /*
17  * This file contains routines for manipulating the ticket cache file.
18  *
19  * The ticket file is in the following format:
20  *
21  *      principal's name        (null-terminated string)
22  *      principal's instance    (null-terminated string)
23  *      CREDENTIAL_1
24  *      CREDENTIAL_2
25  *      ...
26  *      CREDENTIAL_n
27  *      EOF
28  *
29  *      Where "CREDENTIAL_x" consists of the following fixed-length
30  *      fields from the CREDENTIALS structure (see "krb.h"):
31  *
32  *              char            service[ANAME_SZ]
33  *              char            instance[INST_SZ]
34  *              char            realm[REALM_SZ]
35  *              C_Block         session
36  *              int             lifetime
37  *              int             kvno
38  *              KTEXT_ST        ticket_st
39  *              afs_int32            issue_date
40  *
41  * . . .
42  */
43
44 /* Inspite of what the above comment suggests the fields are not fixed length
45    but null terminated as you might figure, except for the ticket which is
46    preceded by a 4 byte length.  All fields in host order. 890306 */
47 #include <afsconfig.h>
48 #include <afs/param.h>
49
50 #include <roken.h>
51 #include <afs/opr.h>
52
53 #include <rx/xdr.h>
54 #include <afs/auth.h>
55
56 #include "kauth.h"
57 #include "kautils.h"
58 #include "kauth_internal.h"
59
60 afs_int32
61 krb_write_ticket_file(char *realm)
62 {
63     char ticket_file[AFSDIR_PATH_MAX];
64     int fd;
65     int count;
66     afs_int32 code;
67     int lifetime, kvno;
68     char *tf_name;
69     struct ktc_principal client, server;
70     struct ktc_token token;
71
72     if ((strlen(realm) >= sizeof(client.cell)))
73         return KABADNAME;
74     strcpy(server.name, KA_TGS_NAME);
75     strcpy(server.instance, realm);
76     lcstring(server.cell, realm, sizeof(server.cell));
77
78     code = ktc_GetToken(&server, &token, sizeof(struct ktc_token), &client);
79     if (code)
80         return code;
81
82     /* Use the KRBTKFILE environment variable if it exists, otherwise fall
83      * back upon /tmp/tkt(uid}.
84      */
85     if ((tf_name = (char *)getenv("KRBTKFILE")))
86         (void)sprintf(ticket_file, "%s", tf_name);
87     else
88         (void)sprintf(ticket_file, "%s/tkt%d", gettmpdir(), getuid());
89     fd = open(ticket_file, O_WRONLY + O_CREAT + O_TRUNC, 0700);
90     if (fd <= 0)
91         return errno;
92
93     /* write client name as file header */
94
95     count = strlen(client.name) + 1;
96     if (write(fd, client.name, count) != count)
97         goto bad;
98
99     count = strlen(client.instance) + 1;
100     if (write(fd, client.instance, count) != count)
101         goto bad;
102
103     /* Write the ticket and associated data */
104     /* Service */
105     count = strlen(server.name) + 1;
106     if (write(fd, server.name, count) != count)
107         goto bad;
108     /* Instance */
109     count = strlen(server.instance) + 1;
110     if (write(fd, server.instance, count) != count)
111         goto bad;
112     /* Realm */
113     ucstring(server.cell, server.cell, sizeof(server.cell));
114     count = strlen(server.cell) + 1;
115     if (write(fd, server.cell, count) != count)
116         goto bad;
117     /* Session key */
118     if (write(fd, (char *)&token.sessionKey, 8) != 8)
119         goto bad;
120     /* Lifetime */
121     lifetime = time_to_life(token.startTime, token.endTime);
122     if (write(fd, (char *)&lifetime, sizeof(int)) != sizeof(int))
123         goto bad;
124     /* Key vno */
125     kvno = token.kvno;
126     if (write(fd, (char *)&kvno, sizeof(int)) != sizeof(int))
127         goto bad;
128     /* Tkt length */
129     if (write(fd, (char *)&(token.ticketLen), sizeof(int)) != sizeof(int))
130         goto bad;
131     /* Ticket */
132     count = token.ticketLen;
133     if (write(fd, (char *)(token.ticket), count) != count)
134         goto bad;
135     /* Issue date */
136     if (write(fd, (char *)&(token.startTime), sizeof(afs_int32))
137         != sizeof(afs_int32))
138         goto bad;
139     close(fd);
140     return 0;
141
142   bad:
143     close(fd);
144     return -1;
145 }