Line data    Source code

       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      112008 : 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      112008 :         struct _gss_cred *cred = (struct _gss_cred *) *cred_handle;
      42      112008 :         OM_uint32       major_status = GSS_S_COMPLETE;
      43        3912 :         struct _gss_mechanism_cred *mc;
      44      112008 :         int one_ok = 0;
      45             : 
      46      112008 :         *minor_status = 0;
      47             : 
      48      112008 :         _gss_load_mech();
      49             : 
      50      112008 :         if (cred == NULL) {
      51        2742 :                 struct _gss_mech_switch *m;
      52             : 
      53       84930 :                 cred = _gss_mg_alloc_cred();
      54       84930 :                 if (cred == NULL) {
      55           0 :                     *minor_status = ENOMEM;
      56           0 :                     return GSS_S_FAILURE;
      57             :                 }
      58             : 
      59      254790 :                 HEIM_TAILQ_FOREACH(m, &_gss_mechs, gm_link) {
      60             : 
      61      169860 :                         if (m->gm_mech.gm_set_cred_option == NULL)
      62       84930 :                                 continue;
      63             : 
      64       84930 :                         mc = malloc(sizeof(*mc));
      65       84930 :                         if (mc == NULL) {
      66           0 :                             *cred_handle = (gss_cred_id_t)cred;
      67           0 :                             gss_release_cred(minor_status, cred_handle);
      68           0 :                             *minor_status = ENOMEM;
      69           0 :                             return GSS_S_FAILURE;
      70             :                         }
      71             : 
      72       84930 :                         mc->gmc_mech = &m->gm_mech;
      73       84930 :                         mc->gmc_mech_oid = m->gm_mech_oid;
      74       84930 :                         mc->gmc_cred = GSS_C_NO_CREDENTIAL;
      75             : 
      76       84930 :                         major_status = m->gm_mech.gm_set_cred_option(
      77             :                             minor_status, &mc->gmc_cred, object, value);
      78             : 
      79       84930 :                         if (major_status) {
      80        7165 :                                 free(mc);
      81        7165 :                                 continue;
      82             :                         }
      83       77765 :                         one_ok = 1;
      84       80507 :                         HEIM_TAILQ_INSERT_TAIL(&cred->gc_mc, mc, gmc_link);
      85             :                 }
      86       84930 :                 *cred_handle = (gss_cred_id_t)cred;
      87       84930 :                 if (!one_ok) {
      88           0 :                         OM_uint32 junk;
      89        7165 :                         gss_release_cred(&junk, cred_handle);
      90             :                 }
      91             :         } else {
      92        1170 :                 gssapi_mech_interface   m;
      93             : 
      94       54156 :                 HEIM_TAILQ_FOREACH(mc, &cred->gc_mc, gmc_link) {
      95       27078 :                         m = mc->gmc_mech;
      96             : 
      97       27078 :                         if (m == NULL)
      98           0 :                                 return GSS_S_BAD_MECH;
      99             : 
     100       27078 :                         if (m->gm_set_cred_option == NULL)
     101           0 :                                 continue;
     102             : 
     103       27078 :                         major_status = m->gm_set_cred_option(minor_status,
     104             :                             &mc->gmc_cred, object, value);
     105       27078 :                         if (major_status == GSS_S_COMPLETE)
     106       25908 :                                 one_ok = 1;
     107             :                         else
     108           0 :                                 _gss_mg_error(m, *minor_status);
     109             : 
     110             :                 }
     111             :         }
     112      112008 :         if (one_ok) {
     113      104843 :                 *minor_status = 0;
     114      104843 :                 return GSS_S_COMPLETE;
     115             :         }
     116        7165 :         return major_status;
     117             : }
     118             :