Found in davenant:/usr/local/src/misc

[userv-utils.git] / www-cgi / ucgicommon.c

diff --git a/www-cgi/ucgicommon.c b/www-cgi/ucgicommon.c
new file mode 100644 (file)
index 0000000..ba97474
--- /dev/null
+++ b/www-cgi/ucgicommon.c
@@ -0,0 +1,75 @@
+/**/
+
+#include <stdio.h>
+#include <string.h>
+
+#include "ucgi.h"
+
+const char *const envok[]= {
+  "CONTENT_LENGTH",
+  "CONTENT_TYPE",
+  "DOCUMENT_ROOT",
+  "GATEWAY_INTERFACE",
+  "HTTP_ACCEPT",
+  "HTTP_ACCEPT_ENCODING",
+  "HTTP_ACCEPT_LANGUAGE",
+  "HTTP_CACHE_CONTROL",
+  "HTTP_HOST",
+  "HTTP_NEGOTIATE",
+  "HTTP_PRAGMA",
+  "HTTP_USER_AGENT",
+  "PATH_INFO",
+  "PATH_TRANSLATED",
+  "QUERY_STRING",
+  "REMOTE_ADDR",
+  "REMOTE_HOST",
+  "REMOTE_USER",
+  "REMOTE_IDENT",
+  "REQUEST_METHOD",
+  "SCRIPT_FILENAME",
+  "SCRIPT_NAME",
+  "SCRIPT_URI",
+  "SCRIPT_URL",
+  "SERVER_ADMIN",
+  "SERVER_NAME",
+  "SERVER_PORT",
+  "SERVER_PROTOCOL",
+  "SERVER_SOFTWARE",
+  0
+};
+const int nenvok= sizeof(envok)/sizeof(envok[0]);
+
+int debugmode= 0;
+
+static void outerror(void) {
+  perror("stdout");
+  exit(debugmode ? 0 : -1);
+}
+
+void syserror(const char *m) {
+  if (printf("Content-Type: text/plain\n\n"
+            "ucgi: system call error:\n"
+            "%s: %s\n",
+            m,strerror(errno))==EOF || fflush(stdout)) outerror();
+  exit(0);
+}
+
+void error(const char *m) {
+  if (printf("Content-Type: text/plain\n\n"
+            "ucgi: error:\n"
+            "%s\n",
+            m)==EOF || fflush(stdout)) outerror();
+  exit(0);
+}
+
+void *xmalloc(size_t sz) {
+  void *r;
+
+  r= malloc(sz);
+  if (!r) syserror("malloc failed");
+  return r;
+}
+
+void xsetenv(const char *en, const char *ev, int overwrite) {
+  if (setenv(en,ev,overwrite)) syserror("setenv");
+}