.ref-BSD-4_3_Net_2/usr/src/kerberosIV/krb/get_krbrlm.c

/*
 * $Source: /usr/src/kerberosIV/krb/RCS/get_krbrlm.c,v $
 * $Author: kfall $
 *
 * Copyright 1985, 1986, 1987, 1988 by the Massachusetts Institute
 * of Technology.
 *
 * For copying and distribution information, please see the file
 * <mit-copyright.h>.
 */

#ifndef lint
static char *rcsid_get_krbrlm_c =
"$Header: /usr/src/kerberosIV/krb/RCS/get_krbrlm.c,v 4.10 91/03/29 15:10:53 kfall Exp Locker: kfall $";
#endif /* lint */

#include <mit-copyright.h>
#include <stdio.h>
#include <des.h>
#include <krb.h>
#include <strings.h>

/*
 * krb_get_lrealm takes a pointer to a string, and a number, n.  It fills
 * in the string, r, with the name of the nth realm specified on the
 * first line of the kerberos config file (KRB_CONF, defined in "krb.h").
 * It returns 0 (KSUCCESS) on success, and KFAILURE on failure.  If the
 * config file does not exist, and if n=1, a successful return will occur
 * with r = KRB_REALM (also defined in "krb.h").
 *
 * NOTE: for archaic & compatibility reasons, this routine will only return
 * valid results when n = 1.
 *
 * For the format of the KRB_CONF file, see comments describing the routine
 * krb_get_krbhst().
 */

krb_get_lrealm(r,n)
    char *r;
    int n;
{
    FILE *cnffile, *fopen();


    if ((cnffile = fopen(KRB_CONF, "r")) == (FILE *) NULL)
            return(KFAILURE);

#ifdef notdef

        dont want this -- kfall

    if (n > 1)
        return(KFAILURE);  /* Temporary restriction */

    if ((cnffile = fopen(KRB_CONF, "r")) == NULL) {
        if (n == 1) {
            (void) strcpy(r, KRB_REALM);
            return(KSUCCESS);
        }
        else
            return(KFAILURE);
    }

#endif

    if (fscanf(cnffile,"%s",r) != 1) {
        (void) fclose(cnffile);
        return(KFAILURE);
    }
    (void) fclose(cnffile);
    return(KSUCCESS);
}