-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
+}
+
+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)
+ ]