src/lib/gssapi/krb5/set_ccache.c

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