2 * Copyright 1985, 1986, 1987, 1988 by the Massachusetts Institute of Technology.
3 * For copying and distribution information, please see the file <mit-copyright.h>.
11 * Specialized version of the kerberos krb_get_lrealm function.
12 * krb_get_lrealm takes a pointer to a string, and a number, n. It fills
13 * in the string, r, with the name of the nth realm specified on the
14 * first line of the kerberos config file (KRB_CONF, defined in "krb.h").
15 * It returns 0 (KSUCCESS) on success, and KFAILURE on failure.
17 * On the kerberos version if the config file does not exist, and if n=1, a
18 * successful return will occur with r = KRB_REALM (also defined in "krb.h").
24 afs_krb_get_lrealm(r,n)
28 FILE *cnffile, *fopen();
31 return(KFAILURE); /* Temporary restriction */
33 if ((cnffile = fopen(AFSDIR_SERVER_KCONF_FILEPATH, "r")) == NULL) {
36 if (fscanf(cnffile,"%s",r) != 1) {
37 (void) fclose(cnffile);
40 (void) fclose(cnffile);