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 35GSSAPI_LIB_FUNCTION OM_uint32 GSSAPI_LIB_CALL 36gss_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 = _gss_mg_alloc_cred(); 54 if (cred == NULL) 55 return GSS_S_FAILURE; 56 57 HEIM_SLIST_FOREACH(m, &_gss_mechs, gm_link) { 58 59 if (m->gm_mech.gm_set_cred_option == NULL) 60 continue; 61 62 mc = malloc(sizeof(*mc)); 63 if (mc == NULL) { 64 *cred_handle = (gss_cred_id_t)cred; 65 gss_release_cred(minor_status, cred_handle); 66 *minor_status = ENOMEM; 67 return GSS_S_FAILURE; 68 } 69 70 mc->gmc_mech = &m->gm_mech; 71 mc->gmc_mech_oid = &m->gm_mech_oid; 72 mc->gmc_cred = GSS_C_NO_CREDENTIAL; 73 74 major_status = m->gm_mech.gm_set_cred_option( 75 minor_status, &mc->gmc_cred, object, value); 76 77 if (major_status) { 78 free(mc); 79 continue; 80 } 81 one_ok = 1; 82 HEIM_SLIST_INSERT_HEAD(&cred->gc_mc, mc, gmc_link); 83 } 84 *cred_handle = (gss_cred_id_t)cred; 85 if (!one_ok) { 86 OM_uint32 junk; 87 gss_release_cred(&junk, cred_handle); 88 } 89 } else { 90 gssapi_mech_interface m; 91 92 HEIM_SLIST_FOREACH(mc, &cred->gc_mc, gmc_link) { 93 m = mc->gmc_mech; 94 95 if (m == NULL) 96 return GSS_S_BAD_MECH; 97 98 if (m->gm_set_cred_option == NULL) 99 continue; 100 101 major_status = m->gm_set_cred_option(minor_status, 102 &mc->gmc_cred, object, value); 103 if (major_status == GSS_S_COMPLETE) 104 one_ok = 1; 105 else 106 _gss_mg_error(m, *minor_status); 107 108 } 109 } 110 if (one_ok) { 111 *minor_status = 0; 112 return GSS_S_COMPLETE; 113 } 114 return major_status; 115} 116 117