1 files changed, 16 insertions, 0 deletions
diff --git a/devel/tcllib/files/tclhttpd.sh b/devel/tcllib/files/tclhttpd.sh
new file mode 100644
index 000000000000..6053456fe639
--- /dev/null
+++ b/devel/tcllib/files/tclhttpd.sh
@@ -0,0 +1,16 @@
+#!/bin/sh
+case $1 in
+stop)
+	if ! [ -f /var/run/tclhttd.pid ] ; then
+		echo tclhttd does not seem to be running
+		exit 1
+	fi
+	echo "Not sure if `cat /var/run/tclhttd.pid` \
+		(from /var/run/tclhttd.pid) is what you wish killed."
+	exit 2
+	;;
+start|"")
+	COMMAND_LINE &
+	test -n "$!" && echo $! > /var/run/tclhttd.pid
+	;;
+esac