1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
/*
* lib/krb5/ccache/stdio/scc_gennew.c
*
* Copyright 1990,1991 by the Massachusetts Institute of Technology.
* All Rights Reserved.
*
* Export of this software from the United States of America may
* require a specific license from the United States Government.
* It is the responsibility of any person or organization contemplating
* export to obtain such a license before exporting.
*
* WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
* distribute this software and its documentation for any purpose and
* without fee is hereby granted, provided that the above copyright
* notice appear in all copies and that both that copyright notice and
* this permission notice appear in supporting documentation, and that
* the name of M.I.T. not be used in advertising or publicity pertaining
* to distribution of the software without specific, written prior
* permission. M.I.T. makes no representations about the suitability of
* this software for any purpose. It is provided "as is" without express
* or implied warranty.
*
*
* This file contains the source code for krb5_scc_generate_new.
*/
#include "scc.h"
#include "k5-int.h"
extern krb5_cc_ops krb5_scc_ops;
/*
* Effects:
* Creates a new file cred cache whose name is guaranteed to be
* unique. The name begins with the string TKT_ROOT (from scc.h).
* The cache is not opened, but the new filename is reserved.
*
* Returns:
* The filled in krb5_ccache id.
*
* Errors:
* KRB5_CC_NOMEM - there was insufficient memory to allocate the
* krb5_ccache. id is undefined.
* system errors (from open)
*/
krb5_error_code
krb5_scc_generate_new (context, id)
krb5_context context;
krb5_ccache *id;
{
krb5_ccache lid;
FILE *f;
krb5_error_code retcode = 0;
char scratch[sizeof(TKT_ROOT)+6+1]; /* +6 for the scratch part, +1 for
NUL */
/* Allocate memory */
lid = (krb5_ccache) malloc(sizeof(struct _krb5_ccache));
if (lid == NULL)
return KRB5_CC_NOMEM;
lid->ops = &krb5_scc_ops;
(void) strcpy(scratch, TKT_ROOT);
(void) strcat(scratch, "XXXXXX");
mktemp(scratch);
lid->data = (krb5_pointer) malloc(sizeof(krb5_scc_data));
if (lid->data == NULL) {
krb5_xfree(lid);
return KRB5_CC_NOMEM;
}
((krb5_scc_data *) lid->data)->filename = (char *)
malloc(strlen(scratch) + 1);
if (((krb5_scc_data *) lid->data)->filename == NULL) {
krb5_xfree(((krb5_scc_data *) lid->data));
krb5_xfree(lid);
return KRB5_CC_NOMEM;
}
((krb5_scc_data *) lid->data)->flags = 0;
((krb5_scc_data *) lid->data)->file = 0;
/* Set up the filename */
strcpy(((krb5_scc_data *) lid->data)->filename, scratch);
/* Make sure the file name is useable */
#if defined(__STDC__)
f = fopen (((krb5_scc_data *) lid->data)->filename, "wb+");
#else
f = fopen (((krb5_scc_data *) lid->data)->filename, "w+");
#endif
if (!f) {
retcode = krb5_scc_interpret (context, errno);
goto err_out;
} else {
unsigned char scc_fvno[2] = {
(unsigned char) (KRB5_SCC_DEFAULT_FVNO >> 8),
(unsigned char) (KRB5_SCC_DEFAULT_FVNO & 0xFF)};
if (!fwrite((char *)scc_fvno, sizeof(scc_fvno), 1, f)) {
retcode = krb5_scc_interpret(context, errno);
(void) fclose(f);
(void) remove(((krb5_scc_data *) lid->data)->filename);
goto err_out;
}
if (fclose(f) == EOF) {
retcode = krb5_scc_interpret(context, errno);
(void) remove(((krb5_scc_data *) lid->data)->filename);
goto err_out;
}
*id = lid;
return KRB5_OK;
}
err_out:
krb5_xfree(((krb5_scc_data *) lid->data)->filename);
krb5_xfree(((krb5_scc_data *) lid->data));
krb5_xfree(lid);
return retcode;
}
|