3 # Copyright 2014 - 2016 Paul Hänsch
5 # This file is part of shcgi.
7 # shcgi is free software: you can redistribute it and/or modify
8 # it under the terms of the GNU Affero General Public License as published by
9 # the Free Software Foundation, either version 3 of the License, or
10 # (at your option) any later version.
12 # shcgi is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU Affero General Public License for more details.
17 # You should have received a copy of the GNU Affero General Public License
18 # along with shcgi. If not, see <http://www.gnu.org/licenses/>.
20 export LC_ALL=C LANG=C
22 if [ "$1" = '--ncat' ]; then
23 export REMOTE_ADDR="${NCAT_REMOTE_ADDR}"
24 export SERVER_NAME="${NCAT_LOCAL_ADDR}"
25 export SERVER_PORT="${NCAT_LOCAL_PORT}"
27 # this program is supposed to be symlinked into a http root directory
28 # we will use the http root as object storage (data directory) and call sub
29 # programs from the directory in which the real executable resides
30 # therefore we need to identify the code and data directories _EXEC and _DATA
32 real="$(readlink -f $call)"
33 _DATA="$(dirname "$call")" #storage directory
34 _EXEC="${real%/shcgi/index.cgi}" #execution directory
36 . "$_EXEC/shcgi/misc.sh"
38 # put debug options in the local.opts file
39 . "$_EXEC/shcgi/debug.sh"
40 [ -r "$_DATA/local.opts" ] && . "$_DATA/local.opts"
43 if [ "$1" = '--server' ]; then
45 ncat -kle "$0 --ncat" $@
48 elif [ "$1" = '--inetd' -o "$1" = '--ncat' ]; then
51 /^(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$/{
53 s;(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$;export REQUEST_METHOD='\''\1'\'';p
55 s;(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$;\2;
56 s;'\'';'\''\\'\'''\'';g
57 s;^.*$;export PATH_INFO='\''&'\'';p
59 s;(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$;\3;
60 s;'\'';'\''\\'\'''\'';g
61 s;^.*$;export QUERY_STRING='\''&'\'';p
63 s;(GET|HEAD|POST) ([^\?]*)\??(.+)? (HTTP\/[0-9]\.[0-9])\r?$;export SERVER_PROTOCOL='\''\4'\'';p
67 /^[Pp][Rr][Oo][Xx][Yy]: /d
72 s;'\'';'\''\\'\'''\'';g
76 y;abcdefghijklmnopqrstuvwxyz-;ABCDEFGHIJKLMNOPQRSTUVWXYZ_;
77 s;^.+$;export HTTP_&=;
87 . "$_EXEC/shcgi/cgi.sh"
89 [ -x "$_EXEC/globals.sh" ] && . "$_EXEC/globals.sh"
91 PAGE=$(validate "${PAGE:-${_GET[page]}}" '[a-zA-Z0-9_-]+' '')
92 ACTION=$(validate "${ACTION:-${_GET[action]}}" '[a-zA-Z0-9_-]+' '')
93 STATIC=$(invalidate "${STATIC:-${_GET[static]}}" '(^|.*/)\.\./.*' '')
95 if [ -n "$STATIC" -a -e "${_EXEC}/static/${STATIC}" ]; then
96 . "$_EXEC/shcgi/static.sh"
97 elif [ -n "$ACTION" -a -x "${_EXEC}/actions/${ACTION}.sh" ]; then
98 . "${_EXEC}/actions/${ACTION}.sh"
99 elif [ -n "$PAGE" -a -x "${_EXEC}/pages/${PAGE}.sh" ]; then
100 . "$_EXEC/shcgi/page.sh"
102 printf 'HTTP/1.1 404 Not Found\r\n'
104 . "$_EXEC/shcgi/page.sh"