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

diff --git a/index.cgi b/index.cgi
index 35795cb..907041e 100755
--- a/index.cgi
+++ b/index.cgi
@@ -19,69 +19,24 @@
 
 export LC_ALL=C LANG=C
 
-if [ "$1" = '--ncat' ]; then
-  export REMOTE_ADDR="${NCAT_REMOTE_ADDR}"
-  export SERVER_NAME="${NCAT_LOCAL_ADDR}"
-  export SERVER_PORT="${NCAT_LOCAL_PORT}"
+# 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)"
+export _DATA="$(dirname "$call")"  #storage directory
+export _EXEC="${real%/shcgi/index.cgi}"  #execution directory
+
+# put debug options in the local.opts file
+. "$_EXEC/shcgi/misc.sh"
+. "$_EXEC/shcgi/debug.sh"
+[ -r "$_DATA/local.opts" ] && . "$_DATA/local.opts"
+
+if [ "$1" = '--server' -o  "$1" = '--inetd' -o "$1" = '--ncat' ]; then
+  . "$_EXEC/shcgi/server.sh" $@
 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
-
-if [ "$1" = '--server' ]; then
-  shift 1
-  ncat -kle "$0 --ncat" $@
-  exit $?
-
-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
-  '
-  )
+  HTTP_format(){ cat }
 fi
 
 . "$_EXEC/shcgi/cgi.sh"
@@ -92,14 +47,16 @@ fi
 ACTION=$(validate "${ACTION:-${_GET[action]}}" '[a-zA-Z0-9_-]+' '')
 STATIC=$(invalidate "${STATIC:-${_GET[static]}}" '(^|.*/)\.\./.*' '')
 
-if [ -n "$STATIC" -a -e "${_EXEC}/static/${STATIC}" ]; then
-  . "$_EXEC/shcgi/static.sh"
-elif [ -n "$ACTION" -a -x "${_EXEC}/actions/${ACTION}.sh" ]; then
+if [ -n "$STATIC" ] && [ -e "${_EXEC}/static/${STATIC}" ]; then
+  . "$_EXEC/shcgi/static.sh" "$_EXEC/static/$STATIC"
+elif [ -n "$ACTION" ] && [ -x "${_EXEC}/actions/${ACTION}.sh" ]; then
   . "${_EXEC}/actions/${ACTION}.sh"
-elif   [ -n "$PAGE"   -a -x "${_EXEC}/pages/${PAGE}.sh" ]; then
+elif   [ -n "$PAGE" ] && [ -x "${_EXEC}/pages/${PAGE}.sh" ]; then
   . "$_EXEC/shcgi/page.sh"
 else
-  printf 'HTTP/1.1 404 Not Found\r\n'
+  printf 'Status: 404 Not Found\r\n'
   PAGE=error
-  . "$_EXEC/shcgi/page.sh"
-fi
+  [ -x "${_EXEC}/pages/${PAGE}.sh" ] \
+  && . "$_EXEC/shcgi/page.sh" \
+  || printf '\r\n'
+fi |HTTP_format $@