1 /* $NetBSD: pam_getenvlist.c,v 1.4 2018/02/11 00:25:12 christos Exp $ */ 2 3 /*- 4 * Copyright (c) 2002-2003 Networks Associates Technology, Inc. 5 * Copyright (c) 2004-2017 Dag-Erling Smørgrav 6 * All rights reserved. 7 * 8 * This software was developed for the FreeBSD Project by ThinkSec AS and 9 * Network Associates Laboratories, the Security Research Division of 10 * Network Associates, Inc. under DARPA/SPAWAR contract N66001-01-C-8035 11 * ("CBOSS"), as part of the DARPA CHATS research program. 12 * 13 * Redistribution and use in source and binary forms, with or without 14 * modification, are permitted provided that the following conditions 15 * are met: 16 * 1. Redistributions of source code must retain the above copyright 17 * notice, this list of conditions and the following disclaimer. 18 * 2. Redistributions in binary form must reproduce the above copyright 19 * notice, this list of conditions and the following disclaimer in the 20 * documentation and/or other materials provided with the distribution. 21 * 3. The name of the author may not be used to endorse or promote 22 * products derived from this software without specific prior written 23 * permission. 24 * 25 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 28 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 31 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 32 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 33 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 34 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 35 * SUCH DAMAGE. 36 * 37 * $OpenPAM: pam_getenvlist.c 938 2017-04-30 21:34:42Z des $ 38 */ 39 40 #ifdef HAVE_CONFIG_H 41 # include "config.h" 42 #endif 43 44 #include <sys/cdefs.h> 45 __RCSID("$NetBSD: pam_getenvlist.c,v 1.4 2018/02/11 00:25:12 christos Exp $"); 46 47 #include <stdlib.h> 48 #include <string.h> 49 50 #include <security/pam_appl.h> 51 52 #include "openpam_impl.h" 53 54 /* 55 * XSSO 4.2.1 56 * XSSO 6 page 45 57 * 58 * Returns a list of all the PAM environment variables 59 */ 60 61 char ** 62 pam_getenvlist(pam_handle_t *pamh) 63 { 64 char **envlist; 65 size_t i; 66 67 ENTER(); 68 #ifdef notdef 69 if (pamh == NULL) 70 RETURNP(NULL); 71 #endif 72 envlist = malloc(sizeof(*envlist) * ((size_t)pamh->env_count + 1)); 73 if (envlist == NULL) { 74 openpam_log(PAM_LOG_ERROR, "%s", 75 pam_err_text[PAM_BUF_ERR]); 76 RETURNP(NULL); 77 } 78 for (i = 0; i < pamh->env_count; ++i) { 79 if ((envlist[i] = strdup(pamh->env[i])) == NULL) { 80 while (i) { 81 --i; 82 FREE(envlist[i]); 83 } 84 FREE(envlist); 85 openpam_log(PAM_LOG_ERROR, "%s", 86 pam_err_text[PAM_BUF_ERR]); 87 RETURNP(NULL); 88 } 89 } 90 envlist[i] = NULL; 91 RETURNP(envlist); 92 } 93 94 /** 95 * The =pam_getenvlist function returns a copy of the given PAM context's 96 * environment list as a pointer to an array of strings. 97 * The last element in the array is =NULL. 98 * The pointer is suitable for assignment to {Va environ}. 99 * 100 * The array and the strings it lists are allocated using =malloc, and 101 * should be released using =free after use: 102 * 103 * char **envlist, **env; 104 * 105 * envlist = environ; 106 * environ = pam_getenvlist(pamh); 107 * \/\* do something nifty \*\/ 108 * for (env = environ; *env != NULL; env++) 109 * free(*env); 110 * free(environ); 111 * environ = envlist; 112 * 113 * >environ 7 114 * >pam_getenv 115 * >pam_putenv 116 * >pam_setenv 117 */ 118