← 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_req.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_req.c
 
1
/*
 
2
 * Copyright (c) 1997 - 2004 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_req_exact(krb5_context context,
 
40
                  krb5_auth_context *auth_context,
 
41
                  const krb5_flags ap_req_options,
 
42
                  const krb5_principal server,
 
43
                  krb5_data *in_data,
 
44
                  krb5_ccache ccache,
 
45
                  krb5_data *outbuf)
 
46
{
 
47
    krb5_error_code ret;
 
48
    krb5_creds this_cred, *cred;
 
49
 
 
50
    memset(&this_cred, 0, sizeof(this_cred));
 
51
 
 
52
    ret = krb5_cc_get_principal(context, ccache, &this_cred.client);
 
53
 
 
54
    if(ret)
 
55
        return ret;
 
56
 
 
57
    ret = krb5_copy_principal (context, server, &this_cred.server);
 
58
    if (ret) {
 
59
        krb5_free_cred_contents (context, &this_cred);
 
60
        return ret;
 
61
    }
 
62
 
 
63
    this_cred.times.endtime = 0;
 
64
    if (auth_context && *auth_context && (*auth_context)->keytype)
 
65
        this_cred.session.keytype = (*auth_context)->keytype;
 
66
 
 
67
    ret = krb5_get_credentials (context, 0, ccache, &this_cred, &cred);
 
68
    krb5_free_cred_contents(context, &this_cred);
 
69
    if (ret)
 
70
        return ret;
 
71
 
 
72
    ret = krb5_mk_req_extended (context,
 
73
                                auth_context,
 
74
                                ap_req_options,
 
75
                                in_data,
 
76
                                cred,
 
77
                                outbuf);
 
78
    krb5_free_creds(context, cred);
 
79
    return ret;
 
80
}
 
81
 
 
82
krb5_error_code KRB5_LIB_FUNCTION
 
83
krb5_mk_req(krb5_context context,
 
84
            krb5_auth_context *auth_context,
 
85
            const krb5_flags ap_req_options,
 
86
            const char *service,
 
87
            const char *hostname,
 
88
            krb5_data *in_data,
 
89
            krb5_ccache ccache,
 
90
            krb5_data *outbuf)
 
91
{
 
92
    krb5_error_code ret;
 
93
    char **realms;
 
94
    char *real_hostname;
 
95
    krb5_principal server;
 
96
 
 
97
    ret = krb5_expand_hostname_realms (context, hostname,
 
98
                                       &real_hostname, &realms);
 
99
    if (ret)
 
100
        return ret;
 
101
 
 
102
    ret = krb5_build_principal (context, &server,
 
103
                                strlen(*realms),
 
104
                                *realms,
 
105
                                service,
 
106
                                real_hostname,
 
107
                                NULL);
 
108
    free (real_hostname);
 
109
    krb5_free_host_realm (context, realms);
 
110
    if (ret)
 
111
        return ret;
 
112
    ret = krb5_mk_req_exact (context, auth_context, ap_req_options,
 
113
                             server, in_data, ccache, outbuf);
 
114
    krb5_free_principal (context, server);
 
115
    return ret;
 
116
}