blob: b263d1b624705f2733f1789036ea0efe861a6dd8 [file] [log] [blame]
/*
* Copyright 2018-2020 The OpenSSL Project Authors. All Rights Reserved.
*
* Licensed under the Apache License 2.0 (the "License"). You may not use
* this file except in compliance with the License. You can obtain a copy
* in the file LICENSE in the source distribution or at
* https://www.openssl.org/source/license.html
*/
#ifndef _GNU_SOURCE
# define _GNU_SOURCE
#endif
#include <stdlib.h>
#include "internal/cryptlib.h"
#include "internal/e_os.h"
char *ossl_safe_getenv(const char *name)
{
#if defined(_WIN32) && defined(CP_UTF8) && !defined(_WIN32_WCE)
if (GetEnvironmentVariableW(L"OPENSSL_WIN32_UTF8", NULL, 0) != 0) {
char *val = NULL;
int vallen = 0;
WCHAR *namew = NULL;
WCHAR *valw = NULL;
DWORD envlen = 0;
DWORD dwFlags = MB_ERR_INVALID_CHARS;
int rsize, fsize;
UINT curacp;
curacp = GetACP();
/*
* For the code pages listed below, dwFlags must be set to 0.
* Otherwise, the function fails with ERROR_INVALID_FLAGS.
*/
if (curacp == 50220 || curacp == 50221 || curacp == 50222 ||
curacp == 50225 || curacp == 50227 || curacp == 50229 ||
(57002 <= curacp && curacp <=57011) || curacp == 65000 ||
curacp == 42)
dwFlags = 0;
/* query for buffer len */
rsize = MultiByteToWideChar(curacp, dwFlags, name, -1, NULL, 0);
/* if name is valid string and can be converted to wide string */
if (rsize > 0)
namew = _malloca(rsize * sizeof(WCHAR));
if (NULL != namew) {
/* convert name to wide string */
fsize = MultiByteToWideChar(curacp, dwFlags, name, -1, namew, rsize);
/* if conversion is ok, then determine value string size in wchars */
if (fsize > 0)
envlen = GetEnvironmentVariableW(namew, NULL, 0);
}
if (envlen > 0)
valw = _malloca(envlen * sizeof(WCHAR));
if (NULL != valw) {
/* if can get env value as wide string */
if (GetEnvironmentVariableW(namew, valw, envlen) < envlen) {
/* determine value string size in utf-8 */
vallen = WideCharToMultiByte(CP_UTF8, 0, valw, -1, NULL, 0,
NULL, NULL);
}
}
if (vallen > 0)
val = OPENSSL_malloc(vallen);
if (NULL != val) {
/* convert value string from wide to utf-8 */
if (WideCharToMultiByte(CP_UTF8, 0, valw, -1, val, vallen,
NULL, NULL) == 0) {
OPENSSL_free(val);
val = NULL;
}
}
if (NULL != namew)
_freea(namew);
if (NULL != valw)
_freea(valw);
return val;
}
#endif
#if defined(__GLIBC__) && defined(__GLIBC_PREREQ)
# if __GLIBC_PREREQ(2, 17)
# define SECURE_GETENV
return secure_getenv(name);
# endif
#endif
#ifndef SECURE_GETENV
if (OPENSSL_issetugid())
return NULL;
return getenv(name);
#endif
}