--- /dev/null
+ #!/bin/sh
+
+ # Copyright 2017 - 2020 Paul Hänsch
+ #
+ # This is CGIlite.
+ # A collection of posix shell functions for writing CGI scripts.
+ #
+ # CGIlite is free software: you can redistribute it and/or modify
+ # it under the terms of the GNU Affero General Public License as published by
+ # the Free Software Foundation, either version 3 of the License, or
+ # (at your option) any later version.
+ #
+ # CGIlite is distributed in the hope that it will be useful,
+ # but WITHOUT ANY WARRANTY; without even the implied warranty of
+ # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ # GNU Affero General Public License for more details.
+ #
+ # You should have received a copy of the GNU Affero General Public License
+ # along with CGIlite. If not, see <http://www.gnu.org/licenses/>.
+
+ [ -n "$include_cgilite" ] && return 0
+ # guard set after webserver part
+
+ # ksh and zsh workaround
+ # set -o posix # ksh, not portable
+ setopt -o OCTAL_ZEROES 2>&-
+
+ CR="\r"
+ BR='
+ '
+ cgilite_timeout=2
+
+ PATH(){
+ local str seg out
+ [ $# -eq 0 ] && str="$(cat)" || str="$*"
+ while [ "$str" ]; do
+ seg=${str%%/*}; str="${str#*/}"
+ case $seg in
+ ..) out="${out%/}"; out="${out%/*}/";;
+ .|'') out="${out%/}/";;
+ *) out="${out%/}/${seg}";;
+ esac;
+ [ "$seg" = "$str" ] && break
+ done
+ [ "${str}" -a "${out}" ] && printf %s "$out" || printf %s/ "${out%/}"
+ }
+
+ HEX_DECODE='
+ s;\\;\\\\;g; :HEXDECODE_X; s;%([^0-9A-F]);\\045\1;g; tHEXDECODE_X;
+ # Hexadecimal { %00 - %FF } will be transformed to octal { \000 - \377 } for posix printf
+ s;%[0123].;&\\0;g; s;%[4567].;&\\1;g; s;%[89AB].;&\\2;g; s;%[CDEF].;&\\3;g;
+ s;%[048C][0-7]\\.;&0;g; s;%[048C][89A-F]\\.;&1;g; s;%[159D][0-7]\\.;&2;g; s;%[159D][89A-F]\\.;&3;g;
+ s;%[26AE][0-7]\\.;&4;g; s;%[26AE][89A-F]\\.;&5;g; s;%[37BF][0-7]\\.;&6;g; s;%[37BF][89A-F]\\.;&7;g;
+ s;%.[08](\\..);\10;g; s;%.[19](\\..);\11;g; s;%.[2A](\\..);\12;g; s;%.[3B](\\..);\13;g;
+ s;%.[4C](\\..);\14;g; s;%.[5D](\\..);\15;g; s;%.[6E](\\..);\16;g; s;%.[7F](\\..);\17;g;
+ '
+
+ HEX_DECODE(){
+ printf -- "$(printf %s "$1" |sed -E "$HEX_DECODE")"
+ }
+
+ if [ -z "$REQUEST_METHOD" ]; then
+ # no webserver variables means we are running via inetd / ncat
+ # so use builtin web server
+
+ # Use env from inetd as webserver variables
+ REMOTE_ADDR="${TCPREMOTEIP}"
+ SERVER_NAME="${TCPLOCALIP}"
+ SERVER_PORT="${TCPLOCALPORT}"
+
+ # Wait 2 seconds for request or kill connection through watchdog.
+ # Once Request is received the watchdog will be suspended (killed).
+ # At the end of the loop the watchdog will be restarted to enable
+ # timeout for the subsequent request.
+
+ (sleep $cgilite_timeout && kill $$) & cgilite_watchdog=$!
+ while read REQUEST_METHOD REQUEST_URI SERVER_PROTOCOL; do
+ [ "${SERVER_PROTOCOL#HTTP/1.[01]${CR}}" ] && break
+ kill $cgilite_watchdog
+
+ SERVER_PROTOCOL="${SERVER_PROTOCOL%${CR}}"
+ PATH_INFO="$(HEX_DECODE "${REQUEST_URI%\?*}" |PATH)"
+ [ "${REQUEST_URI}" = "${REQUEST_URI#*\?}" ] \
+ && QUERY_STRING='' \
+ || QUERY_STRING="${REQUEST_URI#*\?}"
+ cgilite_headers=''; while read -r hl; do
+ hl="${hl%${CR}}"; [ "$hl" ] || break
+ case $hl in
+ 'Content-Length: '*) CONTENT_LENGTH="${hl#*: }";;
+ 'Content-Type: '*) CONTENT_TYPE="${hl#*: }";;
+ esac
+ cgilite_headers="${cgilite_headers}${hl}${BR}"
+ done
+
+ export REMOTE_ADDR SERVER_NAME SERVER_PORT REQUEST_METHOD REQUEST_URI SERVER_PROTOCOL \
+ PATH_INFO QUERY_STRING CONTENT_TYPE CONTENT_LENGTH
+
+ # Try to serve multiple requests, provided that script serves a
+ # Content-Length header.
+ # Without Content-Length header, connection will terminate after
+ # script.
+
+ cgilite_status='200 OK'; cgilite_response=''; cgilite_cl="Connection: close${CR}${BR}";
+ . "$0" | while read -r l; do case $l in
+ Status:*)
+ cgilite_status="${l#Status: }";;
+ Content-Length:*)
+ cgilite_cl=""
+ cgilite_response="${cgilite_response:+${cgilite_response}${BR}}${l}";;
+ Connection:*)
+ cgilite_cl="${l}${BR}";;
+ $CR) printf '%s %s\r\n%s%s\r\n' \
+ 'HTTP/1.1' "${cgilite_status%${CR}}" \
+ "${cgilite_response}${cgilite_response:+${BR}}" "${cgilite_cl}"
+ cat || kill $$
+ [ "${cgilite_cl#Connection}" = "${cgilite_cl}" ]; exit;;
+ *) cgilite_response="${cgilite_response:+${cgilite_response}${BR}}${l}";;
+ esac; done || exit 0;
+ (sleep $cgilite_timeout && kill $$) & cgilite_watchdog=$!
+ done
+ kill $cgilite_watchdog
+ exit 0
+ fi
+
+ include_cgilite="$0"
+
+ if [ "${REQUEST_METHOD}" = POST -a "${CONTENT_LENGTH:-0}" -gt 0 -a \
+ "${CONTENT_TYPE}" = "application/x-www-form-urlencoded" ]; then
+ cgilite_post="$(head -c "$CONTENT_LENGTH")"
+ fi
+
+ debug(){ [ $# -gt 0 ] && printf '%s\n' "$@" >&2 || tee -a /dev/stderr; }
+ [ "${DEBUG+x}" ] && env >&2
+
+ cgilite_count(){
+ printf %s "&$1" \
+ | grep -oE '&'"$2"'=[^&]*' \
+ | wc -l
+ }
+
+ cgilite_value(){
+ local str="&$1" name="$2" cnt="${3:-1}"
+ while [ $cnt -gt 0 ]; do
+ [ "${str}" = "${str#*&${name}=}" ] && return 1
+ str="${str#*&${name}=}"
+ cnt=$((cnt - 1))
+ done
+ printf -- "$(printf %s "${str%%&*}" |sed -E 's;\+; ;g;'"$HEX_DECODE")"
+ }
+
+ cgilite_keys(){
+ local str="&$1"
+ while [ "${str#*&}" != "${str}" ]; do
+ str="${str#*&}"
+ printf '%s\n' "${str%%=*}"
+ done \
+ | sort -u
+ }
+
+ GET(){ cgilite_value "${QUERY_STRING}" $@; }
+ GET_COUNT(){ cgilite_count "${QUERY_STRING}" $1; }
+ GET_KEYS(){ cgilite_keys "${QUERY_STRING}"; }
+
+ POST(){ cgilite_value "${cgilite_post}" $@; }
+ POST_COUNT(){ cgilite_count "${cgilite_post}" $1; }
+ POST_KEYS(){ cgilite_keys "${cgilite_post}"; }
+
+ REF(){ cgilite_value "${HTTP_REFERER#*\?}" $@; }
+ REF_COUNT(){ cgilite_count "${HTTP_REFERER#*\?}" $1; }
+ REF_KEYS(){ cgilite_keys "${HTTP_REFERER#*\?}"; }
+
+ HEADER(){
+ # Read value of header line. Use this instead of
+ # referencing HTTP_* environment variables.
+ if [ -n "${cgilite_headers+x}" ]; then
+ local str="${BR}${cgilite_headers}"
+ [ "${str}" = "${str#*${BR}${1}: }" ] && return 1
+ str="${str#*${BR}${1}: }"
+ printf %s "${str%%${BR}*}"
+ else
+ local var="HTTP_$(printf %s "$1" |tr a-z- A-Z-)"
+ eval "[ \"\$$var\" ] && printf %s \"\$$var\" || return 1"
+ # eval "printf %s \"\$HTTP_$(printf %s "${1}" |tr a-z A-Z |tr -c A-Z _)\""
+ fi
+ }
+
+ COOKIE(){
+ HEX_DECODE "$(
+ HEADER Cookie \
+ | grep -oE '(^|; ?)'"$1"'=[^;]*' \
+ | sed -En "${2:-1}"'{s;^[^=]+=;;; s;\+; ;g; p;}'
+ )"
+ }
+
+ HTML(){
+ # Escape HTML cahracters
+ # Also escape [, ], and \n for use in html-sh
+ local str out
+ [ $# -eq 0 ] && str="$(cat)" || str="$*"
+ while [ "$str" ]; do
+ case $str in
+ \&*) out="${out}&";;
+ \<*) out="${out}<";;
+ \>*) out="${out}>";;
+ \"*) out="${out}"";;
+ \'*) out="${out}'";;
+ \[*) out="${out}[";;
+ \]*) out="${out}]";;
+ "${CR}"*) out="${out}
";;
+ "${BR}"*) out="${out}
";;
+ *) out="${out}${str%"${str#?}"}";;
+ esac
+ str="${str#?}"
+ done
+ printf %s "$out"
+ }
+
+ URL(){
+ # Escape pathes, so they can be used in link tags and HTTP Headers
+ local str out
+ [ $# -eq 0 ] && str="$(cat)" || str="$*"
+ while [ "$str" ]; do
+ case $str in
+ \&*) out="${out}%26";;
+ \"*) out="${out}%22";;
+ \'*) out="${out}%27";;
+ \?*) out="${out}%3F";;
+ \#*) out="${out}%23";;
+ \[*) out="${out}%5B";;
+ \]*) out="${out}%5D";;
+ \ *) out="${out}%20";;
+ " "*) out="${out}%09";;
+ "${CR}"*) out="${out}%0D";;
+ "${BR}"*) out="${out}%0A";;
+ %*) out="${out}%25";;
+ *) out="${out}${str%"${str#?}"}";;
+ esac
+ str="${str#?}"
+ done
+ printf %s "$out"
+ }
+
+ SET_COOKIE(){
+ # Param: session | +seconds | [date]
+ # Param: name=value
+ # Param: Path= | Domain= | Secure
+ local expire cookie
+ case "$1" in
+ ''|0|session) expire='';;
+ [+-][0-9]*) expire="$(date -R -d @$(($(date +%s) + $1)))";;
+ *) expire="$(date -R -d "$1")";;
+ esac
+ cookie="$2"
+
+ printf 'Set-Cookie: %s; HttpOnly; SameSite=Lax' "$cookie"
+ [ -n "$expire" ] && printf '; Expires=%s' "${expire%+????}${expire:+GMT}"
+ [ $# -ge 3 ] && shift 2 && printf '; %s' "$@"
+ printf '\r\n'
+ }
+
+ REDIRECT(){
+ printf '%s: %s\r\n' \
+ Status "303 See Other" \
+ Content-Length 0 \
+ Location "$*"
+ printf '\r\n'
+ exit 0
+ }
--- /dev/null
+ /* ======= GENERIC HTML STYLES ======= */
+
+ * {
+ box-sizing: border-box;
+ position: relative;
+ font: inherit;
+ text-decoration: inherit;
+ color: inherit; background: transparent;
+ max-width: 100%;
+ margin: 0; padding: 0;
+ border: none;
+ }
+
+ body {
+ font: normal normal normal medium/1.5em sans-serif;
+ color: #000; background: #FFF;
+ }
+
+ ul, ol, dl, table, p { margin-bottom: .5em; }
+
+ a {
+ font-style: italic;
+ text-decoration: underline;
+ color: #068;
+ }
+ a.button {
+ font-style: inherit;
+ text-decoration: inherit;
+ color: inherit;
+ }
+
+ sup { vertical-align: super; }
+ sub { vertical-align: sub; }
+ small { font-size: .75em; }
+ big { font-size: 1.25em; }
+ strike, del, s { text-decoration: line-through; }
+ u {text-decoration: underline; }
+ i, em { font-style: italic; }
+ b, strong { font-weight: bolder; }
+ tt, code, var, samp, kbd { font-family: monospace; }
+ kbd { font-style: italic; }
+
+ ul, ol { margin-left: 1.125em; }
+ dl dt { font-weight: bolder; }
+ table th { font-weight: bold; }
+
+ h1, h2, h3 {
+ font-weight: bold;
+ margin-top: .75em;
+ margin-bottom: .5em;
+ }
+
+ h4, h5, h6, form legend {
+ font-weight: bolder;
+ margin-bottom: .25em;
+ }
+
+ h1 { font-size: 1.5em; }
+ h2 { font-size: 1.125em; }
+
+ select, input, button, textarea, a.button {
+ display: inline-block;
+ color: #000; background-color: #FFF;
+ border: .5pt solid;
+ padding: .25em .75em;
+ vertical-align: text-bottom;
+ border: .5pt solid #000;
+ border-radius: 2pt;
+ }
+ select { padding: .375em 0; }
+
+ input[type=radio], input[type=checkbox] {
+ vertical-align: baseline;
+ }
+ input[type=number] { text-align: right; padding-right: 0; }
+
+ button, input[type=button], a.button {
+ box-shadow: .125em .125em .25em;
+ cursor: pointer;
+ }
+ input[type=radio], input[type=checkbox], label[for] {
+ cursor: pointer;
+ }
+
+ label { margin-right: .75em; }
+ input + label {
+ margin-left: .375em;
+ }
+
+ /* ======= End Generic Styles ======= */
+
+ /* ======= Common Styles ======= */
+
+ *[tooltip]:hover:after {
+ display: block;
+ position: absolute;
+ bottom: -100%; left: 50%; transform: translate(-50%, 0);
+ content: attr(tooltip);
+ padding: .5em;
+ color: #000; background-color: #FFC;
+ border: .5pt solid;
+ z-index: 1;
+ }
+
+ input[type=radio].tab { display: none; }
+ input[type=radio].tab + label {
+ display: table-cell;
+ padding: .5em 1em;
+ color: #000; background-color: #EEE;
+ border: .5pt solid;
+ }
+ input[type=radio].tab:checked + label {
+ background-color: #FFF;
+ border-bottom: none;
+ box-shadow: .125em -.125em .125em #888;
+ z-index: 1;
+ }
+ input[type=radio].tab ~ *.tab {
+ display: none;
+ width: 100%;
+ margin-top: -.5pt; padding: .25em .75em;
+ border: .5pt solid;
+ border-radius: 0;
+ box-shadow: .125em .125em .125em #888;
+ }
+
+ /* ======= End Common Styles ======= */
--- /dev/null
+ #!/bin/sh
+
+ # Copyright 2016 - 2019 Paul Hänsch
+ #
+ # This file is part of cgilite.
+ #
+ # cgilite is free software: you can redistribute it and/or modify
+ # it under the terms of the GNU Affero General Public License as published by
+ # the Free Software Foundation, either version 3 of the License, or
+ # (at your option) any later version.
+ #
+ # cgilite is distributed in the hope that it will be useful,
+ # but WITHOUT ANY WARRANTY; without even the implied warranty of
+ # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ # GNU Affero General Public License for more details.
+ #
+ # You should have received a copy of the GNU Affero General Public License
+ # along with cgilite. If not, see <http://www.gnu.org/licenses/>.
+
+ [ -n "$include_fileserve" ] && return 0
+ include_fileserve="$0"
+
+ file_type(){
+ case ${1##*.} in
+ html|html) printf 'text/html';;
+ css) printf 'text/css';;
+ js) printf 'text/javascript';;
+ txt) printf 'text/plain';;
+ sh) printf 'text/shellscript';;
+ jpg|jpeg) printf 'image/jpeg';;
+ png) printf 'image/png';;
+ svg) printf 'image/svg+xml';;
+ gif) printf 'image/gif';;
+ webm) printf 'video/webm';;
+ mp4|m4v) printf 'video/mp4';;
+ m4a) printf 'audio/mp4';;
+ ogg) printf 'audio/ogg';;
+ xml) printf 'application/xml';;
+ m3u8) printf 'application/x-mpegURL';;
+ ts) printf 'video/MP2T';;
+ mpd) printf 'application/dash+xml';;
+ m4s) printf 'video/iso.segment';;
+ *) printf 'application/octet-stream';;
+ esac
+ }
+
+ FILE(){
+ local file file_size file_date http_date cachedate range mime
+ file="$1" mime="$2"
+
+ if ! [ -f "$file" ]; then
+ printf 'Content-Length: 0\r\nStatus: 404 Not Found\r\n\r\n'
+ exit 0
+ elif ! [ -r "$file" ]; then
+ printf 'Content-Length: 0\r\nStatus: 403 Forbidden\r\n\r\n'
+ exit 0
+ fi
+
+ file_size="$(stat -Lc %s "$file")"
+ file_date="$(stat -Lc %Y "$file")"
+ http_date="$(date -uRd @$file_date)"
+ http_date="${http_date%+0000}GMT"
+ cachedate="$(
+ # Parse the allowable date formats from Section 3.3.1 of
+ # https://www.w3.org/Protocols/rfc2616/rfc2616-sec3.html
+ HEADER If-Modified-Since \
+ | sed -E 's;^[^ ]+, ([0-9]{2}) (...) ([0-9]{4}) (..:..:..) GMT$;\3-\2-\1 \4;;
+ s;^[^ ]+, ([0-9]{2})-(...)-([789][0-9]) (..:..:..) GMT$;19\3-\2-\1 \4;;
+ s;^[^ ]+, ([0-9]{2})-(...)-([0-6][0-9]) (..:..:..) GMT$;20\3-\2-\1 \4;;
+ s;^[^ ]+ (...) ([0-9]{2}) (..:..:..) ([0-9]{4})$;\4-\1-\2 \3;;
+ s;^[^ ]+ (...) ([0-9]) (..:..:..) ([0-9]{4})$;\4-\1-\2 \3;;
+ s;Jan;01;; s;Feb;02;; s;Mar;03;; s;Apr;04;; s;May;05;; s;Jun;06;;
+ s;Jul;07;; s;Aug;08;; s;Sep;09;; s;Oct;10;; s;Nov;11;; s;Dec;12;;' \
+ | xargs -r0 date +%s -ud 2>&-
+ )"
+
+ range="$(HEADER Range |sed -nE 's;^bytes=([0-9]+-[0-9]*|-[0-9]+)$;\1;p;q;')"
+ case "$range" in
+ *-) range="${range}$((file_size - 1))";;
+ -*) [ ${range#-} -le $file_size ] \
+ && range="$((file_size - ${range#-}))-$((file_size - 1))" \
+ || range="0-$((file_size - 1))";;
+ *-*) [ ${range#*-} -ge $file_size ] \
+ && range="${range%-*}-$((file_size - 1))";;
+ esac
+
+ if [ "$file_date" -lt "$cachedate" ] 2>&-; then
+ printf '%s: %s\r\n' \
+ Status '304 Not Modified' \
+ Content-Length 0 \
+ Last-Modified "$http_date"
+ printf '\r\n'
+
+ elif [ -z "$range" ]; then
+ printf '%s: %s\r\n' \
+ Status "200 OK" \
+ Accept-Ranges bytes \
+ Last-Modified "$http_date" \
+ Content-Type "${mime:-$(file_type "$file")}" \
+ Content-Length $file_size
+ printf '\r\n'
+
+ [ "$REQUEST_METHOD" != HEAD ] && cat "$file"
+
+ elif [ "${range%-*}" -le "${range#*-}" ]; then
+ printf '%s: %s\r\n' \
+ Status "206 Partial Content" \
+ Accept-Ranges bytes \
+ Last-Modified "$http_date" \
+ Content-Type "${mime:-$(file_type "$file")}" \
+ Content-Range "bytes ${range}/${file_size}" \
+ Content-Length "$((${range#*-} - ${range%-*} + 1))"
+ printf '\r\n'
+
+ [ "$REQUEST_METHOD" != HEAD ] \
+ && tail -c+$((${range%-*} + 1)) "$file" \
+ | head -c "$((${range#*-} - ${range%-*} + 1))"
+
+ elif [ "${range%-*}" -gt "${range#*-}" ]; then
+ printf '%s: %s\r\n' \
+ Status "216 Range Not Satisfiable" \
+ Content-Length 0 \
+ Content-Range \*/${file_size}
+ printf '\r\n'
+ fi
+ }
--- /dev/null
+ #!/bin/sed -nEf
+
+ :Escapes
+ s,\\\\,\\,g; s,\\&,\&,g;
+ s,\\<,\<,g; s,\\>,\>,g;
+ s,\\",\",g; s,\\',\',g;
+ s,\\\[,\[,g; s,\\\],\],g;
+ s,\\\.,\.,g; s,\\#,\#,g;
+ s,\\,,g;
+
+ :CommentHandle
+ x; /^<\/!-->/{
+ x; /--]/{
+ H; s;^(.*)--].*$;\1-->;p;
+ g; s;^.*--]([^\n]*)$;\1;
+ x; s;^</!-->\n(.*)\n[^\n]*$;\1;; x;
+ bCommentEnd
+ }
+ p; b;
+ }
+ x;
+ :CommentEnd
+
+ :shortcuts
+ s;\[hidden[ \t]+"([^"]*)"[ \t]+"([^"]*)";[input type="hidden" name="\1" value="\2";g;
+ s;\[checkbox[ \t]+"([^"]*)"[ \t]+"([^"]*)";[input type="checkbox" name="\1" value="\2";g;
+ s;\[radio[ \t]+"([^"]*)"[ \t]+"([^"]*)";[input type="radio" name="\1" value="\2";g;
+ s;\[submit[ \t]+"([^"]*)"[ \t]+"([^"]*)";[button type="submit" name="\1" value="\2";g;
+ s;\[a[ \t]+"([^"]*)";[a href="\1";g;
+ s;\[img[ \t]+"([^"]*)"[ \t]+"([^"]*)";[img src="\1" alt="\2";g;
+
+ s;\[!([^]\[]*)\];<!\1>;g;
+ s;\[!--([^]\[]*)--\];<!--\1-->;g;
+
+ :tags
+ s;\[([^]\[< \t]+)([^]\[]*)\];<\1>\2</\1>;g;
+ t tags;
+
+ G;
+ :tagclose
+ s;^([^]\n]*)\]([^\n]*)\n([^\n]+);\1\3\2;
+ t tagclose;
+ h; s;^([^\n]*)\n;;; x; s;\n.*$;;;
+
+ :tagopen
+ s;^([^\[\n]*)\[([^]\[< \t\n]+)([^\n]*);\1<\2>\3\n</\2>;
+ t tagopen;
+ G; h; s;^[^\n]*\n+;;; x; s;\n.*$;;;
+
+ :attribs
+ s;class="([^>]+)>[ \t]*\.([^< \t]+);class="\2 \1>;g; t attribs;
+ s;(<[^/][^>]*)>[ \t]*\.([^< \t]+);\1 class="\2">;g;
+ s;(<[^/][^>]*)>[ \t]*#([^< \t]+);\1 id="\2">;g;
+ s;(<[^/][^>]*)>[ \t]*([^ \t=<]+=("[^"]*"|'[^']*'|[^< \t]*));\1 \2>;g;
+ t attribs;
+ s;(<input ([^>]+ )?type=(radio|"radio"|'radio')( [^>]+)?)>[ \t]*(checked|selected);\1 checked="checked">;g;
+ s;(<input ([^>]+ )?type=(checkbox|"checkbox"|'checkbox')( [^>]+)?)>[ \t]*(checked|selected);\1 checked="checked">;g;
+ s;(<option( [^>]+)?)>[ \t]*(checked|selected);\1 selected="selected">;g;
+ s;(<select( [^>]+)?)>[ \t]*multiple;\1 multiple="multiple">;g;
+ t attribs;
+ s;(<[^/][^>]*>)[ \t]*\.[ \t];\1;g;
+
+ s;(<[^/][^>]*>)[ \t]*;\1;g;
+ # s;(<[^/][^>]*)>[ \t]*</[^>]+>;\1/>;g;
+ s;(<(br|hr|img|input|link|meta|area|base|col|command|embed|keygen|param|source|track|wbr)[^>]*)>[ \t]*</\1>;\1>;g;
+
+ s;<!-->;<!--;;
+
+ p; ${g; s;\n+;;g; p;}
--- /dev/null
+ #!/bin/sh
+
+ # LOGLEVEL 1: Crash condition
+ # LOGLEVEL 2: Unexpected condition
+ # LOGLEVEL 3: Failed action (i.e. due to config error)
+ # LOGLEVEL 4: Debug
+
+ [ -n "$include_logging" ] && return 0
+ include_logging="$0"
+
+ LOGLEVEL="${LOGLEVEL:-3}"
+ LOGFILE="${LOGFILE:-/dev/stderr}"
+
+ logmsg(){
+ local ll="${1:-3}"
+ shift 1
+ if [ "$ll" -le "$LOGLEVEL" -a "$#" -gt 0 ]; then
+ printf %s\\n "$*" >>"${LOGFILE}"
+ elif [ "$ll" -le "$LOGLEVEL" ]; then
+ tee -a "${LOGFILE}"
+ elif [ ! "$#" -gt 0 ]; then
+ cat
+ fi
+ }
+
+ die(){
+ [ "$#" -gt 0 ] && logmsg 1 "$@"
+ exit 1
+ }
+ panic(){ logmsg 2 "$@"; }
+ error(){ logmsg 3 "$@"; }
+ debug(){ logmsg 4 "$@"; }
--- /dev/null
+ #!/bin/sh
+
+ [ -n "$include_session" ] && return 0
+ include_session="$0"
+
+ _DATE="$(date +%s)"
+ SESSION_TIMEOUT="${SESSION_TIMEOUT:-7200}"
+
+ server_key(){
+ IDFILE="${IDFILE:-${_DATA:-.}/serverkey}"
+ if [ "$(stat -c %s "$IDFILE")" -ne 512 ] || ! cat "$IDFILE"; then
+ dd count=1 bs=512 if=/dev/urandom \
+ | tee "$IDFILE"
+ fi 2>&-
+ }
+
+ slopecode(){
+ # 6-Bit Code that retains sort order of input data, while beeing safe to use
+ # in ascii transmissions, unix file names, HTTP URLs, and HTML attributes
+
+ uuencode -m - | sed '
+ 1d;$d;
+ y;ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/;0123456789:=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz;
+ '
+ }
+
+ session_mac(){
+ local info
+ [ $# -eq 0 ] && info="$(cat)" || info="$*"
+
+ if which openssl >/dev/null; then
+ printf %s "$info" |openssl dgst -sha1 -hmac "$(server_key)" -binary |slopecode
+ else
+ { printf %s "$info"; server_key; } |sha256sum |cut -d\ -f1
+ fi
+ }
+
+ randomid(){
+ dd bs=12 count=1 if=/dev/urandom 2>&- \
+ | slopecode
+ }
+
+ timeid(){
+ d=$(($_DATE % 4294967296))
+ { printf "$(
+ printf \\%o \
+ $((d / 16777216 % 256)) \
+ $((d / 65536 % 256)) \
+ $((d / 256 % 256)) \
+ $((d % 256))
+ )"
+ dd bs=8 count=1 if=/dev/urandom 2>&-
+ } | slopecode
+ }
+
+ checkid(){ grep -m 1 -xE '[0-9a-zA-Z:=]{16}'; }
+
+ transid(){
+ # transaction ID to modify a given file
+ local file="$1"
+ session_mac "$(stat -c %F%i%n%N%s%Y "$file" 2>&-)" "$SESSION_ID"
+ }
+
+ update_session(){
+ local session sid time sig checksig
+
+ read -r sid time sig <<-END
+ $(POST session_key || COOKIE session)
+ END
+
+ checksig="$(session_mac "$sid" "$time")"
+
+ if ! [ "$checksig" = "$sig" \
+ -a "$time" -ge "$_DATE" \
+ -a "$(printf %s "$sid" |checkid)" ] 2>&-
+ then
+ debug "Setting up new session"
+ sid="$(randomid)"
+ fi
+
+ time=$(( $_DATE + $SESSION_TIMEOUT ))
+ sig="$(session_mac "$sid" "$time")"
+ printf %s\\n "${sid} ${time} ${sig}"
+ }
+
+ SESSION_KEY="$(update_session)"
+ SET_COOKIE 0 session="$SESSION_KEY" Path=/ SameSite=Strict HttpOnly
+ SESSION_ID="${SESSION_KEY%% *}"
+
+ SESSION_BIND() {
+ local key="$1" value="$2"
+ SET_COOKIE session "$key"="${value} $(session_mac "$value" "$SESSION_ID")"
+ }
+
+ SESSION_VAR() {
+ local key="$1"
+ local value sig
+ value="$(COOKIE "$key")"
+ sig="${value##* }" value="${value% *}"
+ if [ "$sig" = "$(session_mac "$value" "$SESSION_ID")" ]; then
+ printf %s\\n "$value"
+ else
+ return 1
+ fi
+ }
--- /dev/null
+ #!/bin/sh
+
+ # Copyright 2018, 2019 Paul Hänsch
+ #
+ # This is a file format helper, part of CGIlite.
+ #
+ # CGIlite is free software: you can redistribute it and/or modify
+ # it under the terms of the GNU Affero General Public License as published by
+ # the Free Software Foundation, either version 3 of the License, or
+ # (at your option) any later version.
+ #
+ # CGIlite is distributed in the hope that it will be useful,
+ # but WITHOUT ANY WARRANTY; without even the implied warranty of
+ # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ # GNU Affero General Public License for more details.
+ #
+ # You should have received a copy of the GNU Affero General Public License
+ # along with CGIlite. If not, see <http://www.gnu.org/licenses/>.
+
+ [ -n "$include_storage" ] && return 0
+ include_storage="$0"
+
+ CR="\r"
+ BR='
+ '
+
+ LOCK(){
+ local lock timeout block
+ lock="${1}.lock"
+ timeout="${2-20}"
+ if [ \! -w "${lock%/*}" ] || [ -e "$lock" -a \! -d "$lock" ]; then
+ debug "Impossible to get lock: $lock"
+ return 1
+ fi
+
+ while ! mkdir "$lock" 2>&-; do
+ block="$(cat "$lock/pid" || printf 1)"
+ if ! { ps -eo pid |grep -qwF "$block"; }; then
+ debug "Overriding stale lock: $lock"
+ break
+ fi
+ if [ $timeout -le 0 ]; then
+ debug "Timeout while trying to get lock: $lock"
+ return 1
+ fi
+ timeout=$((timeout - 1))
+ sleep 1
+ done
+ printf '%i\n' $$ >"${lock}/pid"
+ return 0
+ }
+
+ RELEASE(){
+ local lock
+ lock="${1}.lock"
+ if [ "$(cat "$lock/pid")" = "$$" ]; then
+ rm "$lock/pid"
+ if ! rmdir "$lock"; then
+ debug "Cannot remove tainted lock: $lock"
+ printf '%i\n' $$ >"${lock}/pid"
+ return 1
+ fi
+ return 0
+ else
+ debug "Refusing to release foreign lock: $lock"
+ return 1
+ fi
+ }
+
+ # STRING='
+ # s;\\;\\\\;g; s;\t;\\t;g;
+ # s;\n;\\n;g; s;\r;\\r;g;
+ # s;\+;\\+;g; s; ;+;g;
+ # '
+ STRING(){
+ local in out=''
+ [ $# -gt 0 ] && in="$*" || in="$(cat)"
+ while [ "$in" ]; do case $in in
+ \\*) out="${out}\\\\"; in="${in#\\}" ;;
+ "$BR"*) out="${out}\\n"; in="${in#${BR}}" ;;
+ "$CR"*) out="${out}\\r"; in="${in#${CR}}" ;;
+ " "*) out="${out}\\t"; in="${in# }" ;;
+ +*) out="${out}\\+"; in="${in#+}" ;;
+ " "*) out="${out}+"; in="${in# }" ;;
+ *) out="${out}${in%%[\\${CR}${BR} + ]*}"; in="${in#"${in%%[\\${BR}${CR} + ]*}"}" ;;
+ esac; done
+ printf '%s' "$out"
+ }
+
+ UNSTRING='
+ :UNSTRING_X
+ s;((^|[^\\])(\\\\)*)\\n;\1\n;g;
+ s;((^|[^\\])(\\\\)*)\\t;\1\t;g;
+ s;((^|[^\\])(\\\\)*)\\r;\1\r;g;
+ s;((^|[^\\])(\\\\)*)\+;\1 ;g;
+ tUNSTRING_X;
+ s;((^|[^\\])(\\\\)*)\\\+;\1+;g;
+ s;\\\\;\\;g;
+ '
+ UNSTRING(){
+ local in out=''
+ [ $# -gt 0 ] && in="$*" || in="$(cat)"
+ while [ "$in" ]; do case $in in
+ \\\\*) out="${out}\\"; in="${in#\\\\}" ;;
+ \\n*) out="${out}${BR}"; in="${in#\\n}" ;;
+ \\r*) out="${out}${CR}"; in="${in#\\r}" ;;
+ \\t*) out="${out} "; in="${in#\\t}" ;;
+ \\+) out="${out}+"; in="${in#\\+}" ;;
+ +*) out="${out} "; in="${in#+}" ;;
+ \\*) in="${in#\\}" ;;
+ *) out="${out}${in%%[\\+]*}"; in="${in#"${in%%[\\+]*}"}" ;;
+ esac; done
+ printf '%s' "$out"
+ }
+
+ DBM() {
+ local file="$1" cmd="$2"
+ local k v key value
+ shift 2;
+
+ case "$cmd" in
+ check|contains)
+ key="$(STRING "$1")"
+ while read -r k v; do if [ "$k" = "$key" ]; then
+ return 0
+ fi; done <"$file" 2>&-
+ return 1
+ ;;
+ get)
+ key="$(STRING "$1")"
+ while read -r k v; do if [ "$k" = "$key" ]; then
+ UNSTRING "$v"
+ return 0
+ fi; done <"$file" 2>&-
+ return 1
+ ;;
+ set|store)
+ key="$(STRING "$1")" value="$(STRING "$2")"
+ LOCK "$file" || return 1
+ { while read -r k v; do
+ [ "$k" = "$key" ] || printf '%s\t%s\n' "$k" "$v"
+ done <"$file" 2>&-
+ printf '%s\t%s\n' "$key" "$value"
+ } >"${file}.$$.tmp"
+ mv "${file}.$$.tmp" "${file}"
+ RELEASE "$file"
+ return 0
+ ;;
+ add|insert)
+ k="$1" key="$(STRING "$1")" value="$(STRING "$2")"
+ LOCK "$file" || return 1
+ if DBM "$file" check "$k"; then
+ RELEASE "$file"
+ return 1
+ else
+ printf '%s\t%s\n' "$key" "$value" >>"${file}"
+ RELEASE "$file"
+ return 0
+ fi
+ ;;
+ update|replace)
+ k="$1" key="$(STRING "$1")" value="$(STRING "$2")"
+ LOCK "$file" || return 1
+ if ! DBM check "$k"; then
+ RELEASE "$file"
+ return 1
+ fi
+ { while read -r k v; do
+ [ "$k" = "$key" ] \
+ && printf '%s\t%s\n' "$key" "$value" \
+ || printf '%s\t%s\n' "$k" "$v"
+ done <"$file" 2>&-
+ } >"${file}.$$.tmp"
+ mv "${file}.$$.tmp" "${file}"
+ RELEASE "$file"
+ return 0
+ ;;
+ append)
+ key="$(STRING "$1")" value="$(STRING "$2")"
+ LOCK "$file" || return 1
+ if ! DBM check "$1"; then
+ RELEASE "$file"
+ return 1
+ fi
+ { while read -r k v; do
+ [ "$k" = "$key" ] \
+ && printf '%s\t%s\n' "$key" "$v$value" \
+ || printf '%s\t%s\n' "$k" "$v"
+ done <"$file" 2>&-
+ } >"${file}.$$.tmp"
+ mv "${file}.$$.tmp" "${file}"
+ RELEASE "$file"
+ return 0
+ ;;
+ delete|remove)
+ key="$(STRING "$1")"
+ LOCK "$file" || return 1
+ { while read -r k v; do
+ [ "$k" = "$key" ] || printf '%s\t%s\n' "$k" "$v"
+ done <"$file" 2>&-
+ } >"${file}.$$.tmp"
+ mv "${file}.$$.tmp" "${file}"
+ RELEASE "$file"
+ return 0
+ ;;
+ esac
+ }
projects / webtxt / commitdiff