From 4aeb399b1b2ba09c00b4f82b0b198e9e5273f127 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Paul=20H=C3=A4nsch?= Date: Fri, 23 Jul 2021 17:57:33 +0200 Subject: [PATCH] stubs for poll creation dialog --- index.cgi | 119 ++++++++++++++++++++++++++++++++++++++++++++++------ webpoll.css | 41 ++++++++++++++++++ 2 files changed, 148 insertions(+), 12 deletions(-) create mode 100644 webpoll.css diff --git a/index.cgi b/index.cgi index 51a7c0f..d1469cd 100755 --- a/index.cgi +++ b/index.cgi @@ -2,13 +2,17 @@ _EXEC="${_EXEC:-${0%/*}/}" _DATA="${_DATA:-.}" +_BASE="${_BASE%/}" . "$_EXEC"/cgilite/cgilite.sh -#. "$_EXEC"/cgilite/session.sh +. "$_EXEC"/cgilite/session.sh . "$_EXEC"/cgilite/file.sh +. "$_EXEC"/cgilite/storage.sh #. "$_EXEC"/session_lock.sh . "$_EXEC"/widgets.sh +PATH_INFO="$(PATH "/${PATH_INFO#${_BASE}}")" + #git init "$_DATA" >/dev/null & yield_page(){ @@ -19,24 +23,115 @@ yield_page(){ { printf '[html [head [meta name="viewport" content="width=device-width"] - [link rel="stylesheet" type="text/css" href="common.css"] - [link rel="stylesheet" type="text/css" href="widgets.css"] + [link rel="stylesheet" type="text/css" href="%s/common.css"] + [link rel="stylesheet" type="text/css" href="%s/widgets.css"] + [link rel="stylesheet" type="text/css" href="%s/webpoll.css"] [title %s] ] [body class="%s" - ' "$title" "$page" + ' "$_BASE" "$_BASE" "$_BASE" "$title" "$page" cat printf '] ]' } |"$_EXEC/cgilite/html-sh.sed" -u } -case ${PATH_INFO##*/} in - favicon.ico) printf '%s\r\n' 'Content-Length: 0' '';; - common.css) FILE "$_EXEC/cgilite/common.css";; - widgets.css) FILE "$_EXEC/widgets.css";; - '') yield_page <<-EOF - $(w_month date1 2019-12 24) - $(w_month date2 2020-01) - $(w_month date3 2020-02) +pagename() { + local id="$1" + local file="$_DATA/$id" + if [ -f "$file" ]; then + DBM "$file" get title || printf 'Unnamed Page' + else + return 1; + fi +} + +[ "$REQUEST_METHOD" = POST ] && case ${PATH_INFO} in + /) + case $(POST start) in + date) + id="$(randomid)" + touch "$_DATA/$id" + REDIRECT "$_BASE/$id/newdate" + ;; + options) + id="$(randomid)" + touch "$_DATA/$id" + REDIRECT "$_BASE/$id/newoptions" + ;; + *) REDIRECT "$_BASE/";; + esac + ;; + /*/newdate) + id="${PATH_INFO%/newdate}"; id="${id#/}" + file="$_DATA/$id" + month="$(POST month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])')" + DBM "$file" set title "$(POST title)" + DBM "$file" set description "$(POST description)" + DBM "$file" set dates "$( + for date in $(seq 1 $(POST_COUNT date)); do + POST date "$date" + printf \\n + done |sort + )" + if [ "$(POST cancel)" = cancel ]; then + rm -- "$file" + REDIRECT "$_BASE/" + elif [ "$month" ]; then + REDIRECT "$_BASE$PATH_INFO?month=$month" + else + REDIRECT "$_BASE$PATH_INFO" + fi + ;; +esac + + +case ${PATH_INFO} in + /favicon.ico) printf '%s\r\n' 'Content-Length: 0' '';; + /common.css) FILE "$_EXEC/cgilite/common.css";; + /widgets.css|/webpoll.css) FILE "${_EXEC}/${PATH_INFO}";; + /) recent="$(COOKIE pages)" + yield_page "Start a Poll" "home" <<-EOF + [form method=post + [submit "start" "date" Start a new poll] + $(if [ "$recent" ]; then + printf '[h2 Recent Polls][ul .recent' + for page in $recent; do + [ -f "$_DATA/$(printf %s "$page" |checkid)" ] \ + && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)" + done + printf ']' + fi) + ] + EOF + ;; + /*/newdate) + id="${PATH_INFO%/newdate}"; id="${id#/}" + file="$_DATA/$id" + month="$(GET month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])' || date +%Y-%m)" + Y="${month%-*}"; m="${month#*-}"; Y=${Y#0}; m=${m#0}; + [ "$m" = 1 ] && prev=$(printf '%04i-%02i' $((Y - 1)) 12) || prev=$(printf '%04i-%02i' $Y $((m - 1))) + [ "$m" = 12 ] && next=$(printf '%04i-%02i' $((Y + 1)) 01) || next=$(printf '%04i-%02i' $Y $((m + 1))) + dates="$(DBM "$file" get dates)" + days="$(printf %s "$dates" |sed -E "/^${month}-/!d; s;^.*-([0-9]{2})$;\1;g")" + additional="$(printf %s "$dates" |sed -E "/^${month}-/d;")" + yield_page "$(pagename "$id")" "newdate" <<-EOF + [form method=post + [input name=title value="$(DBM "$file" get title |HTML)" placeholder="Title"] + [textarea name=description placeholder="Description" . $(DBM "$file" get description |HTML)] + [submit "month" "$prev" Previous Month] + $(w_month multiple date "$month" $days) + [submit "month" "$next" Next Month] + $(printf '[hidden "date" "%s"]' $additional) + [submit "cancel" "cancel" Cancel] + [submit "post" "post" Post Event] + ] + EOF + ;; + /*/newoptions);; + *);; + /) yield_page <<-EOF + $(w_month none date 2019-12 24 25 26) + $(w_month select date 2020-01) + $(w_month multiple date 2020-02) EOF return 0 ;; diff --git a/webpoll.css b/webpoll.css new file mode 100644 index 0000000..4c5ee08 --- /dev/null +++ b/webpoll.css @@ -0,0 +1,41 @@ +body.newdate form { + text-align: center; + margin: auto; + max-width: 24em; +} + +body.newdate form input[name=title], +body.newdate form textarea[name=description] { + display: block; + width: 100%; + margin-bottom: .75em; +} +body.newdate form textarea[name=description] { + height: 8em; +} + +body.newdate form button[name=month] { + display: inline-block; + width: calc(50% - 9em); + vertical-align: middle; + color: transparent; + overflow: hidden; + height: 4em; + border: none; +} +body.newdate form textarea + button[name=month]:before, +body.newdate form table + button[name=month]:before { + display: block; + content: '<'; + font-size: 2em; + font-weight: bold; + margin-top: .375em; + color: #666; +} +body.newdate form table + button[name=month]:before { + content: '>'; +} + +body.newdate form table.calendar { + vertical-align: middle; +} -- 2.39.2