1 /*************************************************
2 * Exim - an Internet mail transport agent *
3 *************************************************/
5 /* Copyright (c) Michael Haardt 2015
6 * Copyright (c) Jeremy Harris 2015 - 2016
7 * Copyright (c) The Exim Maintainers 2016 */
8 /* See the file NOTICE for conditions of use and distribution. */
10 /* This module provides (un)setenv routines for those environments
11 lacking them in libraries. It is #include'd by OS/os.c-foo files. */
15 setenv(const char * name
, const char * val
, int overwrite
)
18 if (Ustrchr(name
, '=')) return -1;
19 if (overwrite
|| !getenv(name
))
20 putenv(CS
string_copy_malloc(string_sprintf("%s=%s", name
, val
)));
25 unsetenv(const char *name
)
30 extern char ** environ
;
41 for (end
= name
; *end
!= '=' && *end
; ) end
++;
44 /* Find name in environment and move remaining variables down.
45 Do not early-out in case there are duplicate names. */
47 for (e
= environ
; *e
; e
++)
48 if (strncmp(*e
, name
, len
) == 0 && (*e
)[len
] == '=')
51 do *sp
= sp
[1]; while (*++sp
);