|
|
1.1 root 1: /*
2: * $Source: /usr/src/kerberosIV/krb/RCS/get_krbrlm.c,v $
3: * $Author: kfall $
4: *
5: * Copyright 1985, 1986, 1987, 1988 by the Massachusetts Institute
6: * of Technology.
7: *
8: * For copying and distribution information, please see the file
9: * <mit-copyright.h>.
10: */
11:
12: #ifndef lint
13: static char *rcsid_get_krbrlm_c =
14: "$Header: /usr/src/kerberosIV/krb/RCS/get_krbrlm.c,v 4.9 90/06/25 20:55:57 kfall Exp $";
15: #endif /* lint */
16:
17: #include <mit-copyright.h>
18: #include <stdio.h>
19: #include <des.h>
20: #include <krb.h>
21: #include <strings.h>
22:
23: /*
24: * krb_get_lrealm takes a pointer to a string, and a number, n. It fills
25: * in the string, r, with the name of the nth realm specified on the
26: * first line of the kerberos config file (KRB_CONF, defined in "krb.h").
27: * It returns 0 (KSUCCESS) on success, and KFAILURE on failure. If the
28: * config file does not exist, and if n=1, a successful return will occur
29: * with r = KRB_REALM (also defined in "krb.h").
30: *
31: * NOTE: for archaic & compatibility reasons, this routine will only return
32: * valid results when n = 1.
33: *
34: * For the format of the KRB_CONF file, see comments describing the routine
35: * krb_get_krbhst().
36: */
37:
38: krb_get_lrealm(r,n)
39: char *r;
40: int n;
41: {
42: FILE *cnffile, *fopen();
43:
44: if (n > 1)
45: return(KFAILURE); /* Temporary restriction */
46:
47: if ((cnffile = fopen(KRB_CONF, "r")) == NULL) {
48: if (n == 1) {
49: (void) strcpy(r, KRB_REALM);
50: return(KSUCCESS);
51: }
52: else
53: return(KFAILURE);
54: }
55:
56: if (fscanf(cnffile,"%s",r) != 1) {
57: (void) fclose(cnffile);
58: return(KFAILURE);
59: }
60: (void) fclose(cnffile);
61: return(KSUCCESS);
62: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.