OpenServer doesn't have setenv

diff --git a/configure b/configure
index 7db55e47e73bb46b7ceb4a8ccc92ed51485c316c..d5a7db8644a08cd6d2825c7dd7919a57e56c14e1 100755 (executable)
--- a/configure
+++ b/configure
@@ -2695,6 +2695,7 @@ BuildPortDotH()
     CheckFuncDecl geteuid 'extern uid_t geteuid(void);' unistd.h
     CheckFuncDecl seteuid 'extern int seteuid(uid_t);' unistd.h
     CheckFuncDecl setegid 'extern int setegid(gid_t);' unistd.h
+    CheckFuncDecl setenv 'int setenv(const char *, const char *, int);' stdlib.h
     CheckFuncDecl ftruncate 'extern int ftruncate(int, off_t);' unistd.h
     CheckFuncDecl getdtablesize 'extern int getdtablesize(void);' unistd.h
     CheckFuncDecl chroot 'extern int chroot(const char *path);' unistd.h
@@ -3089,6 +3090,7 @@ FUNCS="
     setegid
     seteuid
     setvbuf
+    setenv
     snprintf
     strcasecmp
     strtod

diff --git a/port/setenv.c b/port/setenv.c
new file mode 100644 (file)
index 0000000..51fbe29
--- /dev/null
+++ b/port/setenv.c
@@ -0,0 +1,63 @@
+/*     $Id$
+/*
+ * Copyright (c) 1994-1996 Sam Leffler
+ * Copyright (c) 1994-1996 Silicon Graphics, Inc.
+ * HylaFAX is a trademark of Silicon Graphics, Inc.
+ *
+ * Permission to use, copy, modify, distribute, and sell this software and 
+ * its documentation for any purpose is hereby granted without fee, provided
+ * that (i) the above copyright notices and this permission notice appear in
+ * all copies of the software and related documentation, and (ii) the names of
+ * Sam Leffler and Silicon Graphics may not be used in any advertising or
+ * publicity relating to the software without the specific, prior written
+ * permission of Sam Leffler and Silicon Graphics.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
+ * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
+ * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
+ * 
+ * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
+ * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
+ * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+ * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
+ * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
+ * OF THIS SOFTWARE.
+ */
+#include "port.h"
+#include <errno.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+int
+setenv(const char* name, const char* value, int overwrite)
+{
+    char* new_env;
+    int len;
+
+    if (! overwrite)
+    {
+       /*
+        * If we are not to overwrite the previous one,
+        * We have to return if it's found
+        */
+       if (getenv(name) )
+           return 0;
+    }
+
+    /*
+     * The length we need is:
+     *  - length of name
+     *  - =
+     *  - length of value
+     *  - \0
+     */
+    len = strlen(name) + strlen(value) + 2;
+    if ( (new_env = malloc(len)) == NULL)
+    {
+       errno = ENOMEM;
+       return -1;
+    }
+    sprintf(new_env, "%s=%s", name, value);
+    return putenv(new_env);
+}