60643d379b
(Including all changes for FreeBSD - importing the original eBones distribution would be too complex at this stage, since I don't have access to Piero's CVS.) (If you want to include eBones in your system, don't forget to include MAKE_EBONES in /etc/make.conf.) (This stuff is now also suppable from braae.ru.ac.za.) Bones originally from MIT SIPB. Original port to FreeBSD 1.x by Piero Serini. Moved to FreeBSD 2.0 by Doug Rabson and Geoff Rehmet. Nice bug fixes from Doug Rabson.
105 lines
2.5 KiB
C
105 lines
2.5 KiB
C
/*
|
|
* Copyright 1988 by the Massachusetts Institute of Technology.
|
|
* For copying and distribution information, please see the file
|
|
* <Copyright.MIT>.
|
|
*
|
|
* routine to convert hostname into realm name.
|
|
*
|
|
* from: getrealm.c,v 4.6 90/01/02 13:35:56 jtkohl Exp $
|
|
* $Id: getrealm.c,v 1.2 1994/07/19 19:25:31 g89r4222 Exp $
|
|
*/
|
|
|
|
#ifndef lint
|
|
static char rcsid[] =
|
|
"$Id: getrealm.c,v 1.2 1994/07/19 19:25:31 g89r4222 Exp $";
|
|
#endif lint
|
|
|
|
#include <strings.h>
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <krb.h>
|
|
#include <sys/param.h>
|
|
|
|
/* for Ultrix and friends ... */
|
|
#ifndef MAXHOSTNAMELEN
|
|
#define MAXHOSTNAMELEN 64
|
|
#endif
|
|
|
|
/*
|
|
* krb_realmofhost.
|
|
* Given a fully-qualified domain-style primary host name,
|
|
* return the name of the Kerberos realm for the host.
|
|
* If the hostname contains no discernable domain, or an error occurs,
|
|
* return the local realm name, as supplied by get_krbrlm().
|
|
* If the hostname contains a domain, but no translation is found,
|
|
* the hostname's domain is converted to upper-case and returned.
|
|
*
|
|
* The format of each line of the translation file is:
|
|
* domain_name kerberos_realm
|
|
* -or-
|
|
* host_name kerberos_realm
|
|
*
|
|
* domain_name should be of the form .XXX.YYY (e.g. .LCS.MIT.EDU)
|
|
* host names should be in the usual form (e.g. FOO.BAR.BAZ)
|
|
*/
|
|
|
|
static char ret_realm[REALM_SZ+1];
|
|
|
|
char *
|
|
krb_realmofhost(host)
|
|
char *host;
|
|
{
|
|
char *domain;
|
|
FILE *trans_file;
|
|
char trans_host[MAXHOSTNAMELEN+1];
|
|
char trans_realm[REALM_SZ+1];
|
|
int retval;
|
|
|
|
domain = index(host, '.');
|
|
|
|
/* prepare default */
|
|
if (domain) {
|
|
char *cp;
|
|
|
|
strncpy(ret_realm, &domain[1], REALM_SZ);
|
|
ret_realm[REALM_SZ] = '\0';
|
|
/* Upper-case realm */
|
|
for (cp = ret_realm; *cp; cp++)
|
|
if (islower(*cp))
|
|
*cp = toupper(*cp);
|
|
} else {
|
|
krb_get_lrealm(ret_realm, 1);
|
|
}
|
|
|
|
if ((trans_file = fopen(KRB_RLM_TRANS, "r")) == (FILE *) 0) {
|
|
/* krb_errno = KRB_NO_TRANS */
|
|
return(ret_realm);
|
|
}
|
|
while (1) {
|
|
if ((retval = fscanf(trans_file, "%s %s",
|
|
trans_host, trans_realm)) != 2) {
|
|
if (retval == EOF) {
|
|
fclose(trans_file);
|
|
return(ret_realm);
|
|
}
|
|
continue; /* ignore broken lines */
|
|
}
|
|
trans_host[MAXHOSTNAMELEN] = '\0';
|
|
trans_realm[REALM_SZ] = '\0';
|
|
if (!strcasecmp(trans_host, host)) {
|
|
/* exact match of hostname, so return the realm */
|
|
(void) strcpy(ret_realm, trans_realm);
|
|
fclose(trans_file);
|
|
return(ret_realm);
|
|
}
|
|
if ((trans_host[0] == '.') && domain) {
|
|
/* this is a domain match */
|
|
if (!strcasecmp(trans_host, domain)) {
|
|
/* domain match, save for later */
|
|
(void) strcpy(ret_realm, trans_realm);
|
|
continue;
|
|
}
|
|
}
|
|
}
|
|
}
|