X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=index.cgi;h=57de2367ddc95a85850be7ab19b687f52115429a;hb=bec3776a5065a5026936ab2b7d77bbe60a52ddac;hp=12f59b299db03c715539a229c965f0e63e73cc59;hpb=e6309da8eba1d1474b98aa2d4723a10747d808b0;p=lobster diff --git a/index.cgi b/index.cgi index 12f59b2..57de236 100755 --- a/index.cgi +++ b/index.cgi @@ -2,7 +2,7 @@ for n in "$@"; do case ${n%%=*} in data) _DATA="${n#data=}";; - exec) _exec="${n#exec=}";; + exec) _EXEC="${n#exec=}";; noerr) exec 2>&-;; esac; done @@ -10,15 +10,31 @@ esac; done [ -z "${_DATA%/}" ] && _DATA=. || _DATA="${_DATA%/}" . "$_EXEC/cgilite/cgilite.sh" +. "$_EXEC/cgilite/session.sh" _PATH="$(PATH "/${PATH_INFO}")" ACTION="$(GET a)" +message="$(COOKIE message)" +[ "$message" ] && SET_COOKIE 0 message='' + +checked(){ + if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then + printf 'checked="checked"' + fi 2>/dev/null +} +selected(){ + if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then + printf 'selected="selected"' + fi 2>/dev/null +} + yield_page() { local class="$1" style="$2" printf 'Content-Type: text/html; charset=utf-8\r\n\r\n' { printf ' [html [head + [title Lobster] [meta name="viewport" content="width=device-width"] [link rel="stylesheet" type="text/css" href="/style.css"] ' @@ -29,18 +45,24 @@ yield_page() { ] [body class="%s" ' "$class" cat + [ "$message" ] && printf '[p #message\n%s\n]' $(l10n "$message") printf '] ]' } \ | "${_EXEC}/cgilite/html-sh.sed" } -if [ -d "${_EXEC}/${_PATH}" -a -x "${_EXEC}/${_PATH}/main.cgi" ]; then - . "${_EXEC}/${_PATH}/main.cgi" +topdir="${_PATH#/}" +topdir="/${topdir%%/*}" + +if [ -d "${_EXEC}/${_PATH}" -a -x "${_EXEC}/${_PATH}/index.cgi" ]; then + . "${_EXEC}/${_PATH}/index.cgi" elif [ ! -d "${_EXEC}/${_PATH}" -a -x "${_EXEC}/${_PATH}" ]; then . "${_EXEC}/${_PATH}" elif [ ! -x "${_EXEC}/${_PATH}" -a -r "${_EXEC}/${_PATH}" ]; then . "$_EXEC/cgilite/file.sh" FILE "${_EXEC}/${_PATH}" +elif [ -d "${_EXEC}/${topdir}" -a -x "${_EXEC}/${topdir}/index.cgi" ]; then + . "${_EXEC}/${topdir}/index.cgi" else printf 'Status: 404 Not Found\r\nContent-Length: 0\r\n\r\n' fi