1 files changed, 61 insertions, 0 deletions
diff --git a/kcgienv.c b/kcgienv.c
new file mode 100644
index 0000000..155d8a9
--- /dev/null
+++ b/kcgienv.c
@@ -0,0 +1,61 @@
+/*
+ * Copyright 2023, Vincent Douillet <vincent@vdouillet.fr>
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ * 1. Redistributions of source code must retain the above copyright notice,
+ * this list of conditions and the following disclaimer.
+ *
+ * 2. Redistributions in binary form must reproduce the above copyright notice,
+ * this list of conditions and the following disclaimer in the documentation
+ * and/or other materials provided with the distribution.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its contributors
+ * may be used to endorse or promote products derived from this software without
+ * specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <stdint.h>
+#include <stdlib.h>
+#include <kcgi.h>
+#include <unistd.h>
+
+int main(void) {
+	struct kreq r;
+	const char *page = "index";
+	if(KCGI_OK != khttp_parse(&r, NULL, 0, &page, 1, 0))
+		return EXIT_FAILURE;
+
+	if(-1 == pledge("stdio", NULL))
+		return EXIT_FAILURE;
+
+	khttp_head(&r, kresps[KRESP_STATUS], "%s", khttps[KHTTP_200]);
+	khttp_head(&r, kresps[KRESP_CONTENT_TYPE], "%s", kmimetypes[r.mime]);
+	khttp_body(&r);
+
+	if(r.reqsz > 0) {
+		// print request headers
+		for(struct khead* header = r.reqs; header < r.reqs + r.reqsz; header++) {
+			khttp_puts(&r, header->key);
+			khttp_puts(&r, "=");
+			khttp_puts(&r, header->val);
+			khttp_puts(&r, "<br/>");
+		}
+	}
+
+	khttp_free(&r);
+	return EXIT_SUCCESS;
+}