3 if [ "$REQUEST_METHOD" = POST ]; then
10 DBM "$file" add adminkey "$admin"
11 REDIRECT "$_BASE/$id/$admin"
16 REDIRECT "$_BASE/$id/newoptions"
18 *) REDIRECT "$_BASE/";;
21 [ "$PATH_INFO" != / ] && printf 'Status: 404 Not Found\r\n'
22 yield_page "Start a Poll" "home" <<-EOF
23 [main [form method=post
24 [submit "start" "date" Start a new poll]
25 $(if [ "$bookmarks" ]; then
26 printf '[h2 Recent Polls][ul .recent'
27 for page in $bookmarks; do
29 [ -f "$_DATA/$(checkid "$page")" ] \
30 && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"