1 /*
2  * lib/krb5/keytab/ktfns.c
3  *
4  * Copyright 2001 by the Massachusetts Institute of Technology.
5  * All Rights Reserved.
6  *
7  * Export of this software from the United States of America may
8  *   require a specific license from the United States Government.
9  *   It is the responsibility of any person or organization contemplating
10  *   export to obtain such a license before exporting.
11  *
12  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
13  * distribute this software and its documentation for any purpose and
14  * without fee is hereby granted, provided that the above copyright
15  * notice appear in all copies and that both that copyright notice and
16  * this permission notice appear in supporting documentation, and that
17  * the name of M.I.T. not be used in advertising or publicity pertaining
18  * to distribution of the software without specific, written prior
19  * permission.  Furthermore if you modify this software you must label
20  * your software as modified software and not distribute it in such a
21  * fashion that it might be confused with the original M.I.T. software.
22  * M.I.T. makes no representations about the suitability of
23  * this software for any purpose.  It is provided "as is" without express
24  * or implied warranty.
25  */
26 
27 /*
28  * Dispatch methods for keytab code.
29  */
30 
31 #include "k5-int.h"
32 
33 char * KRB5_CALLCONV
krb5_kt_get_type(krb5_context context,krb5_keytab keytab)34 krb5_kt_get_type (krb5_context context, krb5_keytab keytab)
35 {
36     return keytab->ops->prefix;
37 }
38 
39 krb5_error_code KRB5_CALLCONV
krb5_kt_get_name(krb5_context context,krb5_keytab keytab,char * name,unsigned int namelen)40 krb5_kt_get_name(krb5_context context, krb5_keytab keytab, char *name,
41 		 unsigned int namelen)
42 {
43     return krb5_x((keytab)->ops->get_name,(context, keytab,name,namelen));
44 }
45 
46 krb5_error_code KRB5_CALLCONV
krb5_kt_close(krb5_context context,krb5_keytab keytab)47 krb5_kt_close(krb5_context context, krb5_keytab keytab)
48 {
49     return krb5_x((keytab)->ops->close,(context, keytab));
50 }
51 
52 krb5_error_code KRB5_CALLCONV
krb5_kt_get_entry(krb5_context context,krb5_keytab keytab,krb5_const_principal principal,krb5_kvno vno,krb5_enctype enctype,krb5_keytab_entry * entry)53 krb5_kt_get_entry(krb5_context context, krb5_keytab keytab,
54 		  krb5_const_principal principal, krb5_kvno vno,
55 		  krb5_enctype enctype, krb5_keytab_entry *entry)
56 {
57     krb5_error_code err;
58     krb5_principal_data princ_data;
59 
60     if (krb5_is_referral_realm(&principal->realm)) {
61 	char *realm;
62 	princ_data = *principal;
63 	principal = &princ_data;
64 	err = krb5_get_default_realm(context, &realm);
65 	if (err)
66 	    return err;
67 	princ_data.realm.data = realm;
68 	princ_data.realm.length = strlen(realm);
69     }
70     err = krb5_x((keytab)->ops->get,(context, keytab, principal, vno, enctype,
71 				     entry));
72     if (principal == &princ_data)
73 	krb5_free_default_realm(context, princ_data.realm.data);
74     return err;
75 }
76 
77 krb5_error_code KRB5_CALLCONV
krb5_kt_start_seq_get(krb5_context context,krb5_keytab keytab,krb5_kt_cursor * cursor)78 krb5_kt_start_seq_get(krb5_context context, krb5_keytab keytab,
79 		      krb5_kt_cursor *cursor)
80 {
81     return krb5_x((keytab)->ops->start_seq_get,(context, keytab, cursor));
82 }
83 
84 krb5_error_code KRB5_CALLCONV
krb5_kt_next_entry(krb5_context context,krb5_keytab keytab,krb5_keytab_entry * entry,krb5_kt_cursor * cursor)85 krb5_kt_next_entry(krb5_context context, krb5_keytab keytab,
86 		   krb5_keytab_entry *entry, krb5_kt_cursor *cursor)
87 {
88     return krb5_x((keytab)->ops->get_next,(context, keytab, entry, cursor));
89 }
90 
91 krb5_error_code KRB5_CALLCONV
krb5_kt_end_seq_get(krb5_context context,krb5_keytab keytab,krb5_kt_cursor * cursor)92 krb5_kt_end_seq_get(krb5_context context, krb5_keytab keytab,
93 		    krb5_kt_cursor *cursor)
94 {
95     return krb5_x((keytab)->ops->end_get,(context, keytab, cursor));
96 }
97