#!/bin/sh
-_EXEC="${_EXEC:-${0%/*}/}"
-_DATA="${_DATA:-.}"
-_BASE="${_BASE%/}"
-
-. "$_EXEC"/cgilite/cgilite.sh
+. "${_EXEC:-${0%/*}}"/cgilite/cgilite.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}}")"
+# PATH_INFO="$(PATH "/${PATH_INFO#${_BASE}}")"
-#git init "$_DATA" >/dev/null &
+# bookmarks_cookie="$(COOKIE bookmarks |grep -xE '[0-9a-zA-Z:=]{16}(/[0-9a-zA-Z:=]{16})?( [0-9a-zA-Z:=]{16}(/[0-9a-zA-Z:=]{16})?)*')"
+bookmarks=''
+for bm in $(COOKIE bookmarks); do
+ [ -f "${_DATA}/$(checkid "${bm%/*}")" ] && bookmarks="${bookmarks}${bookmarks:+ }${bm}"
+done
+if [ "$bookmarks" ]; then
+ SET_COOKIE +$((182 * 86400)) bookmarks="${bm}" Path="${_BASE}/"
+fi
yield_page(){
title="${1:-Webpoll}" page="$2"
[link rel="stylesheet" type="text/css" href="%s/webpoll.css"]
[title %s]
] [body class="%s"
- ' "$_BASE" "$_BASE" "$_BASE" "$title" "$page"
+ ' "$_BASE" "$_BASE" "$_BASE" "$(HTML "$title")" "$page"
cat
printf '] ]'
} |"$_EXEC/cgilite/html-sh.sed" -u
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
-
+ page_home() { . "$_EXEC"/home.sh; }
+page_newdate() { . "$_EXEC"/newdate.sh; }
+ page_poll() { . "$_EXEC"/poll.sh; }
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
- ;;
+ /) page_home;;
+ /[0-9a-zA-Z:=]???????????????/[0-9a-zA-Z:=]???????????????) page_newdate;;
/*/newoptions);;
- *);;
+ /[0-9a-zA-Z:=]???????????????) page_poll;;
+ /*) page_home;;
esac
+exit 0