X-Git-Url: http://git.plutz.net/?p=cgilite;a=blobdiff_plain;f=index.cgi;h=35795cb14d526829084af30452c8b53808e5534b;hp=6359a0ae353e009e9dcbfc8425c52b1244bf6112;hb=d849a531488425d7f86afad48eaa98e14956958f;hpb=d4c4b43f0c0a3632998892da7bad8a18e687b0e8

diff --git a/index.cgi b/index.cgi
index 6359a0a..35795cb 100755
--- a/index.cgi
+++ b/index.cgi
@@ -1,6 +1,6 @@
 #!/bin/zsh
 
-# Copyright 2014, 2015 Paul Hänsch
+# Copyright 2014 - 2016 Paul Hänsch
 #
 # This file is part of shcgi.
 # 
@@ -17,57 +17,89 @@
 # You should have received a copy of the GNU Affero General Public License
 # along with shcgi.  If not, see <http://www.gnu.org/licenses/>. 
 
-export LC_ALL=C
+export LC_ALL=C LANG=C
 
-# 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
-
-# basic functions
-die() {
-  echo "$@" >&2
-  exit 1
-}
-
-debug() { #change to false to disable debugging
-  #true && echo "$*" >>debug
-  true && [ -n "$*" ] && echo -E "$*" >>/dev/stderr
-  true && [ -z "$*" ] && tee /dev/stderr
-}
-
-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"
-elif [ -n "$_GET[\"export\"]" ]; then
-  . "$_EXEC/shcgi/export.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