3 _EXEC="${_EXEC:-${0%/*}/}"
7 . "$_EXEC"/cgilite/cgilite.sh
8 . "$_EXEC"/cgilite/session.sh
9 . "$_EXEC"/cgilite/file.sh
10 . "$_EXEC"/cgilite/storage.sh
11 #. "$_EXEC"/session_lock.sh
14 PATH_INFO="$(PATH "/${PATH_INFO#${_BASE}}")"
16 #git init "$_DATA" >/dev/null &
19 title="${1:-Webpoll}" page="$2"
20 printf '%s\r\n' 'Content-Type: text/html; charset=utf-8' \
21 "Content-Security-Policy: script-src 'none'" \
25 [meta name="viewport" content="width=device-width"]
26 [link rel="stylesheet" type="text/css" href="%s/common.css"]
27 [link rel="stylesheet" type="text/css" href="%s/widgets.css"]
28 [link rel="stylesheet" type="text/css" href="%s/webpoll.css"]
31 ' "$_BASE" "$_BASE" "$_BASE" "$title" "$page"
34 } |"$_EXEC/cgilite/html-sh.sed" -u
39 local file="$_DATA/$id"
40 if [ -f "$file" ]; then
41 DBM "$file" get title || printf 'Unnamed Page'
47 [ "$REQUEST_METHOD" = POST ] && case ${PATH_INFO} in
53 REDIRECT "$_BASE/$id/newdate"
58 REDIRECT "$_BASE/$id/newoptions"
60 *) REDIRECT "$_BASE/";;
64 id="${PATH_INFO%/newdate}"; id="${id#/}"
66 month="$(POST month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])')"
67 DBM "$file" set title "$(POST title)"
68 DBM "$file" set description "$(POST description)"
69 DBM "$file" set dates "$(
70 for date in $(seq 1 $(POST_COUNT date)); do
75 if [ "$(POST cancel)" = cancel ]; then
78 elif [ "$month" ]; then
79 REDIRECT "$_BASE$PATH_INFO?month=$month"
81 REDIRECT "$_BASE$PATH_INFO"
88 /favicon.ico) printf '%s\r\n' 'Content-Length: 0' '';;
89 /common.css) FILE "$_EXEC/cgilite/common.css";;
90 /widgets.css|/webpoll.css) FILE "${_EXEC}/${PATH_INFO}";;
91 /) recent="$(COOKIE pages)"
92 yield_page "Start a Poll" "home" <<-EOF
94 [submit "start" "date" Start a new poll]
95 $(if [ "$recent" ]; then
96 printf '[h2 Recent Polls][ul .recent'
97 for page in $recent; do
98 [ -f "$_DATA/$(printf %s "$page" |checkid)" ] \
99 && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"
107 id="${PATH_INFO%/newdate}"; id="${id#/}"
109 month="$(GET month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])' || date +%Y-%m)"
110 Y="${month%-*}"; m="${month#*-}"; Y=${Y#0}; m=${m#0};
111 [ "$m" = 1 ] && prev=$(printf '%04i-%02i' $((Y - 1)) 12) || prev=$(printf '%04i-%02i' $Y $((m - 1)))
112 [ "$m" = 12 ] && next=$(printf '%04i-%02i' $((Y + 1)) 01) || next=$(printf '%04i-%02i' $Y $((m + 1)))
113 dates="$(DBM "$file" get dates)"
114 days="$(printf %s "$dates" |sed -E "/^${month}-/!d; s;^.*-([0-9]{2})$;\1;g")"
115 additional="$(printf %s "$dates" |sed -E "/^${month}-/d;")"
116 yield_page "$(pagename "$id")" "newdate" <<-EOF
118 [input name=title value="$(DBM "$file" get title |HTML)" placeholder="Title"]
119 [textarea name=description placeholder="Description" . $(DBM "$file" get description |HTML)]
120 [submit "month" "$prev" Previous Month]
121 $(w_month multiple date "$month" $days)
122 [submit "month" "$next" Next Month]
123 $(printf '[hidden "date" "%s"]' $additional)
124 [submit "cancel" "cancel" Cancel]
125 [submit "post" "post" Post Event]
132 $(w_month none date 2019-12 24 25 26)
133 $(w_month select date 2020-01)
134 $(w_month multiple date 2020-02)