1 /* 2 * Copyright (c) 2004, PADL Software Pty Ltd. 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 16 * 3. Neither the name of PADL Software nor the names of its contributors 17 * may be used to endorse or promote products derived from this software 18 * without specific prior written permission. 19 * 20 * THIS SOFTWARE IS PROVIDED BY PADL SOFTWARE AND CONTRIBUTORS ``AS IS'' AND 21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 23 * ARE DISCLAIMED. IN NO EVENT SHALL PADL SOFTWARE OR CONTRIBUTORS BE LIABLE 24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 30 * SUCH DAMAGE. 31 */ 32 33 #include "mech_locl.h" 34 35 GSSAPI_LIB_FUNCTION OM_uint32 GSSAPI_LIB_CALL 36 gss_set_cred_option (OM_uint32 *minor_status, 37 gss_cred_id_t *cred_handle, 38 const gss_OID object, 39 const gss_buffer_t value) 40 { 41 struct _gss_cred *cred = (struct _gss_cred *) *cred_handle; 42 OM_uint32 major_status = GSS_S_COMPLETE; 43 struct _gss_mechanism_cred *mc; 44 int one_ok = 0; 45 46 *minor_status = 0; 47 48 _gss_load_mech(); 49 50 if (cred == NULL) { 51 struct _gss_mech_switch *m; 52 53 cred = malloc(sizeof(*cred)); 54 if (cred == NULL) 55 return GSS_S_FAILURE; 56 57 HEIM_SLIST_INIT(&cred->gc_mc); 58 59 HEIM_SLIST_FOREACH(m, &_gss_mechs, gm_link) { 60 61 if (m->gm_mech.gm_set_cred_option == NULL) 62 continue; 63 64 mc = malloc(sizeof(*mc)); 65 if (mc == NULL) { 66 *cred_handle = (gss_cred_id_t)cred; 67 gss_release_cred(minor_status, cred_handle); 68 *minor_status = ENOMEM; 69 return GSS_S_FAILURE; 70 } 71 72 mc->gmc_mech = &m->gm_mech; 73 mc->gmc_mech_oid = &m->gm_mech_oid; 74 mc->gmc_cred = GSS_C_NO_CREDENTIAL; 75 76 major_status = m->gm_mech.gm_set_cred_option( 77 minor_status, &mc->gmc_cred, object, value); 78 79 if (major_status) { 80 free(mc); 81 continue; 82 } 83 one_ok = 1; 84 HEIM_SLIST_INSERT_HEAD(&cred->gc_mc, mc, gmc_link); 85 } 86 *cred_handle = (gss_cred_id_t)cred; 87 if (!one_ok) { 88 OM_uint32 junk; 89 gss_release_cred(&junk, cred_handle); 90 } 91 } else { 92 gssapi_mech_interface m; 93 94 HEIM_SLIST_FOREACH(mc, &cred->gc_mc, gmc_link) { 95 m = mc->gmc_mech; 96 97 if (m == NULL) 98 return GSS_S_BAD_MECH; 99 100 if (m->gm_set_cred_option == NULL) 101 continue; 102 103 major_status = m->gm_set_cred_option(minor_status, 104 &mc->gmc_cred, object, value); 105 if (major_status == GSS_S_COMPLETE) 106 one_ok = 1; 107 else 108 _gss_mg_error(m, major_status, *minor_status); 109 110 } 111 } 112 if (one_ok) { 113 *minor_status = 0; 114 return GSS_S_COMPLETE; 115 } 116 return major_status; 117 } 118 119