crypto/external/bsd/heimdal/dist/lib/krb5/rd_error.c

   1 /*      $NetBSD: rd_error.c,v 1.1.1.1 2011/04/13 18:15:37 elric Exp $   */
   2
   3 /*
   4  * Copyright (c) 1997 - 2001 Kungliga Tekniska Högskolan
   5  * (Royal Institute of Technology, Stockholm, Sweden).
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  *
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  *
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * 3. Neither the name of the Institute nor the names of its contributors
  20  *    may be used to endorse or promote products derived from this software
  21  *    without specific prior written permission.
  22  *
  23  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
  24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
  27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  33  * SUCH DAMAGE.
  34  */
  35
  36 #include "krb5_locl.h"
  37
  38 KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
  39 krb5_rd_error(krb5_context context,
  40               const krb5_data *msg,
  41               KRB_ERROR *result)
  42 {
  43
  44     size_t len;
  45     krb5_error_code ret;
  46
  47     ret = decode_KRB_ERROR(msg->data, msg->length, result, &len);
  48     if(ret) {
  49         krb5_clear_error_message(context);
  50         return ret;
  51     }
  52     result->error_code += KRB5KDC_ERR_NONE;
  53     return 0;
  54 }
  55
  56 KRB5_LIB_FUNCTION void KRB5_LIB_CALL
  57 krb5_free_error_contents (krb5_context context,
  58                           krb5_error *error)
  59 {
  60     free_KRB_ERROR(error);
  61     memset(error, 0, sizeof(*error));
  62 }
  63
  64 KRB5_LIB_FUNCTION void KRB5_LIB_CALL
  65 krb5_free_error (krb5_context context,
  66                  krb5_error *error)
  67 {
  68     krb5_free_error_contents (context, error);
  69     free (error);
  70 }
  71
  72 KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
  73 krb5_error_from_rd_error(krb5_context context,
  74                          const krb5_error *error,
  75                          const krb5_creds *creds)
  76 {
  77     krb5_error_code ret;
  78
  79     ret = error->error_code;
  80     if (error->e_text != NULL) {
  81         krb5_set_error_message(context, ret, "%s", *error->e_text);
  82     } else {
  83         char clientname[256], servername[256];
  84
  85         if (creds != NULL) {
  86             krb5_unparse_name_fixed(context, creds->client,
  87                                     clientname, sizeof(clientname));
  88             krb5_unparse_name_fixed(context, creds->server,
  89                                     servername, sizeof(servername));
  90         }
  91
  92         switch (ret) {
  93         case KRB5KDC_ERR_NAME_EXP :
  94             krb5_set_error_message(context, ret,
  95                                    N_("Client %s%s%s expired", ""),
  96                                    creds ? "(" : "",
  97                                    creds ? clientname : "",
  98                                    creds ? ")" : "");
  99             break;
 100         case KRB5KDC_ERR_SERVICE_EXP :
 101             krb5_set_error_message(context, ret,
 102                                    N_("Server %s%s%s expired", ""),
 103                                    creds ? "(" : "",
 104                                    creds ? servername : "",
 105                                    creds ? ")" : "");
 106             break;
 107         case KRB5KDC_ERR_C_PRINCIPAL_UNKNOWN :
 108             krb5_set_error_message(context, ret,
 109                                    N_("Client %s%s%s unknown", ""),
 110                                    creds ? "(" : "",
 111                                    creds ? clientname : "",
 112                                    creds ? ")" : "");
 113             break;
 114         case KRB5KDC_ERR_S_PRINCIPAL_UNKNOWN :
 115             krb5_set_error_message(context, ret,
 116                                    N_("Server %s%s%s unknown", ""),
 117                                    creds ? "(" : "",
 118                                    creds ? servername : "",
 119                                    creds ? ")" : "");
 120             break;
 121         default :
 122             krb5_clear_error_message(context);
 123             break;
 124         }
 125     }
 126     return ret;
 127 }