--- /dev/null
+/*
+ * getcgivars.c - routine to read CGI input variables into an array.
+ *
+ * Copyright 2002 Jonathan McDowell <noodles@earth.li>
+ *
+ * The x2c() and unescape_url() routines were lifted directly
+ * from NCSA's sample program util.c, packaged with their HTTPD.
+ *
+ * This program is free software: you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the Free
+ * Software Foundation; version 2 of the License.
+ *
+ * This program is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+ * more details.
+ *
+ * You should have received a copy of the GNU General Public License along with
+ * this program. If not, see <https://www.gnu.org/licenses/>.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <strings.h>
+#include <stdlib.h>
+
+#include "getcgi.h"
+
+/*
+ * start_html - Start HTML output.
+ * @title: The title for the HTML.
+ *
+ * Takes a title string and starts HTML output, including the
+ * Content-Type header all the way up to <BODY>.
+ */
+void start_html(const char *title)
+{
+ puts("Content-Type: text/html; charset=UTF-8\n");
+ puts("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 3.2 Final//EN'>");
+ puts("<HTML>");
+ puts("<HEAD>");
+ printf("<TITLE>%s</TITLE>\n", title);
+ puts("</HEAD>");
+ puts("<BODY>");
+
+ return;
+}
+
+/*
+ * end_html - End HTML output.
+ *
+ * Ends HTML output - closes the BODY and HTML tags.
+ */
+void end_html(void)
+{
+ puts("</BODY>");
+ puts("</HTML>");
+
+ return;
+}
+
+
+/* Convert a two-char hex string into the char it represents */
+char x2c(const char *what)
+{
+ register char digit;
+
+ digit = (what[0] >= 'A' ? ((what[0] & 0xdf) - 'A')+10 :
+ (what[0] - '0'));
+ digit *= 16;
+ digit += (what[1] >= 'A' ? ((what[1] & 0xdf) - 'A')+10 :
+ (what[1] - '0'));
+
+ return(digit);
+}
+
+/* Reduce any %xx escape sequences to the characters they represent */
+void unescape_url(char *url)
+{
+ register int i,j;
+
+ for(i=0,j=0; url[j]; ++i,++j) {
+ if((url[i] = url[j]) == '%') {
+ url[i]=x2c(&url[j+1]);
+ j+=2;
+ }
+ }
+
+ url[i] = '\0';
+}
+
+
+/* Read the CGI input and place all name/val pairs into list. */
+/* Returns list containing name1, value1, name2, value2, ... , NULL */
+char **getcgivars(int argc, char *argv[])
+{
+ int i;
+ char *request_method, *env;
+ int content_length, paircount;
+ char *cgiinput = NULL;
+ char **cgivars = NULL;
+ char **pairlist = NULL;
+ char *nvpair,*eqpos;
+
+ /* Depending on the request method, read all CGI input into cgiinput */
+ /* (really should produce HTML error messages, instead of exit()ing) */
+
+ request_method = getenv("REQUEST_METHOD");
+
+ if (request_method == NULL) {
+ if (argc > 1) {
+ cgiinput = strdup(argv[1]);
+ } else {
+ return NULL;
+ }
+ } else if (strlen(request_method)==0) {
+ return NULL;
+ } else if (!strcmp(request_method, "GET") ||
+ !strcmp(request_method, "HEAD")) {
+ env = getenv("QUERY_STRING");
+ if (env != NULL) {
+ cgiinput = strdup(env);
+ }
+ } else if (!strcmp(request_method, "POST")) {
+ env = getenv("CONTENT_TYPE");
+ if ((env != NULL) && strcasecmp(env,
+ "application/x-www-form-urlencoded")) {
+ printf("getcgivars(): Unsupported Content-Type.\n");
+ exit(1);
+ }
+
+ env = getenv("CONTENT_LENGTH");
+ if ((env == NULL) || !(content_length = atoi(env))) {
+ printf("getcgivars(): No Content-Length was sent with"
+ " the POST request.\n");
+ exit(1);
+ }
+
+ if (!(cgiinput = (char *) malloc(content_length+1))) {
+ printf("getcgivars(): Could not malloc for "
+ "cgiinput.\n");
+ exit(1);
+ }
+
+ if (!fread(cgiinput, content_length, 1, stdin)) {
+ printf("Couldn't read CGI input from STDIN.\n");
+ exit(1);
+ }
+
+ cgiinput[content_length]='\0';
+
+ } else {
+ printf("getcgivars(): unsupported REQUEST_METHOD\n");
+ exit(1);
+ }
+
+ /* If we didn't get any cgiinput info, nothing to return */
+ if (cgiinput == NULL) {
+ return NULL;
+ }
+
+ /* Change all plusses back to spaces */
+
+ for(i=0; cgiinput[i]; i++) if (cgiinput[i]=='+') cgiinput[i] = ' ';
+
+ /* First, split on "&" to extract the name-value pairs into pairlist */
+ pairlist= malloc(256*sizeof(char *));
+ paircount=0;
+ nvpair=strtok(cgiinput, "&");
+ while (nvpair) {
+ pairlist[paircount++]= strdup(nvpair) ;
+ if (!(paircount%256)) {
+ pairlist= realloc(pairlist,
+ (paircount+256)*sizeof(char *));
+ }
+ nvpair=strtok(NULL, "&") ;
+ }
+
+ pairlist[paircount]=0; /* terminate the list with NULL */
+
+ /* Then, from the list of pairs, extract the names and values */
+
+ cgivars= malloc((paircount*2+1)*sizeof(char *));
+
+ for (i=0; i<paircount; i++) {
+ if ((eqpos=strchr(pairlist[i], '='))!=NULL) {
+ *eqpos='\0';
+ unescape_url(cgivars[i*2+1]=strdup(eqpos+1));
+ } else {
+ unescape_url(cgivars[i*2+1]=strdup(""));
+ }
+ unescape_url(cgivars[i*2]= strdup(pairlist[i])) ;
+ }
+
+ cgivars[paircount*2]=NULL; /* terminate the list with NULL */
+
+ /* Free anything that needs to be freed */
+ free(cgiinput);
+ for (i=0; pairlist[i]; i++) free(pairlist[i]);
+ free(pairlist);
+
+ /* Return the list of name-value strings */
+ return cgivars;
+}
+
+
+/**
+ * cleanupcgi - free the memory allocated for our CGI parameters.
+ * @cgivars: The CGI parameter list to free.
+ *
+ * Frees up the elements of the CGI parameter array and then frees the
+ * array.
+ */
+void cleanupcgi(char **cgivars)
+{
+ int i;
+
+ if (cgivars != NULL) {
+ for (i = 0; cgivars[i] != NULL; i++) {
+ free(cgivars[i]);
+ cgivars[i] = NULL;
+ }
+ free(cgivars);
+ cgivars = NULL;
+ }
+
+ return;
+}