#define NEED_SOCKETS
#include "k5-int.h"
#include "os-proto.h"
#include <ctype.h>
#include <stdio.h>
#ifdef HAVE_STRING_H
#include <string.h>
#else
#include <strings.h>
#endif
#include "fake-addrinfo.h"
#ifdef KRB5_DNS_LOOKUP
#include "dnsglue.h"
krb5_error_code
krb5_try_realm_txt_rr(const char *prefix, const char *name, char **realm)
{
krb5_error_code retval = KRB5_ERR_HOST_REALM_UNKNOWN;
const unsigned char *p, *base;
char host[MAXDNAME], *h;
int ret, rdlen, len;
struct krb5int_dns_state *ds = NULL;
if (name == NULL || name[0] == '\0') {
if (strlen (prefix) >= sizeof(host)-1)
return KRB5_ERR_HOST_REALM_UNKNOWN;
strcpy(host,prefix);
} else {
if ( strlen(prefix) + strlen(name) + 3 > MAXDNAME )
return KRB5_ERR_HOST_REALM_UNKNOWN;
sprintf(host,"%s.%s", prefix, name);
h = host + strlen (host);
if ((h > host) && (h[-1] != '.') && ((h - host + 1) < sizeof(host)))
strcpy (h, ".");
}
ret = krb5int_dns_init(&ds, host, C_IN, T_TXT);
if (ret < 0)
goto errout;
ret = krb5int_dns_nextans(ds, &base, &rdlen);
if (ret < 0 || base == NULL)
goto errout;
p = base;
if (!INCR_OK(base, rdlen, p, 1))
goto errout;
len = *p++;
*realm = malloc((size_t)len + 1);
if (*realm == NULL) {
retval = ENOMEM;
goto errout;
}
strncpy(*realm, (const char *)p, (size_t)len);
(*realm)[len] = '\0';
if ( (*realm)[len-1] == '.' )
(*realm)[len-1] = '\0';
retval = 0;
errout:
if (ds != NULL) {
krb5int_dns_fini(ds);
ds = NULL;
}
return retval;
}
#else
#ifndef MAXDNAME
#define MAXDNAME (16 * MAXHOSTNAMELEN)
#endif
#endif
krb5_error_code krb5int_translate_gai_error (int);
static krb5_error_code
krb5int_get_fq_hostname (char *buf, size_t bufsize, const char *name)
{
struct addrinfo *ai, hints;
int err;
memset (&hints, 0, sizeof (hints));
hints.ai_flags = AI_CANONNAME;
err = getaddrinfo (name, 0, &hints, &ai);
if (err)
return krb5int_translate_gai_error (err);
if (ai->ai_canonname == 0)
return KRB5_EAI_FAIL;
strncpy (buf, ai->ai_canonname, bufsize);
buf[bufsize-1] = 0;
freeaddrinfo (ai);
return 0;
}
krb5_error_code
krb5int_get_fq_local_hostname (char *buf, size_t bufsiz)
{
buf[0] = 0;
if (gethostname (buf, bufsiz) == -1)
return SOCKET_ERRNO;
buf[bufsiz - 1] = 0;
return krb5int_get_fq_hostname (buf, bufsiz, buf);
}
krb5_error_code KRB5_CALLCONV
krb5_get_host_realm(krb5_context context, const char *host, char ***realmsp)
{
char **retrealms;
char *default_realm, *realm, *cp, *temp_realm;
krb5_error_code retval;
int l;
char local_host[MAXDNAME+1];
if (host) {
if (strspn(host, "01234567890.") == strlen(host)) {
int ndots = 0;
const char *p;
for (p = host; *p; p++)
if (*p == '.')
ndots++;
if (ndots == 3)
return KRB5_ERR_NUMERIC_REALM;
}
if (strchr(host, ':'))
return KRB5_ERR_NUMERIC_REALM;
strncpy(local_host, host, sizeof(local_host));
local_host[sizeof(local_host) - 1] = '\0';
} else {
retval = krb5int_get_fq_local_hostname (local_host,
sizeof (local_host));
if (retval)
return retval;
}
for (cp = local_host; *cp; cp++) {
if (isupper((int) (*cp)))
*cp = tolower((int) *cp);
}
l = strlen(local_host);
if (l && local_host[l-1] == '.')
local_host[l-1] = 0;
cp = local_host;
realm = default_realm = (char *)NULL;
temp_realm = 0;
while (cp) {
retval = profile_get_string(context->profile, "domain_realm", cp,
0, (char *)NULL, &temp_realm);
if (retval)
return retval;
if (temp_realm != (char *)NULL)
break;
if (*cp == '.') {
cp++;
if (default_realm == (char *)NULL) {
default_realm = cp;
}
} else {
cp = strchr(cp, '.');
}
}
if (temp_realm) {
realm = malloc(strlen(temp_realm) + 1);
if (!realm) {
profile_release_string(temp_realm);
return ENOMEM;
}
strcpy(realm, temp_realm);
profile_release_string(temp_realm);
}
#ifdef KRB5_DNS_LOOKUP
if (realm == (char *)NULL) {
int use_dns = _krb5_use_dns_realm(context);
if ( use_dns ) {
cp = local_host;
do {
retval = krb5_try_realm_txt_rr("_kerberos", cp, &realm);
cp = strchr(cp,'.');
if (cp)
cp++;
} while (retval && cp && cp[0]);
}
}
#endif
if (realm == (char *)NULL) {
if (default_realm != (char *)NULL) {
if (!(cp = (char *)malloc(strlen(default_realm)+1)))
return ENOMEM;
strcpy(cp, default_realm);
realm = cp;
for (cp = realm; *cp; cp++)
if (islower((int) (*cp)))
*cp = toupper((int) *cp);
} else {
retval = krb5_get_default_realm(context, &realm);
if (retval) {
return retval;
}
}
}
if (!(retrealms = (char **)calloc(2, sizeof(*retrealms)))) {
if (realm != (char *)NULL)
free(realm);
return ENOMEM;
}
retrealms[0] = realm;
retrealms[1] = 0;
*realmsp = retrealms;
return 0;
}
#if defined(_WIN32) && !defined(__CYGWIN32__)
# ifndef EAFNOSUPPORT
# define EAFNOSUPPORT WSAEAFNOSUPPORT
# endif
#endif
krb5_error_code
krb5int_translate_gai_error (int num)
{
switch (num) {
#ifdef EAI_ADDRFAMILY
case EAI_ADDRFAMILY:
return EAFNOSUPPORT;
#endif
case EAI_AGAIN:
return EAGAIN;
case EAI_BADFLAGS:
return EINVAL;
case EAI_FAIL:
return KRB5_EAI_FAIL;
case EAI_FAMILY:
return EAFNOSUPPORT;
case EAI_MEMORY:
return ENOMEM;
#if EAI_NODATA != EAI_NONAME
case EAI_NODATA:
return KRB5_EAI_NODATA;
#endif
case EAI_NONAME:
return KRB5_EAI_NONAME;
case EAI_SERVICE:
return KRB5_EAI_SERVICE;
case EAI_SOCKTYPE:
return EINVAL;
#ifdef EAI_SYSTEM
case EAI_SYSTEM:
return errno;
#endif
}
abort ();
return -1;
}