1 /* This file is part of the Project Athena Zephyr Notification System.
2 * It contains source for the ZGetVariable, ZSetVariable, and ZUnsetVariable
5 * Created by: Robert French
7 * $Id: ZVariables.c,v 1.17 1999/06/03 14:51:42 danw Exp $
9 * Copyright (c) 1987 by the Massachusetts Institute of Technology.
10 * For copying and distribution information, see the file
15 static char rcsid_ZVariables_c[] = "$Id: ZVariables.c,v 1.17 1999/06/03 14:51:42 danw Exp $";
23 static int get_localvarfile __P((char *bfr));
24 static char *get_varval __P((char *fn, char *val));
25 static int varline __P((char *bfr, char *var));
27 char *ZGetVariable(var)
30 char varfile[128], *ret;
33 if (get_localvarfile(varfile))
36 if ((ret = get_varval(varfile, var)) != ZERR_NONE)
39 sprintf(varfile, "%s/zephyr/zephyr.vars", SYSCONFDIR);
40 return (get_varval(varfile, var));
43 Code_t ZSetVariable(var, value)
49 char varfile[128], varfilebackup[128], varbfr[512];
53 if (get_localvarfile(varfile))
54 return (ZERR_INTERNAL);
56 (void) strcpy(varfilebackup, varfile);
57 (void) strcat(varfilebackup, ".backup");
59 if (!(fpout = fopen(varfilebackup, "w")))
61 if ((fpin = fopen(varfile, "r")) != NULL) {
62 while (fgets(varbfr, sizeof varbfr, fpin) != (char *) 0) {
63 if (varbfr[strlen(varbfr)-1] < ' ')
64 varbfr[strlen(varbfr)-1] = '\0';
65 if (varline(varbfr, var)) {
66 fprintf(fpout, "%s = %s\n", var, value);
70 fprintf(fpout, "%s\n", varbfr);
72 (void) fclose(fpin); /* don't care about errs on input */
75 fprintf(fpout, "%s = %s\n", var, value);
76 if (fclose(fpout) == EOF)
77 return(EIO); /* can't rely on errno */
78 if (rename(varfilebackup, varfile))
83 Code_t ZUnsetVariable(var)
87 char varfile[128], varfilebackup[128], varbfr[512];
89 if (get_localvarfile(varfile))
90 return (ZERR_INTERNAL);
92 (void) strcpy(varfilebackup, varfile);
93 (void) strcat(varfilebackup, ".backup");
95 if (!(fpout = fopen(varfilebackup, "w")))
97 if ((fpin = fopen(varfile, "r")) != NULL) {
98 while (fgets(varbfr, sizeof varbfr, fpin) != (char *) 0) {
99 if (varbfr[strlen(varbfr)-1] < ' ')
100 varbfr[strlen(varbfr)-1] = '\0';
101 if (!varline(varbfr, var))
102 fprintf(fpout, "%s\n", varbfr);
104 (void) fclose(fpin); /* don't care about read close errs */
106 if (fclose(fpout) == EOF)
107 return(EIO); /* errno isn't reliable */
108 if (rename(varfilebackup, varfile))
113 static int get_localvarfile(bfr)
119 envptr = getenv("ZEPHYR_VARS");
121 (void) strcpy(bfr, envptr);
123 envptr = getenv("HOME");
125 (void) strcpy(bfr, envptr);
127 if (!(pwd = getpwuid((int) getuid()))) {
128 fprintf(stderr, "Zephyr internal failure: Can't determine your home directory.\n");
131 (void) strcpy(bfr, pwd->pw_dir);
134 (void) strcat(bfr, "/");
135 (void) strcat(bfr, ".zephyr.vars");
140 static char *get_varval(fn, var)
145 static char varbfr[512];
152 while (fgets(varbfr, sizeof varbfr, fp) != (char *) 0) {
153 if (varbfr[strlen(varbfr)-1] < ' ')
154 varbfr[strlen(varbfr)-1] = '\0';
155 if (!(i = varline(varbfr, var)))
157 (void) fclose(fp); /* open read-only, don't care */
160 (void) fclose(fp); /* open read-only, don't care */
164 /* If the variable in the line bfr[] is the same as var, return index to
165 the variable value, else return 0. */
166 static int varline(bfr, var)
173 if (!bfr[0] || bfr[0] == '#') /* comment or null line */
177 while (*cp && !isspace(*cp) && (*cp != '='))
180 #define max(a,b) ((a > b) ? (a) : (b))
182 if (strncasecmp(bfr, var, max(strlen(var),cp - bfr)))
183 return(0); /* var is not the var in
186 cp = strchr(bfr, '=');
190 while (*cp && isspace(*cp)) /* space up to variable value */
193 return (cp - bfr); /* return index */