freebsd-dev/contrib/libpam/libpam_misc/help_env.c

113 lines
2.7 KiB
C

/*
* $Id: help_env.c,v 1.2 1997/01/04 20:19:20 morgan Exp morgan $
*
* This file was written by Andrew G. Morgan <morgan@parc.power.net>
*
* $Log: help_env.c,v $
* Revision 1.2 1997/01/04 20:19:20 morgan
* added a prototype (no warning) and fixed paste function
*
* Revision 1.1 1996/12/01 03:25:37 morgan
* Initial revision
*
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <security/pam_misc.h>
/*
* This is a useful function for dumping the Linux-PAM environment
* into some local memory, prior to it all getting lost when pam_end()
* is called.
*
* Initially it was assumed that libpam did not do this part correctly
* (based on a loose email definition). The X/Open XSSO spec makes it
* clear that this function is a duplicate of the one already in
* libpam and therefore unnecessary. IT WILL BE COMPLETELY REMOVED
* IN libpam_misc 1.0 */
char **pam_misc_copy_env(pam_handle_t *pamh);
char **pam_misc_copy_env(pam_handle_t *pamh)
{
return pam_getenvlist(pamh);
}
/*
* This function should be used to carefully dispose of the copied
* environment.
*
* usage: env = pam_misc_drop_env(env);
*/
char **pam_misc_drop_env(char **dump)
{
int i;
for (i=0; dump[i] != NULL; ++i) {
D(("dump[%d]=`%s'", i, dump[i]));
_pam_overwrite(dump[i]);
_pam_drop(dump[i]);
}
_pam_drop(dump);
return NULL;
}
/*
* This function takes the supplied environment and uploads it to be
* the PAM one.
*/
int pam_misc_paste_env(pam_handle_t *pamh, const char * const * user_env)
{
for (; user_env && *user_env; ++user_env) {
int retval;
D(("uploading: %s", *user_env));
retval = pam_putenv(pamh, *user_env);
if (retval != PAM_SUCCESS) {
D(("error setting %s: %s", *user_env, pam_strerror(pamh,retval)));
return retval;
}
}
D(("done."));
return PAM_SUCCESS;
}
/*
* This is a wrapper to make pam behave in the way that setenv() does.
*/
int pam_misc_setenv(pam_handle_t *pamh, const char *name
, const char *value, int readonly)
{
char *tmp;
int retval;
if (readonly) {
const char *etmp;
/* we check if the variable is there already */
etmp = pam_getenv(pamh, name);
if (etmp != NULL) {
D(("failed to set readonly variable: %s", name));
return PAM_PERM_DENIED; /* not allowed to overwrite */
}
}
tmp = malloc(2+strlen(name)+strlen(value));
if (tmp != NULL) {
sprintf(tmp,"%s=%s",name,value);
D(("pam_putt()ing: %s", tmp));
retval = pam_putenv(pamh, tmp);
_pam_overwrite(tmp); /* purge */
_pam_drop(tmp); /* forget */
} else {
D(("malloc failure"));
retval = PAM_BUF_ERR;
}
return retval;
}