src/lib/krb5/os/sn2princ.c

   1 /* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */
   2 /* lib/krb5/os/sn2princ.c */
   3 /*
   4  * Copyright 1991,2002 by the Massachusetts Institute of Technology.
   5  * All Rights Reserved.
   6  *
   7  * Export of this software from the United States of America may
   8  *   require a specific license from the United States Government.
   9  *   It is the responsibility of any person or organization contemplating
  10  *   export to obtain such a license before exporting.
  11  *
  12  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
  13  * distribute this software and its documentation for any purpose and
  14  * without fee is hereby granted, provided that the above copyright
  15  * notice appear in all copies and that both that copyright notice and
  16  * this permission notice appear in supporting documentation, and that
  17  * the name of M.I.T. not be used in advertising or publicity pertaining
  18  * to distribution of the software without specific, written prior
  19  * permission.  Furthermore if you modify this software you must label
  20  * your software as modified software and not distribute it in such a
  21  * fashion that it might be confused with the original M.I.T. software.
  22  * M.I.T. makes no representations about the suitability of
  23  * this software for any purpose.  It is provided "as is" without express
  24  * or implied warranty.
  25  */
  26
  27 /* Convert a hostname and service name to a principal in the "standard"
  28  * form. */
  29
  30 #include "k5-int.h"
  31 #include "os-proto.h"
  32 #include "fake-addrinfo.h"
  33 #include <ctype.h>
  34 #ifdef HAVE_SYS_PARAM_H
  35 #include <sys/param.h>
  36 #endif
  37
  38 #if !defined(DEFAULT_RDNS_LOOKUP)
  39 #define DEFAULT_RDNS_LOOKUP 1
  40 #endif
  41
  42 static int
  43 maybe_use_reverse_dns (krb5_context context, int defalt)
  44 {
  45     krb5_error_code code;
  46     char * value = NULL;
  47     int use_rdns = 0;
  48
  49     code = profile_get_string(context->profile, KRB5_CONF_LIBDEFAULTS,
  50                               KRB5_CONF_RDNS, 0, 0, &value);
  51     if (code)
  52         return defalt;
  53
  54     if (value == 0)
  55         return defalt;
  56
  57     use_rdns = _krb5_conf_boolean(value);
  58     profile_release_string(value);
  59     return use_rdns;
  60 }
  61
  62
  63 krb5_error_code KRB5_CALLCONV
  64 krb5_sname_to_principal(krb5_context context, const char *hostname, const char *sname, krb5_int32 type, krb5_principal *ret_princ)
  65 {
  66     char **hrealms, *realm, *remote_host;
  67     krb5_error_code retval;
  68     register char *cp;
  69     char localname[MAXHOSTNAMELEN];
  70
  71 #ifdef DEBUG_REFERRALS
  72     printf("krb5_sname_to_principal(host=%s, sname=%s, type=%d)\n",hostname,sname,type);
  73     printf("      name types: 0=unknown, 3=srv_host\n");
  74 #endif
  75
  76     if ((type == KRB5_NT_UNKNOWN) ||
  77         (type == KRB5_NT_SRV_HST)) {
  78
  79         /* if hostname is NULL, use local hostname */
  80         if (! hostname) {
  81             if (gethostname(localname, MAXHOSTNAMELEN))
  82                 return SOCKET_ERRNO;
  83             hostname = localname;
  84         }
  85
  86         /* if sname is NULL, use "host" */
  87         if (! sname)
  88             sname = "host";
  89
  90         /* copy the hostname into non-volatile storage */
  91
  92         if (type == KRB5_NT_SRV_HST) {
  93             struct addrinfo *ai = NULL, hints;
  94             int err;
  95             char hnamebuf[NI_MAXHOST];
  96
  97             /* Note that the old code would accept numeric addresses,
  98                and if the gethostbyaddr step could convert them to
  99                real hostnames, you could actually get reasonable
 100                results.  If the mapping failed, you'd get dotted
 101                triples as realm names.  *sigh*
 102
 103                The latter has been fixed in hst_realm.c, but we should
 104                keep supporting numeric addresses if they do have
 105                hostnames associated.  */
 106
 107             memset(&hints, 0, sizeof(hints));
 108             hints.ai_flags = AI_CANONNAME | AI_ADDRCONFIG;
 109             err = getaddrinfo(hostname, 0, &hints, &ai);
 110             if (err) {
 111 #ifdef DEBUG_REFERRALS
 112                 printf("sname_to_princ: failed to canonicalize %s; using as-is", hostname);
 113 #endif
 114             }
 115             remote_host = strdup((ai && ai->ai_canonname) ? ai->ai_canonname : hostname);
 116             if (!remote_host) {
 117                 if(ai)
 118                     freeaddrinfo(ai);
 119                 return ENOMEM;
 120             }
 121
 122             if ((!err) && maybe_use_reverse_dns(context, DEFAULT_RDNS_LOOKUP)) {
 123                 /*
 124                  * Do a reverse resolution to get the full name, just in
 125                  * case there's some funny business going on.  If there
 126                  * isn't an in-addr record, give up.
 127                  */
 128                 /* XXX: This is *so* bogus.  There are several cases where
 129                    this won't get us the canonical name of the host, but
 130                    this is what we've trained people to expect.  We'll
 131                    probably fix it at some point, but let's try to
 132                    preserve the current behavior and only shake things up
 133                    once when it comes time to fix this lossage.  */
 134                 err = getnameinfo(ai->ai_addr, ai->ai_addrlen,
 135                                   hnamebuf, sizeof(hnamebuf), 0, 0, NI_NAMEREQD);
 136                 freeaddrinfo(ai);
 137                 if (err == 0) {
 138                     free(remote_host);
 139                     remote_host = strdup(hnamebuf);
 140                     if (!remote_host)
 141                         return ENOMEM;
 142                 }
 143             } else
 144                 freeaddrinfo(ai);
 145         } else /* type == KRB5_NT_UNKNOWN */ {
 146             remote_host = strdup(hostname);
 147         }
 148         if (!remote_host)
 149             return ENOMEM;
 150 #ifdef DEBUG_REFERRALS
 151         printf("sname_to_princ: hostname <%s> after rdns processing\n",remote_host);
 152 #endif
 153
 154         if (type == KRB5_NT_SRV_HST)
 155             for (cp = remote_host; *cp; cp++)
 156                 if (isupper((unsigned char) (*cp)))
 157                     *cp = tolower((unsigned char) (*cp));
 158
 159         /*
 160          * Windows NT5's broken resolver gratuitously tacks on a
 161          * trailing period to the hostname (at least it does in
 162          * Beta2).  Find and remove it.
 163          */
 164         if (remote_host[0]) {
 165             cp = remote_host + strlen(remote_host)-1;
 166             if (*cp == '.')
 167                 *cp = 0;
 168         }
 169
 170
 171         if ((retval = krb5_get_host_realm(context, remote_host, &hrealms))) {
 172             free(remote_host);
 173             return retval;
 174         }
 175
 176 #ifdef DEBUG_REFERRALS
 177         printf("sname_to_princ:  realm <%s> after krb5_get_host_realm\n",hrealms[0]);
 178 #endif
 179
 180         if (!hrealms[0]) {
 181             free(remote_host);
 182             free(hrealms);
 183             return KRB5_ERR_HOST_REALM_UNKNOWN;
 184         }
 185         realm = hrealms[0];
 186
 187         retval = krb5_build_principal(context, ret_princ, strlen(realm),
 188                                       realm, sname, remote_host,
 189                                       (char *)0);
 190         if (retval == 0)
 191             krb5_princ_type(context, *ret_princ) = type;
 192
 193 #ifdef DEBUG_REFERRALS
 194         printf("krb5_sname_to_principal returning\n");
 195         printf("realm: <%s>, sname: <%s>, remote_host: <%s>\n",
 196                realm,sname,remote_host);
 197         krb5int_dbgref_dump_principal("krb5_sname_to_principal",*ret_princ);
 198 #endif
 199
 200         free(remote_host);
 201
 202         krb5_free_host_realm(context, hrealms);
 203         return retval;
 204     } else {
 205         return KRB5_SNAME_UNSUPP_NAMETYPE;
 206     }
 207 }