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