src/lib/gssapi/krb5/set_ccache.c

   1 /* -*- mode: c; indent-tabs-mode: nil -*- */
   2 /*
   3  * lib/gssapi/krb5/set_ccache.c
   4  *
   5  * Copyright 1999, 2003 by the Massachusetts Institute of Technology.
   6  * All Rights Reserved.
   7  *
   8  * Export of this software from the United States of America may
   9  *   require a specific license from the United States Government.
  10  *   It is the responsibility of any person or organization contemplating
  11  *   export to obtain such a license before exporting.
  12  *
  13  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
  14  * distribute this software and its documentation for any purpose and
  15  * without fee is hereby granted, provided that the above copyright
  16  * notice appear in all copies and that both that copyright notice and
  17  * this permission notice appear in supporting documentation, and that
  18  * the name of M.I.T. not be used in advertising or publicity pertaining
  19  * to distribution of the software without specific, written prior
  20  * permission.  Furthermore if you modify this software you must label
  21  * your software as modified software and not distribute it in such a
  22  * fashion that it might be confused with the original M.I.T. software.
  23  * M.I.T. makes no representations about the suitability of
  24  * this software for any purpose.  It is provided "as is" without express
  25  * or implied warranty.
  26  *
  27  * Set ccache name used by gssapi, and optionally obtain old ccache
  28  * name.  Caller should not free returned name.
  29  */
  30
  31 #include <string.h>
  32 #include "gssapiP_krb5.h"
  33
  34 OM_uint32 KRB5_CALLCONV
  35 gss_krb5int_ccache_name(OM_uint32 *minor_status,
  36                         const gss_OID desired_mech,
  37                         const gss_OID desired_object,
  38                         gss_buffer_t value)
  39 {
  40     char *old_name = NULL;
  41     OM_uint32 err = 0;
  42     OM_uint32 minor = 0;
  43     char *gss_out_name;
  44     struct krb5_gss_ccache_name_req *req;
  45
  46     err = gss_krb5int_initialize_library();
  47     if (err) {
  48         *minor_status = err;
  49         return GSS_S_FAILURE;
  50     }
  51
  52     assert(value->length == sizeof(*req));
  53
  54     if (value->length != sizeof(*req))
  55         return GSS_S_FAILURE;
  56
  57     req = (struct krb5_gss_ccache_name_req *)value->value;
  58
  59     gss_out_name = k5_getspecific(K5_KEY_GSS_KRB5_SET_CCACHE_OLD_NAME);
  60
  61     if (req->out_name) {
  62         const char *tmp_name = NULL;
  63
  64         if (!err) {
  65             kg_get_ccache_name (&err, &tmp_name);
  66         }
  67         if (!err) {
  68             old_name = gss_out_name;
  69             gss_out_name = (char *)tmp_name;
  70         }
  71     }
  72     /* If out_name was NULL, we keep the same gss_out_name value, and
  73        don't free up any storage (leave old_name NULL).  */
  74
  75     if (!err)
  76         kg_set_ccache_name (&err, req->name);
  77
  78     minor = k5_setspecific(K5_KEY_GSS_KRB5_SET_CCACHE_OLD_NAME, gss_out_name);
  79     if (minor) {
  80         /* Um.  Now what?  */
  81         if (err == 0) {
  82             err = minor;
  83         }
  84         free(gss_out_name);
  85         gss_out_name = NULL;
  86     }
  87
  88     if (!err) {
  89         if (req->out_name) {
  90             *(req->out_name) = gss_out_name;
  91         }
  92     }
  93
  94     if (old_name != NULL) {
  95         free (old_name);
  96     }
  97
  98     *minor_status = err;
  99     return (*minor_status == 0) ? GSS_S_COMPLETE : GSS_S_FAILURE;
 100 }