← Back to branch summary

~zulcss/samba/server-dailies-3.4

« back to all changes in this revision

Viewing changes to source4/heimdal/lib/krb5/mk_error.c

  • Committer: Chuck Short
  • Date: 2010-09-28 20:38:39 UTC
  • Revision ID: zulcss@ubuntu.com-20100928203839-pgjulytsi9ue63x1
Initial version

Show diffs side-by-side

added added

removed removed

Lines of Context:
source4/heimdal/lib/krb5/mk_error.c
 
1
/*
 
2
 * Copyright (c) 1997 - 2003 Kungliga Tekniska Högskolan
 
3
 * (Royal Institute of Technology, Stockholm, Sweden).
 
4
 * All rights reserved.
 
5
 *
 
6
 * Redistribution and use in source and binary forms, with or without
 
7
 * modification, are permitted provided that the following conditions
 
8
 * are met:
 
9
 *
 
10
 * 1. Redistributions of source code must retain the above copyright
 
11
 *    notice, this list of conditions and the following disclaimer.
 
12
 *
 
13
 * 2. Redistributions in binary form must reproduce the above copyright
 
14
 *    notice, this list of conditions and the following disclaimer in the
 
15
 *    documentation and/or other materials provided with the distribution.
 
16
 *
 
17
 * 3. Neither the name of the Institute nor the names of its contributors
 
18
 *    may be used to endorse or promote products derived from this software
 
19
 *    without specific prior written permission.
 
20
 *
 
21
 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
 
22
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 
23
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 
24
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
 
25
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 
26
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 
27
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 
28
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 
29
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 
30
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 
31
 * SUCH DAMAGE.
 
32
 */
 
33
 
 
34
#include "krb5_locl.h"
 
35
 
 
36
RCSID("$Id$");
 
37
 
 
38
krb5_error_code KRB5_LIB_FUNCTION
 
39
krb5_mk_error(krb5_context context,
 
40
              krb5_error_code error_code,
 
41
              const char *e_text,
 
42
              const krb5_data *e_data,
 
43
              const krb5_principal client,
 
44
              const krb5_principal server,
 
45
              time_t *client_time,
 
46
              int *client_usec,
 
47
              krb5_data *reply)
 
48
{
 
49
    KRB_ERROR msg;
 
50
    krb5_timestamp sec;
 
51
    int32_t usec;
 
52
    size_t len;
 
53
    krb5_error_code ret = 0;
 
54
 
 
55
    krb5_us_timeofday (context, &sec, &usec);
 
56
 
 
57
    memset(&msg, 0, sizeof(msg));
 
58
    msg.pvno     = 5;
 
59
    msg.msg_type = krb_error;
 
60
    msg.stime    = sec;
 
61
    msg.susec    = usec;
 
62
    msg.ctime    = client_time;
 
63
    msg.cusec    = client_usec;
 
64
    /* Make sure we only send `protocol' error codes */
 
65
    if(error_code < KRB5KDC_ERR_NONE || error_code >= KRB5_ERR_RCSID) {
 
66
        if(e_text == NULL)
 
67
            e_text = krb5_get_err_text(context, error_code);
 
68
        error_code = KRB5KRB_ERR_GENERIC;
 
69
    }
 
70
    msg.error_code = error_code - KRB5KDC_ERR_NONE;
 
71
    if (e_text)
 
72
        msg.e_text = rk_UNCONST(&e_text);
 
73
    if (e_data)
 
74
        msg.e_data = rk_UNCONST(e_data);
 
75
    if(server){
 
76
        msg.realm = server->realm;
 
77
        msg.sname = server->name;
 
78
    }else{
 
79
        msg.realm = "<unspecified realm>";
 
80
    }
 
81
    if(client){
 
82
        msg.crealm = &client->realm;
 
83
        msg.cname = &client->name;
 
84
    }
 
85
 
 
86
    ASN1_MALLOC_ENCODE(KRB_ERROR, reply->data, reply->length, &msg, &len, ret);
 
87
    if (ret)
 
88
        return ret;
 
89
    if(reply->length != len)
 
90
        krb5_abortx(context, "internal error in ASN.1 encoder");
 
91
    return 0;
 
92
}