mirror of
git://git.gnupg.org/gnupg.git
synced 2024-11-09 21:28:51 +01:00
f1e9f510ec
To better cope with round robin pooled A records like keys.gnupg.net we need to keep some information on unresponsive hosts etc. What we do now is to resolve the hostnames, remember them and select a random one. If a host is dead it will be marked and a different one selected. This is intended to solve the problem of long timeouts due to unresponsive hosts. The code is not yet finished but selection works.
681 lines
16 KiB
C
681 lines
16 KiB
C
/* sysutils.c - system helpers
|
|
* Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004,
|
|
* 2007, 2008 Free Software Foundation, Inc.
|
|
*
|
|
* This file is part of GnuPG.
|
|
*
|
|
* GnuPG is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* GnuPG is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <config.h>
|
|
|
|
#ifdef WITHOUT_GNU_PTH /* Give the Makefile a chance to build without Pth. */
|
|
# undef HAVE_PTH
|
|
# undef USE_GNU_PTH
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
#include <errno.h>
|
|
#ifdef HAVE_STAT
|
|
# include <sys/stat.h>
|
|
#endif
|
|
#if defined(__linux__) && defined(__alpha__) && __GLIBC__ < 2
|
|
# include <asm/sysinfo.h>
|
|
# include <asm/unistd.h>
|
|
#endif
|
|
#ifdef HAVE_SETRLIMIT
|
|
# include <time.h>
|
|
# include <sys/time.h>
|
|
# include <sys/resource.h>
|
|
#endif
|
|
#ifdef HAVE_W32_SYSTEM
|
|
# define WINVER 0x0500 /* Required for AllowSetForegroundWindow. */
|
|
# include <windows.h>
|
|
#endif
|
|
#ifdef HAVE_PTH
|
|
# include <pth.h>
|
|
#endif
|
|
#include <fcntl.h>
|
|
|
|
#include <assuan.h>
|
|
|
|
#include "setenv.h" /* Gnulib replacement. */
|
|
|
|
#include "util.h"
|
|
#include "i18n.h"
|
|
|
|
#include "sysutils.h"
|
|
|
|
#define tohex(n) ((n) < 10 ? ((n) + '0') : (((n) - 10) + 'A'))
|
|
|
|
|
|
#if defined(__linux__) && defined(__alpha__) && __GLIBC__ < 2
|
|
#warning using trap_unaligned
|
|
static int
|
|
setsysinfo(unsigned long op, void *buffer, unsigned long size,
|
|
int *start, void *arg, unsigned long flag)
|
|
{
|
|
return syscall(__NR_osf_setsysinfo, op, buffer, size, start, arg, flag);
|
|
}
|
|
|
|
void
|
|
trap_unaligned(void)
|
|
{
|
|
unsigned int buf[2];
|
|
|
|
buf[0] = SSIN_UACPROC;
|
|
buf[1] = UAC_SIGBUS | UAC_NOPRINT;
|
|
setsysinfo(SSI_NVPAIRS, buf, 1, 0, 0, 0);
|
|
}
|
|
#else
|
|
void
|
|
trap_unaligned(void)
|
|
{ /* dummy */
|
|
}
|
|
#endif
|
|
|
|
|
|
int
|
|
disable_core_dumps (void)
|
|
{
|
|
#ifdef HAVE_DOSISH_SYSTEM
|
|
return 0;
|
|
#else
|
|
# ifdef HAVE_SETRLIMIT
|
|
struct rlimit limit;
|
|
|
|
/* We only set the current limit unless we were not able to
|
|
retrieve the old value. */
|
|
if (getrlimit (RLIMIT_CORE, &limit))
|
|
limit.rlim_max = 0;
|
|
limit.rlim_cur = 0;
|
|
if( !setrlimit (RLIMIT_CORE, &limit) )
|
|
return 0;
|
|
if( errno != EINVAL && errno != ENOSYS )
|
|
log_fatal (_("can't disable core dumps: %s\n"), strerror(errno) );
|
|
#endif
|
|
return 1;
|
|
#endif
|
|
}
|
|
|
|
int
|
|
enable_core_dumps (void)
|
|
{
|
|
#ifdef HAVE_DOSISH_SYSTEM
|
|
return 0;
|
|
#else
|
|
# ifdef HAVE_SETRLIMIT
|
|
struct rlimit limit;
|
|
|
|
if (getrlimit (RLIMIT_CORE, &limit))
|
|
return 1;
|
|
limit.rlim_cur = limit.rlim_max;
|
|
setrlimit (RLIMIT_CORE, &limit);
|
|
return 1; /* We always return true because this function is
|
|
merely a debugging aid. */
|
|
# endif
|
|
return 1;
|
|
#endif
|
|
}
|
|
|
|
|
|
|
|
/* Return a string which is used as a kind of process ID. */
|
|
const byte *
|
|
get_session_marker (size_t *rlen)
|
|
{
|
|
static byte marker[SIZEOF_UNSIGNED_LONG*2];
|
|
static int initialized;
|
|
|
|
if (!initialized)
|
|
{
|
|
gcry_create_nonce (marker, sizeof marker);
|
|
initialized = 1;
|
|
}
|
|
*rlen = sizeof (marker);
|
|
return marker;
|
|
}
|
|
|
|
/* Return a random number in an unsigned int. */
|
|
unsigned int
|
|
get_uint_nonce (void)
|
|
{
|
|
unsigned int value;
|
|
|
|
gcry_create_nonce (&value, sizeof value);
|
|
return value;
|
|
}
|
|
|
|
|
|
|
|
#if 0 /* not yet needed - Note that this will require inclusion of
|
|
cmacros.am in Makefile.am */
|
|
int
|
|
check_permissions(const char *path,int extension,int checkonly)
|
|
{
|
|
#if defined(HAVE_STAT) && !defined(HAVE_DOSISH_SYSTEM)
|
|
char *tmppath;
|
|
struct stat statbuf;
|
|
int ret=1;
|
|
int isdir=0;
|
|
|
|
if(opt.no_perm_warn)
|
|
return 0;
|
|
|
|
if(extension && path[0]!=DIRSEP_C)
|
|
{
|
|
if(strchr(path,DIRSEP_C))
|
|
tmppath=make_filename(path,NULL);
|
|
else
|
|
tmppath=make_filename(GNUPG_LIBDIR,path,NULL);
|
|
}
|
|
else
|
|
tmppath=m_strdup(path);
|
|
|
|
/* It's okay if the file doesn't exist */
|
|
if(stat(tmppath,&statbuf)!=0)
|
|
{
|
|
ret=0;
|
|
goto end;
|
|
}
|
|
|
|
isdir=S_ISDIR(statbuf.st_mode);
|
|
|
|
/* Per-user files must be owned by the user. Extensions must be
|
|
owned by the user or root. */
|
|
if((!extension && statbuf.st_uid != getuid()) ||
|
|
(extension && statbuf.st_uid!=0 && statbuf.st_uid!=getuid()))
|
|
{
|
|
if(!checkonly)
|
|
log_info(_("Warning: unsafe ownership on %s \"%s\"\n"),
|
|
isdir?"directory":extension?"extension":"file",path);
|
|
goto end;
|
|
}
|
|
|
|
/* This works for both directories and files - basically, we don't
|
|
care what the owner permissions are, so long as the group and
|
|
other permissions are 0 for per-user files, and non-writable for
|
|
extensions. */
|
|
if((extension && (statbuf.st_mode & (S_IWGRP|S_IWOTH)) !=0) ||
|
|
(!extension && (statbuf.st_mode & (S_IRWXG|S_IRWXO)) != 0))
|
|
{
|
|
char *dir;
|
|
|
|
/* However, if the directory the directory/file is in is owned
|
|
by the user and is 700, then this is not a problem.
|
|
Theoretically, we could walk this test up to the root
|
|
directory /, but for the sake of sanity, I'm stopping at one
|
|
level down. */
|
|
|
|
dir= make_dirname (tmppath);
|
|
if(stat(dir,&statbuf)==0 && statbuf.st_uid==getuid() &&
|
|
S_ISDIR(statbuf.st_mode) && (statbuf.st_mode & (S_IRWXG|S_IRWXO))==0)
|
|
{
|
|
xfree (dir);
|
|
ret=0;
|
|
goto end;
|
|
}
|
|
|
|
m_free(dir);
|
|
|
|
if(!checkonly)
|
|
log_info(_("Warning: unsafe permissions on %s \"%s\"\n"),
|
|
isdir?"directory":extension?"extension":"file",path);
|
|
goto end;
|
|
}
|
|
|
|
ret=0;
|
|
|
|
end:
|
|
m_free(tmppath);
|
|
|
|
return ret;
|
|
|
|
#endif /* HAVE_STAT && !HAVE_DOSISH_SYSTEM */
|
|
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
|
|
/* Wrapper around the usual sleep fucntion. This one won't wake up
|
|
before the sleep time has really elapsed. When build with Pth it
|
|
merely calls pth_sleep and thus suspends only the current
|
|
thread. */
|
|
void
|
|
gnupg_sleep (unsigned int seconds)
|
|
{
|
|
#ifdef HAVE_PTH
|
|
/* With Pth we force a regular sleep for seconds == 0 so that also
|
|
the process will give up its timeslot. */
|
|
if (!seconds)
|
|
{
|
|
# ifdef HAVE_W32_SYSTEM
|
|
Sleep (0);
|
|
# else
|
|
sleep (0);
|
|
# endif
|
|
}
|
|
pth_sleep (seconds);
|
|
#else
|
|
/* Fixme: make sure that a sleep won't wake up to early. */
|
|
# ifdef HAVE_W32_SYSTEM
|
|
Sleep (seconds*1000);
|
|
# else
|
|
sleep (seconds);
|
|
# endif
|
|
#endif
|
|
}
|
|
|
|
|
|
/* This function is a NOP for POSIX systems but required under Windows
|
|
as the file handles as returned by OS calls (like CreateFile) are
|
|
different from the libc file descriptors (like open). This function
|
|
translates system file handles to libc file handles. FOR_WRITE
|
|
gives the direction of the handle. */
|
|
int
|
|
translate_sys2libc_fd (gnupg_fd_t fd, int for_write)
|
|
{
|
|
#if defined(HAVE_W32CE_SYSTEM)
|
|
(void)for_write;
|
|
return (int) fd;
|
|
#elif defined(HAVE_W32_SYSTEM)
|
|
int x;
|
|
|
|
if (fd == GNUPG_INVALID_FD)
|
|
return -1;
|
|
|
|
/* Note that _open_osfhandle is currently defined to take and return
|
|
a long. */
|
|
x = _open_osfhandle ((long)fd, for_write ? 1 : 0);
|
|
if (x == -1)
|
|
log_error ("failed to translate osfhandle %p\n", (void *) fd);
|
|
return x;
|
|
#else /*!HAVE_W32_SYSTEM */
|
|
(void)for_write;
|
|
return fd;
|
|
#endif
|
|
}
|
|
|
|
/* This is the same as translate_sys2libc_fd but takes an integer
|
|
which is assumed to be such an system handle. On WindowsCE the
|
|
passed FD is a rendezvous ID and the function finishes the pipe
|
|
creation. */
|
|
int
|
|
translate_sys2libc_fd_int (int fd, int for_write)
|
|
{
|
|
#if HAVE_W32CE_SYSTEM
|
|
fd = (int) _assuan_w32ce_finish_pipe (fd, for_write);
|
|
return translate_sys2libc_fd ((void*)fd, for_write);
|
|
#elif HAVE_W32_SYSTEM
|
|
if (fd <= 2)
|
|
return fd; /* Do not do this for error, stdin, stdout, stderr. */
|
|
|
|
return translate_sys2libc_fd ((void*)fd, for_write);
|
|
#else
|
|
(void)for_write;
|
|
return fd;
|
|
#endif
|
|
}
|
|
|
|
|
|
|
|
/* Replacement for tmpfile(). This is required because the tmpfile
|
|
function of Windows' runtime library is broken, insecure, ignores
|
|
TMPDIR and so on. In addition we create a file with an inheritable
|
|
handle. */
|
|
FILE *
|
|
gnupg_tmpfile (void)
|
|
{
|
|
#ifdef HAVE_W32_SYSTEM
|
|
int attempts, n;
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
wchar_t buffer[MAX_PATH+7+12+1];
|
|
# define mystrlen(a) wcslen (a)
|
|
wchar_t *name, *p;
|
|
#else
|
|
char buffer[MAX_PATH+7+12+1];
|
|
# define mystrlen(a) strlen (a)
|
|
char *name, *p;
|
|
#endif
|
|
HANDLE file;
|
|
int pid = GetCurrentProcessId ();
|
|
unsigned int value;
|
|
int i;
|
|
SECURITY_ATTRIBUTES sec_attr;
|
|
|
|
memset (&sec_attr, 0, sizeof sec_attr );
|
|
sec_attr.nLength = sizeof sec_attr;
|
|
sec_attr.bInheritHandle = TRUE;
|
|
|
|
n = GetTempPath (MAX_PATH+1, buffer);
|
|
if (!n || n > MAX_PATH || mystrlen (buffer) > MAX_PATH)
|
|
{
|
|
gpg_err_set_errno (ENOENT);
|
|
return NULL;
|
|
}
|
|
p = buffer + mystrlen (buffer);
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
wcscpy (p, L"_gnupg");
|
|
p += 7;
|
|
#else
|
|
p = stpcpy (p, "_gnupg");
|
|
#endif
|
|
/* We try to create the directory but don't care about an error as
|
|
it may already exist and the CreateFile would throw an error
|
|
anyway. */
|
|
CreateDirectory (buffer, NULL);
|
|
*p++ = '\\';
|
|
name = p;
|
|
for (attempts=0; attempts < 10; attempts++)
|
|
{
|
|
p = name;
|
|
value = (GetTickCount () ^ ((pid<<16) & 0xffff0000));
|
|
for (i=0; i < 8; i++)
|
|
{
|
|
*p++ = tohex (((value >> 28) & 0x0f));
|
|
value <<= 4;
|
|
}
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
wcscpy (p, L".tmp");
|
|
#else
|
|
strcpy (p, ".tmp");
|
|
#endif
|
|
file = CreateFile (buffer,
|
|
GENERIC_READ | GENERIC_WRITE,
|
|
0,
|
|
&sec_attr,
|
|
CREATE_NEW,
|
|
FILE_ATTRIBUTE_TEMPORARY | FILE_FLAG_DELETE_ON_CLOSE,
|
|
NULL);
|
|
if (file != INVALID_HANDLE_VALUE)
|
|
{
|
|
FILE *fp;
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
int fd = (int)file;
|
|
fp = _wfdopen (fd, L"w+b");
|
|
#else
|
|
int fd = _open_osfhandle ((long)file, 0);
|
|
if (fd == -1)
|
|
{
|
|
CloseHandle (file);
|
|
return NULL;
|
|
}
|
|
fp = fdopen (fd, "w+b");
|
|
#endif
|
|
if (!fp)
|
|
{
|
|
int save = errno;
|
|
close (fd);
|
|
gpg_err_set_errno (save);
|
|
return NULL;
|
|
}
|
|
return fp;
|
|
}
|
|
Sleep (1); /* One ms as this is the granularity of GetTickCount. */
|
|
}
|
|
gpg_err_set_errno (ENOENT);
|
|
return NULL;
|
|
#undef mystrlen
|
|
#else /*!HAVE_W32_SYSTEM*/
|
|
return tmpfile ();
|
|
#endif /*!HAVE_W32_SYSTEM*/
|
|
}
|
|
|
|
|
|
/* Make sure that the standard file descriptors are opened. Obviously
|
|
some folks close them before an exec and the next file we open will
|
|
get one of them assigned and thus any output (i.e. diagnostics) end
|
|
up in that file (e.g. the trustdb). Not actually a gpg problem as
|
|
this will hapen with almost all utilities when called in a wrong
|
|
way. However we try to minimize the damage here and raise
|
|
awareness of the problem.
|
|
|
|
Must be called before we open any files! */
|
|
void
|
|
gnupg_reopen_std (const char *pgmname)
|
|
{
|
|
#if defined(HAVE_STAT) && !defined(HAVE_W32_SYSTEM)
|
|
struct stat statbuf;
|
|
int did_stdin = 0;
|
|
int did_stdout = 0;
|
|
int did_stderr = 0;
|
|
FILE *complain;
|
|
|
|
if (fstat (STDIN_FILENO, &statbuf) == -1 && errno ==EBADF)
|
|
{
|
|
if (open ("/dev/null",O_RDONLY) == STDIN_FILENO)
|
|
did_stdin = 1;
|
|
else
|
|
did_stdin = 2;
|
|
}
|
|
|
|
if (fstat (STDOUT_FILENO, &statbuf) == -1 && errno == EBADF)
|
|
{
|
|
if (open ("/dev/null",O_WRONLY) == STDOUT_FILENO)
|
|
did_stdout = 1;
|
|
else
|
|
did_stdout = 2;
|
|
}
|
|
|
|
if (fstat (STDERR_FILENO, &statbuf)==-1 && errno==EBADF)
|
|
{
|
|
if (open ("/dev/null", O_WRONLY) == STDERR_FILENO)
|
|
did_stderr = 1;
|
|
else
|
|
did_stderr = 2;
|
|
}
|
|
|
|
/* It's hard to log this sort of thing since the filehandle we would
|
|
complain to may be closed... */
|
|
if (!did_stderr)
|
|
complain = stderr;
|
|
else if (!did_stdout)
|
|
complain = stdout;
|
|
else
|
|
complain = NULL;
|
|
|
|
if (complain)
|
|
{
|
|
if (did_stdin == 1)
|
|
fprintf (complain, "%s: WARNING: standard input reopened\n", pgmname);
|
|
if (did_stdout == 1)
|
|
fprintf (complain, "%s: WARNING: standard output reopened\n", pgmname);
|
|
if (did_stderr == 1)
|
|
fprintf (complain, "%s: WARNING: standard error reopened\n", pgmname);
|
|
|
|
if (did_stdin == 2 || did_stdout == 2 || did_stderr == 2)
|
|
fprintf(complain,"%s: fatal: unable to reopen standard input,"
|
|
" output, or error\n", pgmname);
|
|
}
|
|
|
|
if (did_stdin == 2 || did_stdout == 2 || did_stderr == 2)
|
|
exit (3);
|
|
#else /* !(HAVE_STAT && !HAVE_W32_SYSTEM) */
|
|
(void)pgmname;
|
|
#endif
|
|
}
|
|
|
|
|
|
/* Hack required for Windows. */
|
|
void
|
|
gnupg_allow_set_foregound_window (pid_t pid)
|
|
{
|
|
if (!pid)
|
|
log_info ("%s called with invalid pid %lu\n",
|
|
"gnupg_allow_set_foregound_window", (unsigned long)pid);
|
|
#if defined(HAVE_W32_SYSTEM) && !defined(HAVE_W32CE_SYSTEM)
|
|
else if (!AllowSetForegroundWindow ((pid_t)pid == (pid_t)(-1)?ASFW_ANY:pid))
|
|
log_info ("AllowSetForegroundWindow(%lu) failed: %s\n",
|
|
(unsigned long)pid, w32_strerror (-1));
|
|
#endif
|
|
}
|
|
|
|
int
|
|
gnupg_remove (const char *fname)
|
|
{
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
int rc;
|
|
wchar_t *wfname;
|
|
|
|
wfname = utf8_to_wchar (fname);
|
|
if (!wfname)
|
|
rc = 0;
|
|
else
|
|
{
|
|
rc = DeleteFile (wfname);
|
|
xfree (wfname);
|
|
}
|
|
if (!rc)
|
|
return -1; /* ERRNO is automagically provided by gpg-error.h. */
|
|
return 0;
|
|
#else
|
|
return remove (fname);
|
|
#endif
|
|
}
|
|
|
|
|
|
/* A wrapper around mkdir which takes a string for the mode argument.
|
|
This makes it easier to handle the mode argument which is not
|
|
defined on all systems. The format of the modestring is
|
|
|
|
"-rwxrwxrwx"
|
|
|
|
'-' is a don't care or not set. 'r', 'w', 'x' are read allowed,
|
|
write allowed, execution allowed with the first group for the user,
|
|
the second for the group and the third for all others. If the
|
|
string is shorter than above the missing mode characters are meant
|
|
to be not set. */
|
|
int
|
|
gnupg_mkdir (const char *name, const char *modestr)
|
|
{
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
wchar_t *wname;
|
|
(void)modestr;
|
|
|
|
wname = utf8_to_wchar (name);
|
|
if (!wname)
|
|
return -1;
|
|
if (!CreateDirectoryW (wname, NULL))
|
|
{
|
|
xfree (wname);
|
|
return -1; /* ERRNO is automagically provided by gpg-error.h. */
|
|
}
|
|
xfree (wname);
|
|
return 0;
|
|
#elif MKDIR_TAKES_ONE_ARG
|
|
(void)modestr;
|
|
/* Note: In the case of W32 we better use CreateDirectory and try to
|
|
set appropriate permissions. However using mkdir is easier
|
|
because this sets ERRNO. */
|
|
return mkdir (name);
|
|
#else
|
|
mode_t mode = 0;
|
|
|
|
if (modestr && *modestr)
|
|
{
|
|
modestr++;
|
|
if (*modestr && *modestr++ == 'r')
|
|
mode |= S_IRUSR;
|
|
if (*modestr && *modestr++ == 'w')
|
|
mode |= S_IWUSR;
|
|
if (*modestr && *modestr++ == 'x')
|
|
mode |= S_IXUSR;
|
|
if (*modestr && *modestr++ == 'r')
|
|
mode |= S_IRGRP;
|
|
if (*modestr && *modestr++ == 'w')
|
|
mode |= S_IWGRP;
|
|
if (*modestr && *modestr++ == 'x')
|
|
mode |= S_IXGRP;
|
|
if (*modestr && *modestr++ == 'r')
|
|
mode |= S_IROTH;
|
|
if (*modestr && *modestr++ == 'w')
|
|
mode |= S_IWOTH;
|
|
if (*modestr && *modestr++ == 'x')
|
|
mode |= S_IXOTH;
|
|
}
|
|
return mkdir (name, mode);
|
|
#endif
|
|
}
|
|
|
|
|
|
int
|
|
gnupg_setenv (const char *name, const char *value, int overwrite)
|
|
{
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
(void)name;
|
|
(void)value;
|
|
(void)overwrite;
|
|
return 0;
|
|
#else
|
|
return setenv (name, value, overwrite);
|
|
#endif
|
|
}
|
|
|
|
int
|
|
gnupg_unsetenv (const char *name)
|
|
{
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
(void)name;
|
|
return 0;
|
|
#else
|
|
# ifdef HAVE_UNSETENV
|
|
return unsetenv (name);
|
|
# else
|
|
return putenv (name);
|
|
# endif
|
|
#endif
|
|
}
|
|
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
/* There is a isatty function declaration in cegcc but it does not
|
|
make sense, thus we redefine it. */
|
|
int
|
|
_gnupg_isatty (int fd)
|
|
{
|
|
(void)fd;
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
|
|
#ifdef HAVE_W32CE_SYSTEM
|
|
/* Replacement for getenv which takes care of the our use of getenv.
|
|
The code is not thread safe but we expect it to work in all cases
|
|
because it is called for the first time early enough. */
|
|
char *
|
|
_gnupg_getenv (const char *name)
|
|
{
|
|
static int initialized;
|
|
static char *assuan_debug;
|
|
|
|
if (!initialized)
|
|
{
|
|
assuan_debug = read_w32_registry_string (NULL,
|
|
"\\Software\\GNU\\libassuan",
|
|
"debug");
|
|
initialized = 1;
|
|
}
|
|
|
|
if (!strcmp (name, "ASSUAN_DEBUG"))
|
|
return assuan_debug;
|
|
else
|
|
return NULL;
|
|
}
|
|
|
|
#endif /*HAVE_W32CE_SYSTEM*/
|