fi
}
-[ "$REQUEST_METHOD" = POST ] && case ${PATH_INFO} in
- /)
+page_home() {
+ if [ "$REQUEST_METHOD" = POST ]; then
case $(POST start) in
date)
id="$(randomid)"
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
+ esac
+ else
+ 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)" ] \
+ [ -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;")"
- 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
- ;;
+ fi
+}
+page_newdate() { . $_EXEC/newdate.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}";;
+ /) page_home;;
+ /*/newdate) page_newdate;;
/*/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
- ;;
esac