155682Smarkm/* 2233294Sstas * Copyright (c) 1997 - 2003 Kungliga Tekniska H��gskolan 3233294Sstas * (Royal Institute of Technology, Stockholm, Sweden). 4233294Sstas * All rights reserved. 555682Smarkm * 6233294Sstas * Redistribution and use in source and binary forms, with or without 7233294Sstas * modification, are permitted provided that the following conditions 8233294Sstas * are met: 955682Smarkm * 10233294Sstas * 1. Redistributions of source code must retain the above copyright 11233294Sstas * notice, this list of conditions and the following disclaimer. 1255682Smarkm * 13233294Sstas * 2. Redistributions in binary form must reproduce the above copyright 14233294Sstas * notice, this list of conditions and the following disclaimer in the 15233294Sstas * documentation and/or other materials provided with the distribution. 1655682Smarkm * 17233294Sstas * 3. Neither the name of the Institute nor the names of its contributors 18233294Sstas * may be used to endorse or promote products derived from this software 19233294Sstas * without specific prior written permission. 2055682Smarkm * 21233294Sstas * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 22233294Sstas * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23233294Sstas * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24233294Sstas * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 25233294Sstas * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26233294Sstas * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27233294Sstas * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28233294Sstas * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29233294Sstas * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30233294Sstas * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31233294Sstas * SUCH DAMAGE. 3255682Smarkm */ 3355682Smarkm 3455682Smarkm#include "krb5_locl.h" 3555682Smarkm 36233294SstasKRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL 3755682Smarkmkrb5_mk_error(krb5_context context, 3855682Smarkm krb5_error_code error_code, 3955682Smarkm const char *e_text, 4055682Smarkm const krb5_data *e_data, 4155682Smarkm const krb5_principal client, 4255682Smarkm const krb5_principal server, 43102644Snectar time_t *client_time, 44102644Snectar int *client_usec, 4555682Smarkm krb5_data *reply) 4655682Smarkm{ 47233294Sstas const char *e_text2 = NULL; 4855682Smarkm KRB_ERROR msg; 49178825Sdfr krb5_timestamp sec; 50178825Sdfr int32_t usec; 51233294Sstas size_t len = 0; 5255682Smarkm krb5_error_code ret = 0; 5355682Smarkm 5455682Smarkm krb5_us_timeofday (context, &sec, &usec); 5555682Smarkm 5655682Smarkm memset(&msg, 0, sizeof(msg)); 5755682Smarkm msg.pvno = 5; 5855682Smarkm msg.msg_type = krb_error; 5955682Smarkm msg.stime = sec; 6055682Smarkm msg.susec = usec; 61102644Snectar msg.ctime = client_time; 62102644Snectar msg.cusec = client_usec; 6355682Smarkm /* Make sure we only send `protocol' error codes */ 6455682Smarkm if(error_code < KRB5KDC_ERR_NONE || error_code >= KRB5_ERR_RCSID) { 6555682Smarkm if(e_text == NULL) 66233294Sstas e_text = e_text2 = krb5_get_error_message(context, error_code); 6755682Smarkm error_code = KRB5KRB_ERR_GENERIC; 6855682Smarkm } 6955682Smarkm msg.error_code = error_code - KRB5KDC_ERR_NONE; 7055682Smarkm if (e_text) 71178825Sdfr msg.e_text = rk_UNCONST(&e_text); 7255682Smarkm if (e_data) 73178825Sdfr msg.e_data = rk_UNCONST(e_data); 7455682Smarkm if(server){ 7555682Smarkm msg.realm = server->realm; 7655682Smarkm msg.sname = server->name; 7755682Smarkm }else{ 78233294Sstas static char unspec[] = "<unspecified realm>"; 79233294Sstas msg.realm = unspec; 8055682Smarkm } 8155682Smarkm if(client){ 8255682Smarkm msg.crealm = &client->realm; 8355682Smarkm msg.cname = &client->name; 8455682Smarkm } 8555682Smarkm 86103423Snectar ASN1_MALLOC_ENCODE(KRB_ERROR, reply->data, reply->length, &msg, &len, ret); 87233294Sstas if (e_text2) 88233294Sstas krb5_free_error_message(context, e_text2); 89103423Snectar if (ret) 90103423Snectar return ret; 91103423Snectar if(reply->length != len) 92103423Snectar krb5_abortx(context, "internal error in ASN.1 encoder"); 93103423Snectar return 0; 9455682Smarkm} 95