projects / exim.git / blame
| Commit | Line | Data |
|---|---|---|
| 06cf6fdc JH |
1 | /************************************************* |
| 2 | * Exim - an Internet mail transport agent * | |
| 3 | *************************************************/ | |
| 4 | ||
| 5 | /* Copyright (c) Michael Haardt 2015 */ | |
| dfe7d917 | 6 | /* Copyright (c) Jeremy Harris 2015 - 2016 */ |
| 06cf6fdc JH |
7 | /* See the file NOTICE for conditions of use and distribution. */ |
| 8 | ||
| 9 | /* This module provides (un)setenv routines for those environments | |
| dfe7d917 | 10 | lacking them in libraries. It is #include'd by OS/os.c-foo files. */ |
| 06cf6fdc JH |
11 | |
| 12 | ||
| dfe7d917 | 13 | int |
| 06cf6fdc JH |
14 | setenv(const char * name, const char * val, int overwrite) |
| 15 | { | |
| 16 | uschar * s; | |
| 17 | if (Ustrchr(name, '=')) return -1; | |
| 18 | if (overwrite || !getenv(name)) | |
| 19 | putenv(CS string_copy_malloc(string_sprintf("%s=%s", name, val))); | |
| 20 | return 0; | |
| 21 | } | |
| 22 | ||
| dfe7d917 | 23 | int |
| 06cf6fdc JH |
24 | unsetenv(const char *name) |
| 25 | { | |
| 26 | size_t len; | |
| 27 | const char * end; | |
| 28 | char ** e; | |
| 29 | extern char ** environ; | |
| 30 | ||
| 31 | if (!name) | |
| 32 | { | |
| 33 | errno = EINVAL; | |
| 34 | return -1; | |
| 35 | } | |
| 36 | ||
| bc3c7bb7 HSHR |
37 | if (!environ) |
| 38 | return 0; | |
| 39 | ||
| 06cf6fdc JH |
40 | for (end = name; *end != '=' && *end; ) end++; |
| 41 | len = end - name; | |
| 42 | ||
| 43 | /* Find name in environment and move remaining variables down. | |
| 44 | Do not early-out in case there are duplicate names. */ | |
| 45 | ||
| 46 | for (e = environ; *e; e++) | |
| 47 | if (strncmp(*e, name, len) == 0 && (*e)[len] == '=') | |
| 48 | { | |
| 49 | char ** sp = e; | |
| 50 | do *sp = sp[1]; while (*++sp); | |
| 51 | } | |
| 52 | ||
| 53 | return 0; | |
| 54 | } | |
| 55 | ||
| 56 | /* vi: aw ai sw=2 | |
| 57 | */ | |
| 58 | /* End of setenv.c */ |