#!/bin/zsh
-# Copyright 2014, 2015 Paul Hänsch
+# Copyright 2014 - 2016 Paul Hänsch
#
# This file is part of shcgi.
#
# along with shcgi. If not, see <http://www.gnu.org/licenses/>.
export LC_ALL=C LANG=C
-DBG_ENABLED=false
-DBG_FILE=/dev/stderr
-# this program is supposed to be symlinked into a http root directory
-# we will use the http root as object storage (data directory) and call sub
-# programs from the directory in which the real executable resides
-# therefore we need to identify the code and data directories _EXEC and _DATA
-call="$0"
-real="$(readlink -f $call)"
-_DATA="$(dirname "$call")" #storage directory
-_EXEC="${real%/shcgi/index.cgi}" #execution directory
-
-# put debug options in the local.opts file
-[ -r "$_DATA/local.opts" ] && . "$_DATA/local.opts"
-
-# basic functions
-debug() { #change to false to disable debugging
- if [ "$DBG_ENABLED" = true -a -n "$*" ]; then
- printf '%s\n' "$*" >>"$DBG_FILE"
- elif [ "$DBG_ENABLED" = true -a -z "$*" ]; then
- tee -a "$DBG_FILE"
- elif [ -z "$*" ]; then
- cat
- fi
-}
-
-die() {
- debug FATAL: "$*"
- printf '%s\n' "$*" >&2
- exit 1
-}
-
-data_dirs(){
- # create directories for object storage
+if [ "$1" = '--ncat' ]; then
+ export REMOTE_ADDR="${NCAT_REMOTE_ADDR}"
+ export SERVER_NAME="${NCAT_LOCAL_ADDR}"
+ export SERVER_PORT="${NCAT_LOCAL_PORT}"
+else
+ # this program is supposed to be symlinked into a http root directory
+ # we will use the http root as object storage (data directory) and call sub
+ # programs from the directory in which the real executable resides
+ # therefore we need to identify the code and data directories _EXEC and _DATA
+ call="$0"
+ real="$(readlink -f $call)"
+ _DATA="$(dirname "$call")" #storage directory
+ _EXEC="${real%/shcgi/index.cgi}" #execution directory
+
+ . "$_EXEC/shcgi/misc.sh"
+
+ # put debug options in the local.opts file
+ . "$_EXEC/shcgi/debug.sh"
+ [ -r "$_DATA/local.opts" ] && . "$_DATA/local.opts"
+fi
- [ -d "$_DATA" -a -w "$_DATA" ] || die "storage directory must be writable"
- for each in "$@"; do
- [ ! -e "$_DATA/$each" ] && mkdir "$_DATA/$each"
- [ -d "$_DATA/$each" -a -w "$_DATA/$each" ] || die "storage \"$_DATA/$each\" must be a writable directory"
- done
-}
+if [ "$1" = '--server' ]; then
+ shift 1
+ ncat -kle "$0 --ncat" $@
+ exit $?
-# create htaccess file
-[ -f "$_DATA/.htaccess" ] || cat >"$_DATA/.htaccess" <<EOF
-Options +ExecCGI
-AddHandler cgi-script .cgi
-DirectoryIndex index.cgi
-EOF
-[ -f "$_DATA/.htaccess" ] || die "no htaccess file present and unable to create one"
+elif [ "$1" = '--inetd' -o "$1" = '--ncat' ]; then
+ eval $(
+ sed -nr '
+ /^(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$/{
+ h
+ s;(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$;export REQUEST_METHOD='\''\1'\'';p
+ g
+ s;(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$;\2;
+ s;'\'';'\''\\'\'''\'';g
+ s;^.*$;export PATH_INFO='\''&'\'';p
+ g
+ s;(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$;\3;
+ s;'\'';'\''\\'\'''\'';g
+ s;^.*$;export QUERY_STRING='\''&'\'';p
+ g
+ s;(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$;export SERVER_PROTOCOL='\''\4'\'';p
+ g
+ }
+
+ /^[Pp][Rr][Oo][Xx][Yy]: /d
+
+ /^[a-zA-Z_-]+: .*$/{
+ h
+ s;^[^:]+: (.*)\r$;\1;
+ s;'\'';'\''\\'\'''\'';g
+ s;^.*$;'\''&'\'';
+ x
+ s;: .*$;;
+ y;abcdefghijklmnopqrstuvwxyz-;ABCDEFGHIJKLMNOPQRSTUVWXYZ_;
+ s;^.+$;export HTTP_&=;
+ G
+ s;\n;;
+ p
+ }
+ /^\r?$/q
+ '
+ )
+fi
. "$_EXEC/shcgi/cgi.sh"
-cgi_get
+[ -x "$_EXEC/globals.sh" ] && . "$_EXEC/globals.sh"
-[ -x "$_EXEC/constants.sh" ] && . "$_EXEC/constants.sh"
+ PAGE=$(validate "${PAGE:-${_GET[page]}}" '[a-zA-Z0-9_-]+' '')
+ACTION=$(validate "${ACTION:-${_GET[action]}}" '[a-zA-Z0-9_-]+' '')
+STATIC=$(invalidate "${STATIC:-${_GET[static]}}" '(^|.*/)\.\./.*' '')
-if [ -n "${_GET[action]}" ]; then
- . "$_EXEC/shcgi/action.sh"
+if [ -n "$STATIC" -a -e "${_EXEC}/static/${STATIC}" ]; then
+ . "$_EXEC/shcgi/static.sh"
+elif [ -n "$ACTION" -a -x "${_EXEC}/actions/${ACTION}.sh" ]; then
+ . "${_EXEC}/actions/${ACTION}.sh"
+elif [ -n "$PAGE" -a -x "${_EXEC}/pages/${PAGE}.sh" ]; then
+ . "$_EXEC/shcgi/page.sh"
else
+ printf 'HTTP/1.1 404 Not Found\r\n'
+ PAGE=error
. "$_EXEC/shcgi/page.sh"
fi