contrib/libpam/libpam_misc/help_env.c

   1 /*
   2  * $Id: help_env.c,v 1.2 1997/01/04 20:19:20 morgan Exp morgan $
   3  * $FreeBSD: src/contrib/libpam/libpam_misc/help_env.c,v 1.1.1.1.6.2 2001/06/11 15:28:15 markm Exp $
   4  * $DragonFly: src/contrib/libpam/libpam_misc/Attic/help_env.c,v 1.2 2003/06/17 04:24:03 dillon Exp $
   5  *
   6  * This file was written by Andrew G. Morgan <morgan@parc.power.net>
   7  *
   8  * $Log: help_env.c,v $
   9  * Revision 1.2  1997/01/04 20:19:20  morgan
  10  * added a prototype (no warning) and fixed paste function
  11  *
  12  * Revision 1.1  1996/12/01 03:25:37  morgan
  13  * Initial revision
  14  *
  15  */
  16
  17 #include <stdlib.h>
  18 #include <stdio.h>
  19 #include <string.h>
  20 #include <security/pam_misc.h>
  21
  22 /*
  23  * This is a useful function for dumping the Linux-PAM environment
  24  * into some local memory, prior to it all getting lost when pam_end()
  25  * is called.
  26  *
  27  * Initially it was assumed that libpam did not do this part correctly
  28  * (based on a loose email definition).  The X/Open XSSO spec makes it
  29  * clear that this function is a duplicate of the one already in
  30  * libpam and therefore unnecessary.  IT WILL BE COMPLETELY REMOVED
  31  * IN libpam_misc 1.0 */
  32
  33 char **pam_misc_copy_env(pam_handle_t *pamh);
  34 char **pam_misc_copy_env(pam_handle_t *pamh)
  35 {
  36     return pam_getenvlist(pamh);
  37 }
  38
  39 /*
  40  * This function should be used to carefully dispose of the copied
  41  * environment.
  42  *
  43  *     usage:     env = pam_misc_drop_env(env);
  44  */
  45
  46 char **pam_misc_drop_env(char **dump)
  47 {
  48     int i;
  49
  50     for (i=0; dump[i] != NULL; ++i) {
  51         D(("dump[%d]=`%s'", i, dump[i]));
  52         _pam_overwrite(dump[i]);
  53         _pam_drop(dump[i]);
  54     }
  55     _pam_drop(dump);
  56
  57     return NULL;
  58 }
  59
  60 /*
  61  *  This function takes the supplied environment and uploads it to be
  62  *  the PAM one.
  63  */
  64
  65 int pam_misc_paste_env(pam_handle_t *pamh, const char * const * user_env)
  66 {
  67     for (; user_env && *user_env; ++user_env) {
  68         int retval;
  69
  70         D(("uploading: %s", *user_env));
  71         retval = pam_putenv(pamh, *user_env);
  72         if (retval != PAM_SUCCESS) {
  73             D(("error setting %s: %s", *user_env, pam_strerror(pamh,retval)));
  74             return retval;
  75         }
  76     }
  77     D(("done."));
  78     return PAM_SUCCESS;
  79 }
  80
  81 /*
  82  * This is a wrapper to make pam behave in the way that setenv() does.
  83  */
  84
  85 int pam_misc_setenv(pam_handle_t *pamh, const char *name
  86                     , const char *value, int readonly)
  87 {
  88     char *tmp;
  89     int retval;
  90
  91     if (readonly) {
  92         const char *etmp;
  93
  94         /* we check if the variable is there already */
  95         etmp = pam_getenv(pamh, name);
  96         if (etmp != NULL) {
  97             D(("failed to set readonly variable: %s", name));
  98             return PAM_PERM_DENIED;          /* not allowed to overwrite */
  99         }
 100     }
 101     tmp = malloc(2+strlen(name)+strlen(value));
 102     if (tmp != NULL) {
 103         sprintf(tmp,"%s=%s",name,value);
 104         D(("pam_putt()ing: %s", tmp));
 105         retval = pam_putenv(pamh, tmp);
 106         _pam_overwrite(tmp);                 /* purge */
 107         _pam_drop(tmp);                      /* forget */
 108     } else {
 109         D(("malloc failure"));
 110         retval = PAM_BUF_ERR;
 111     }
 112
 113     return retval;
 114 }