1 /* Copyright 1988,1990,1993,1994 by Paul Vixie 2 * All rights reserved 3 * 4 * Distribute freely, except: don't remove my name from the source or 5 * documentation (don't take credit for my work), mark your changes (don't 6 * get me blamed for your possible bugs), don't alter or remove this 7 * notice. May be sold if buildable source is provided to buyer. No 8 * warrantee of any kind, express or implied, is included with this 9 * software; use at your own risk, responsibility for damages (if any) to 10 * anyone resulting from the use of this software rests entirely with the 11 * user. 12 * 13 * Send bug reports, bug fixes, enhancements, requests, flames, etc., and 14 * I'll try to keep a version up to date. I can be reached as follows: 15 * Paul Vixie <paul@vix.com> uunet!decwrl!vixie!paul 16 */ 17 18 #if !defined(lint) && !defined(LINT) 19 static const char rcsid[] = 20 "$FreeBSD$"; 21 #endif 22 23 24 #include "cron.h" 25 26 27 char ** 28 env_init() 29 { 30 register char **p = (char **) malloc(sizeof(char **)); 31 32 if (p) 33 p[0] = NULL; 34 return (p); 35 } 36 37 38 void 39 env_free(envp) 40 char **envp; 41 { 42 char **p; 43 44 for (p = envp; *p; p++) 45 free(*p); 46 free(envp); 47 } 48 49 50 char ** 51 env_copy(envp) 52 register char **envp; 53 { 54 register int count, i; 55 register char **p; 56 57 for (count = 0; envp[count] != NULL; count++) 58 ; 59 p = (char **) malloc((count+1) * sizeof(char *)); /* 1 for the NULL */ 60 if (p == NULL) { 61 errno = ENOMEM; 62 return NULL; 63 } 64 for (i = 0; i < count; i++) 65 if ((p[i] = strdup(envp[i])) == NULL) { 66 while (--i >= 0) 67 (void) free(p[i]); 68 free(p); 69 errno = ENOMEM; 70 return NULL; 71 } 72 p[count] = NULL; 73 return (p); 74 } 75 76 77 char ** 78 env_set(envp, envstr) 79 char **envp; 80 char *envstr; 81 { 82 register int count, found; 83 register char **p; 84 85 /* 86 * count the number of elements, including the null pointer; 87 * also set 'found' to -1 or index of entry if already in here. 88 */ 89 found = -1; 90 for (count = 0; envp[count] != NULL; count++) { 91 if (!strcmp_until(envp[count], envstr, '=')) 92 found = count; 93 } 94 count++; /* for the NULL */ 95 96 if (found != -1) { 97 /* 98 * it exists already, so just free the existing setting, 99 * save our new one there, and return the existing array. 100 */ 101 free(envp[found]); 102 if ((envp[found] = strdup(envstr)) == NULL) { 103 envp[found] = ""; 104 errno = ENOMEM; 105 return NULL; 106 } 107 return (envp); 108 } 109 110 /* 111 * it doesn't exist yet, so resize the array, move null pointer over 112 * one, save our string over the old null pointer, and return resized 113 * array. 114 */ 115 p = (char **) realloc((void *) envp, 116 (unsigned) ((count+1) * sizeof(char **))); 117 if (p == NULL) { 118 errno = ENOMEM; 119 return NULL; 120 } 121 p[count] = p[count-1]; 122 if ((p[count-1] = strdup(envstr)) == NULL) { 123 errno = ENOMEM; 124 return NULL; 125 } 126 return (p); 127 } 128 129 130 /* return ERR = end of file 131 * FALSE = not an env setting (file was repositioned) 132 * TRUE = was an env setting 133 */ 134 int 135 load_env(envstr, f) 136 char *envstr; 137 FILE *f; 138 { 139 long filepos; 140 int fileline; 141 char name[MAX_ENVSTR], val[MAX_ENVSTR]; 142 int fields; 143 144 filepos = ftell(f); 145 fileline = LineNumber; 146 skip_comments(f); 147 if (EOF == get_string(envstr, MAX_ENVSTR, f, "\n")) 148 return (ERR); 149 150 Debug(DPARS, ("load_env, read <%s>\n", envstr)) 151 152 name[0] = val[0] = '\0'; 153 fields = sscanf(envstr, "%[^ =] = %[^\n#]", name, val); 154 if (fields != 2) { 155 Debug(DPARS, ("load_env, not 2 fields (%d)\n", fields)) 156 fseek(f, filepos, 0); 157 Set_LineNum(fileline); 158 return (FALSE); 159 } 160 161 /* 2 fields from scanf; looks like an env setting 162 */ 163 164 /* 165 * process value string 166 */ 167 /*local*/{ 168 int len = strdtb(val); 169 170 if (len >= 2) { 171 if (val[0] == '\'' || val[0] == '"') { 172 if (val[len-1] == val[0]) { 173 val[len-1] = '\0'; 174 (void) strcpy(val, val+1); 175 } 176 } 177 } 178 } 179 180 if (strlen(name) + 1 + strlen(val) >= MAX_ENVSTR-1) 181 return (FALSE); 182 (void) sprintf(envstr, "%s=%s", name, val); 183 Debug(DPARS, ("load_env, <%s> <%s> -> <%s>\n", name, val, envstr)) 184 return (TRUE); 185 } 186 187 188 char * 189 env_get(name, envp) 190 register char *name; 191 register char **envp; 192 { 193 register int len = strlen(name); 194 register char *p, *q; 195 196 while ((p = *envp++)) { 197 if (!(q = strchr(p, '='))) 198 continue; 199 if ((q - p) == len && !strncmp(p, name, len)) 200 return (q+1); 201 } 202 return (NULL); 203 } 204