-page_home() {
- if [ "$REQUEST_METHOD" = POST ]; then
- 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
- 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/$(checkid "$page")" ] \
- && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"
- done
- printf ']'
- fi)
- ]
- EOF
- fi
-}