xref: /freebsd-src/crypto/heimdal/lib/gssapi/krb5/address_to_krb5addr.c (revision 6a068746777241722b2b32c5d0bc443a2a64d80b)
1c19800e8SDoug Rabson /*
2*ae771770SStanislav Sedov  * Copyright (c) 2000 - 2001 Kungliga Tekniska Högskolan
3c19800e8SDoug Rabson  * (Royal Institute of Technology, Stockholm, Sweden).
4c19800e8SDoug Rabson  * All rights reserved.
5c19800e8SDoug Rabson  *
6c19800e8SDoug Rabson  * Redistribution and use in source and binary forms, with or without
7c19800e8SDoug Rabson  * modification, are permitted provided that the following conditions
8c19800e8SDoug Rabson  * are met:
9c19800e8SDoug Rabson  *
10c19800e8SDoug Rabson  * 1. Redistributions of source code must retain the above copyright
11c19800e8SDoug Rabson  *    notice, this list of conditions and the following disclaimer.
12c19800e8SDoug Rabson  *
13c19800e8SDoug Rabson  * 2. Redistributions in binary form must reproduce the above copyright
14c19800e8SDoug Rabson  *    notice, this list of conditions and the following disclaimer in the
15c19800e8SDoug Rabson  *    documentation and/or other materials provided with the distribution.
16c19800e8SDoug Rabson  *
17c19800e8SDoug Rabson  * 3. Neither the name of the Institute nor the names of its contributors
18c19800e8SDoug Rabson  *    may be used to endorse or promote products derived from this software
19c19800e8SDoug Rabson  *    without specific prior written permission.
20c19800e8SDoug Rabson  *
21c19800e8SDoug Rabson  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22c19800e8SDoug Rabson  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23c19800e8SDoug Rabson  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24c19800e8SDoug Rabson  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25c19800e8SDoug Rabson  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26c19800e8SDoug Rabson  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27c19800e8SDoug Rabson  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28c19800e8SDoug Rabson  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29c19800e8SDoug Rabson  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30c19800e8SDoug Rabson  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31c19800e8SDoug Rabson  * SUCH DAMAGE.
32c19800e8SDoug Rabson  */
33c19800e8SDoug Rabson 
34*ae771770SStanislav Sedov #include "gsskrb5_locl.h"
35c19800e8SDoug Rabson 
36c19800e8SDoug Rabson #include <roken.h>
37c19800e8SDoug Rabson 
38c19800e8SDoug Rabson krb5_error_code
_gsskrb5i_address_to_krb5addr(krb5_context context,OM_uint32 gss_addr_type,gss_buffer_desc * gss_addr,int16_t port,krb5_address * address)39c19800e8SDoug Rabson _gsskrb5i_address_to_krb5addr(krb5_context context,
40c19800e8SDoug Rabson 			      OM_uint32 gss_addr_type,
41c19800e8SDoug Rabson 			      gss_buffer_desc *gss_addr,
42c19800e8SDoug Rabson 			      int16_t port,
43c19800e8SDoug Rabson 			      krb5_address *address)
44c19800e8SDoug Rabson {
45c19800e8SDoug Rabson    int addr_type;
46c19800e8SDoug Rabson    struct sockaddr sa;
47c19800e8SDoug Rabson    krb5_socklen_t sa_size = sizeof(sa);
48c19800e8SDoug Rabson    krb5_error_code problem;
49c19800e8SDoug Rabson 
50c19800e8SDoug Rabson    if (gss_addr == NULL)
51c19800e8SDoug Rabson       return GSS_S_FAILURE;
52c19800e8SDoug Rabson 
53c19800e8SDoug Rabson    switch (gss_addr_type) {
54c19800e8SDoug Rabson #ifdef HAVE_IPV6
55c19800e8SDoug Rabson       case GSS_C_AF_INET6: addr_type = AF_INET6;
56c19800e8SDoug Rabson                            break;
57c19800e8SDoug Rabson #endif /* HAVE_IPV6 */
58c19800e8SDoug Rabson 
59c19800e8SDoug Rabson       case GSS_C_AF_INET:  addr_type = AF_INET;
60c19800e8SDoug Rabson                            break;
61c19800e8SDoug Rabson       default:
62c19800e8SDoug Rabson                            return GSS_S_FAILURE;
63c19800e8SDoug Rabson    }
64c19800e8SDoug Rabson 
65c19800e8SDoug Rabson    problem = krb5_h_addr2sockaddr (context,
66c19800e8SDoug Rabson 				   addr_type,
67c19800e8SDoug Rabson                                    gss_addr->value,
68c19800e8SDoug Rabson                                    &sa,
69c19800e8SDoug Rabson                                    &sa_size,
70c19800e8SDoug Rabson                                    port);
71c19800e8SDoug Rabson    if (problem)
72c19800e8SDoug Rabson       return GSS_S_FAILURE;
73c19800e8SDoug Rabson 
74c19800e8SDoug Rabson    problem = krb5_sockaddr2address (context, &sa, address);
75c19800e8SDoug Rabson 
76c19800e8SDoug Rabson    return problem;
77c19800e8SDoug Rabson }
78