2 * Copyright (c) 1997 - 2006 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of the Institute nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
42 #elif defined(HAVE_DB3_DB_H)
48 static krb5_error_code
49 DB_close(krb5_context context
, HDB
*db
)
51 DB
*d
= (DB
*)db
->hdb_db
;
52 DBC
*dbcp
= (DBC
*)db
->hdb_dbc
;
54 (*dbcp
->c_close
)(dbcp
);
60 static krb5_error_code
61 DB_destroy(krb5_context context
, HDB
*db
)
65 ret
= hdb_clear_master_key (context
, db
);
71 static krb5_error_code
72 DB_lock(krb5_context context
, HDB
*db
, int operation
)
74 DB
*d
= (DB
*)db
->hdb_db
;
77 return HDB_ERR_CANT_LOCK_DB
;
78 return hdb_lock(fd
, operation
);
81 static krb5_error_code
82 DB_unlock(krb5_context context
, HDB
*db
)
84 DB
*d
= (DB
*)db
->hdb_db
;
87 return HDB_ERR_CANT_LOCK_DB
;
88 return hdb_unlock(fd
);
92 static krb5_error_code
93 DB_seq(krb5_context context
, HDB
*db
,
94 unsigned flags
, hdb_entry_ex
*entry
, int flag
)
97 DBC
*dbcp
= db
->hdb_dbc
;
98 krb5_data key_data
, data
;
101 memset(&key
, 0, sizeof(DBT
));
102 memset(&value
, 0, sizeof(DBT
));
103 if ((*db
->hdb_lock
)(context
, db
, HDB_RLOCK
))
104 return HDB_ERR_DB_INUSE
;
105 code
= (*dbcp
->c_get
)(dbcp
, &key
, &value
, flag
);
106 (*db
->hdb_unlock
)(context
, db
); /* XXX check value */
107 if (code
== DB_NOTFOUND
)
108 return HDB_ERR_NOENTRY
;
112 key_data
.data
= key
.data
;
113 key_data
.length
= key
.size
;
114 data
.data
= value
.data
;
115 data
.length
= value
.size
;
116 memset(entry
, 0, sizeof(*entry
));
117 if (hdb_value2entry(context
, &data
, &entry
->entry
))
118 return DB_seq(context
, db
, flags
, entry
, DB_NEXT
);
119 if (db
->hdb_master_key_set
&& (flags
& HDB_F_DECRYPT
)) {
120 code
= hdb_unseal_keys (context
, db
, &entry
->entry
);
122 hdb_free_entry (context
, entry
);
124 if (entry
->entry
.principal
== NULL
) {
125 entry
->entry
.principal
= malloc(sizeof(*entry
->entry
.principal
));
126 if (entry
->entry
.principal
== NULL
) {
127 hdb_free_entry (context
, entry
);
128 krb5_set_error_message(context
, ENOMEM
, "malloc: out of memory");
131 hdb_key2principal(context
, &key_data
, entry
->entry
.principal
);
138 static krb5_error_code
139 DB_firstkey(krb5_context context
, HDB
*db
, unsigned flags
, hdb_entry_ex
*entry
)
141 return DB_seq(context
, db
, flags
, entry
, DB_FIRST
);
145 static krb5_error_code
146 DB_nextkey(krb5_context context
, HDB
*db
, unsigned flags
, hdb_entry_ex
*entry
)
148 return DB_seq(context
, db
, flags
, entry
, DB_NEXT
);
151 static krb5_error_code
152 DB_rename(krb5_context context
, HDB
*db
, const char *new_name
)
157 asprintf(&old
, "%s.db", db
->hdb_name
);
158 asprintf(&new, "%s.db", new_name
);
159 ret
= rename(old
, new);
166 db
->hdb_name
= strdup(new_name
);
170 static krb5_error_code
171 DB__get(krb5_context context
, HDB
*db
, krb5_data key
, krb5_data
*reply
)
173 DB
*d
= (DB
*)db
->hdb_db
;
177 memset(&k
, 0, sizeof(DBT
));
178 memset(&v
, 0, sizeof(DBT
));
182 if ((code
= (*db
->hdb_lock
)(context
, db
, HDB_RLOCK
)))
184 code
= (*d
->get
)(d
, NULL
, &k
, &v
, 0);
185 (*db
->hdb_unlock
)(context
, db
);
186 if(code
== DB_NOTFOUND
)
187 return HDB_ERR_NOENTRY
;
191 krb5_data_copy(reply
, v
.data
, v
.size
);
195 static krb5_error_code
196 DB__put(krb5_context context
, HDB
*db
, int replace
,
197 krb5_data key
, krb5_data value
)
199 DB
*d
= (DB
*)db
->hdb_db
;
203 memset(&k
, 0, sizeof(DBT
));
204 memset(&v
, 0, sizeof(DBT
));
209 v
.size
= value
.length
;
211 if ((code
= (*db
->hdb_lock
)(context
, db
, HDB_WLOCK
)))
213 code
= (*d
->put
)(d
, NULL
, &k
, &v
, replace
? 0 : DB_NOOVERWRITE
);
214 (*db
->hdb_unlock
)(context
, db
);
215 if(code
== DB_KEYEXIST
)
216 return HDB_ERR_EXISTS
;
222 static krb5_error_code
223 DB__del(krb5_context context
, HDB
*db
, krb5_data key
)
225 DB
*d
= (DB
*)db
->hdb_db
;
227 krb5_error_code code
;
228 memset(&k
, 0, sizeof(DBT
));
232 code
= (*db
->hdb_lock
)(context
, db
, HDB_WLOCK
);
235 code
= (*d
->del
)(d
, NULL
, &k
, 0);
236 (*db
->hdb_unlock
)(context
, db
);
237 if(code
== DB_NOTFOUND
)
238 return HDB_ERR_NOENTRY
;
244 static krb5_error_code
245 DB_open(krb5_context context
, HDB
*db
, int flags
, mode_t mode
)
254 myflags
|= DB_CREATE
;
259 if((flags
& O_ACCMODE
) == O_RDONLY
)
260 myflags
|= DB_RDONLY
;
263 myflags
|= DB_TRUNCATE
;
265 asprintf(&fn
, "%s.db", db
->hdb_name
);
267 krb5_set_error_message(context
, ENOMEM
, "malloc: out of memory");
270 db_create(&d
, NULL
, 0);
273 #if (DB_VERSION_MAJOR >= 4) && (DB_VERSION_MINOR >= 1)
274 ret
= (*d
->open
)(db
->hdb_db
, NULL
, fn
, NULL
, DB_BTREE
, myflags
, mode
);
276 ret
= (*d
->open
)(db
->hdb_db
, fn
, NULL
, DB_BTREE
, myflags
, mode
);
280 /* try to open without .db extension */
281 #if (DB_VERSION_MAJOR >= 4) && (DB_VERSION_MINOR >= 1)
282 ret
= (*d
->open
)(db
->hdb_db
, NULL
, db
->hdb_name
, NULL
, DB_BTREE
,
285 ret
= (*d
->open
)(db
->hdb_db
, db
->hdb_name
, NULL
, DB_BTREE
,
292 krb5_set_error_message(context
, ret
, "opening %s: %s",
293 db
->hdb_name
, strerror(ret
));
298 ret
= (*d
->cursor
)(d
, NULL
, &dbc
, 0);
300 krb5_set_error_message(context
, ret
, "d->cursor: %s", strerror(ret
));
305 if((flags
& O_ACCMODE
) == O_RDONLY
)
306 ret
= hdb_check_db_format(context
, db
);
308 ret
= hdb_init_db(context
, db
);
309 if(ret
== HDB_ERR_NOENTRY
)
312 DB_close(context
, db
);
313 krb5_set_error_message(context
, ret
, "hdb_open: failed %s database %s",
314 (flags
& O_ACCMODE
) == O_RDONLY
?
315 "checking format of" : "initialize",
323 hdb_db_create(krb5_context context
, HDB
**db
,
324 const char *filename
)
326 *db
= calloc(1, sizeof(**db
));
328 krb5_set_error_message(context
, ENOMEM
, "malloc: out of memory");
332 (*db
)->hdb_db
= NULL
;
333 (*db
)->hdb_name
= strdup(filename
);
334 if ((*db
)->hdb_name
== NULL
) {
337 krb5_set_error_message(context
, ENOMEM
, "malloc: out of memory");
340 (*db
)->hdb_master_key_set
= 0;
341 (*db
)->hdb_openp
= 0;
342 (*db
)->hdb_capability_flags
= 0;
343 (*db
)->hdb_open
= DB_open
;
344 (*db
)->hdb_close
= DB_close
;
345 (*db
)->hdb_fetch
= _hdb_fetch
;
346 (*db
)->hdb_store
= _hdb_store
;
347 (*db
)->hdb_remove
= _hdb_remove
;
348 (*db
)->hdb_firstkey
= DB_firstkey
;
349 (*db
)->hdb_nextkey
= DB_nextkey
;
350 (*db
)->hdb_lock
= DB_lock
;
351 (*db
)->hdb_unlock
= DB_unlock
;
352 (*db
)->hdb_rename
= DB_rename
;
353 (*db
)->hdb__get
= DB__get
;
354 (*db
)->hdb__put
= DB__put
;
355 (*db
)->hdb__del
= DB__del
;
356 (*db
)->hdb_destroy
= DB_destroy
;
359 #endif /* HAVE_DB3 */