- 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