Add tclhttpd, a pure-Tcl implementation of a HTTP server.

PR:		ports/19870
Submitted by:	Mikhail Teterin <mi@privatelabs.com>

2 files changed, 36 insertions, 0 deletions

diff --git a/www/tclhttpd/scripts/post-patch b/www/tclhttpd/scripts/post-patch
new file mode 100644
index 000000000000..26de6121b1fd
--- /dev/null
+++ b/www/tclhttpd/scripts/post-patch
@@ -0,0 +1,18 @@
+if [ ${LOCALBASE} != /usr/local ] ; then
+	for f in `find ${WRKSRC} -type f | xargs grep -l /usr/local`
+	do
+		cp -p $f $f.ul && \
+			sed "s%/usr/local%${LOCALBASE}%g" < $f.ul > $f \
+			&& rm -f $f.ul
+	done
+fi
+for f in `find ${WRKSRC} -type f | \
+		xargs grep -l '^exec tclsh.* '`
+do
+	patch --quiet $f << EOP
+@@ -1,1 +1,2 @@
+-#!/bin/sh
++#!${LOCALBASE}/bin/tclsh${TCL_DVER}
++# The ``exec tclsh<whatever>'' below will simply be ignored.
+EOP
+done
diff --git a/www/tclhttpd/scripts/pre-build b/www/tclhttpd/scripts/pre-build
new file mode 100644
index 000000000000..3885e7a6000c
--- /dev/null
+++ b/www/tclhttpd/scripts/pre-build
@@ -0,0 +1,18 @@
+#!/bin/sh
+
+crypt_SRCS="crypt.c cryptLib.c"
+setuid_SRCS=setuid.c
+limit_SRCS=limit.c
+
+cd ${WRKSRC}/src
+
+for l in crypt setuid limit
+do
+	make INTERNALLIB=Y NOPROFILE=Y \
+		LIB=${l} SHLIB_MAJOR=1 SHLIB_MINOR=0 \
+		SRCS="`eval echo \\$${l}_SRCS`" -ECFLAGS \
+		CFLAGS="${CFLAGS} -I${PREFIX}/include/tcl${TCL_DVER} -DUSE_TCL_STUBS" \
+		LDADD="-L${PREFIX}/lib -ltclstub${TCL_VER} -lcrypt" \
+		-f bsd.lib.mk \
+	|| exit 1
+done