1 files changed, 28 insertions, 0 deletions
diff --git a/cgi/cgirelscriptptr.c b/cgi/cgirelscriptptr.c
new file mode 100644
index 0000000..edce813
--- /dev/null
+++ b/cgi/cgirelscriptptr.c
@@ -0,0 +1,28 @@
+/*
+** Copyright 1999-2007 Double Precision, Inc.
+** See COPYING for distribution information.
+*/
+
+/*
+*/
+#include	"cgi.h"
+
+#if	HAVE_UNISTD_H
+#include	<unistd.h>
+#endif
+
+#include	<string.h>
+#include	<stdlib.h>
+#include	<stdio.h>
+
+extern void error(const char *);
+
+const char *cgirelscriptptr()
+{
+	const char *p=getenv("HTTPS");
+
+	if (p && strcasecmp(p, "on") == 0)
+		return (cgihttpsscriptptr());
+
+	return (cgihttpscriptptr());
+}