Return to get_phost.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / kerberosIV / krb

Annotation of 43BSDReno/kerberosIV/krb/get_phost.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * $Source: /usr/src/kerberosIV/krb/RCS/get_phost.c,v $
        !             3:  * $Author: kfall $
        !             4:  *
        !             5:  * Copyright 1988 by the Massachusetts Institute of Technology.
        !             6:  *
        !             7:  * For copying and distribution information, please see the file
        !             8:  * <mit-copyright.h>.
        !             9:  */
        !            10: 
        !            11: #ifndef lint
        !            12: static char *rcsid_phost_c =
        !            13: "$Header: /usr/src/kerberosIV/krb/RCS/get_phost.c,v 4.7 90/06/25 20:57:57 kfall Exp $";
        !            14: #endif /* lint */
        !            15: 
        !            16: #include <mit-copyright.h>
        !            17: #include <stdio.h>
        !            18: #include <ctype.h>
        !            19: #include <netdb.h>
        !            20: 
        !            21: char *index();
        !            22: 
        !            23: /*
        !            24:  * This routine takes an alias for a host name and returns the first
        !            25:  * field, lower case, of its domain name.  For example, if "menel" is
        !            26:  * an alias for host officially named "menelaus" (in /etc/hosts), for
        !            27:  * the host whose official name is "MENELAUS.MIT.EDU", the name "menelaus"
        !            28:  * is returned.
        !            29:  *
        !            30:  * This is done for historical Athena reasons: the Kerberos name of
        !            31:  * rcmd servers (rlogin, rsh, rcp) is of the form "rcmd.host@realm"
        !            32:  * where "host"is the lowercase for of the host name ("menelaus").
        !            33:  * This should go away: the instance should be the domain name
        !            34:  * (MENELAUS.MIT.EDU).  But for now we need this routine...
        !            35:  *
        !            36:  * A pointer to the name is returned, if found, otherwise a pointer
        !            37:  * to the original "alias" argument is returned.
        !            38:  */
        !            39: 
        !            40: char * krb_get_phost(alias)
        !            41:     char *alias;
        !            42: {
        !            43:     struct hostent *h;
        !            44:     char *phost = alias;
        !            45:     if ((h=gethostbyname(alias)) != (struct hostent *)NULL ) {
        !            46:         char *p = index( h->h_name, '.' );
        !            47:         if (p)
        !            48:             *p = NULL;
        !            49:         p = phost = h->h_name;
        !            50:         do {
        !            51:             if (isupper(*p)) *p=tolower(*p);
        !            52:         } while (*p++);
        !            53:     }
        !            54:     return(phost);
        !            55: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.