_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(){
{ 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="%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 2019-12 24)
- $(w_month 2020-01)
- $(w_month 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 -m 1 -xE '[0-9]{4}-(0[1-9]|1[012])')"
+ todremove="$(POST todremove |grep -m 1 -xE '[0-9]+')"
+ 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 \
+ | grep -xE '^[0-9]{4}-((01|03|05|07|08|10|12)-([012][0-9]|3[01])|(04|06|09|11)-([012][0-9]|30)|02-[012][0-9])$' \
+ | sort -u
+ )"
+ DBM "$file" set todall "$(
+ for todcount in $(seq 1 $(POST_COUNT todstart)); do
+ [ "$todremove" -eq "$todcount" ] 2>&- && continue;
+ todstart="$(POST todstart "$todcount")"
+ todend="$(POST todend "$todcount")"
+ [ "${todstart%:??}" -lt "${todend%:??}" -o "${todstart%:??}" -eq "${todend%:??}" -a "${todstart#*:}" -lt "${todend#*:}" ] \
+ 2>&- \
+ && { printf '%02i:%02i-%02i:%02i\n' "${todstart%:??}" "${todstart#*:}" "${todend%:??}" "${todend#*:}"; }\
+ || { [ "${todstart%:??}" -ge 0 -a "${todstart#*:}" -ge 0 ] 2>&- && printf '%02i:%02i-\n' "${todstart%:??}" "${todstart#*:}"; }
+ done |grep -xE '^([01][0-9]|2[0-3]):([0-5][0-9])-(([01][0-9]|2[0-3]):([0-5][0-9]))?$' |sort -u
+ )"
+ if [ "$(POST cancel)" = cancel ]; then
+ rm -- "$file"
+ REDIRECT "$_BASE/"
+ elif [ "$(POST addtime)" = global ]; then
+ DBM "$file" append todall "${BR}-"
+ REDIRECT "$_BASE$PATH_INFO${month:+?month=}${month}"
+ 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/$(checkid "$page")" ] \
+ && 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;")"
+ todall="$(DBM "$file" get todall)"
+
+ yield_page "$(pagename "$id")" "newdate" <<-EOF
+ $(dlist_timeofday)
+ [form method=post
+ [input name=title value="$(DBM "$file" get title |HTML)" placeholder="Title"]
+ [textarea name=description placeholder="Description" . $(DBM "$file" get description |HTML)]
+ [fieldset .date
+ $(printf '[hidden "date" "%s"]' $additional)
+ [submit "month" "$prev" Previous Month]
+ $(w_month multiple date "$month" $days)
+ [submit "month" "$next" Next Month]
+ [hidden "month" "$month"]
+ ]
+ [fieldset .timeofday
+ [label .todstart Start Time (optional):
+ ]
+ [label .todend End Time (optional):
+ ]
+ $(c=0; for time in ${todall:--}; do
+ c=$((c + 1))
+ printf '
+ <input name="todstart" value="%s" placeholder="HH:MM" list="dlist_timeofday"
+ pattern="^(0?\[0-9\]|1\[0-9\]|2\[0-3\]):(\[0-5\]\[0-9\])$"/>
+ <input name="todend" value="%s" placeholder="HH:MM" list="dlist_timeofday"
+ pattern="^(0?\[0-9\]|1\[0-9\]|2\[0-3\]):(\[0-5\]\[0-9\])$"/>
+ [submit "todremove" "%i" -]
+ ' "${time%-*}" "${time#*-}" "${c}"
+ done)
+ [submit "addtime" "global" + Add time option]
+ ]
+ [submit "cancel" "cancel" Cancel]
+ [submit "post" "post" Post Event]
+ ]
EOF
- return 0
;;
+ /*/newoptions);;
+ *);;
esac
projects / webpoll / blobdiff