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 yield_page "Start a Poll" "home" <<-EOF
23 [submit "start" "date" Start a new poll]
24 $(if [ "$bookmarks" ]; then
25 printf '[h2 Recent Polls][ul .recent'
26 for page in $bookmarks; do
28 [ -f "$_DATA/$(checkid "$page")" ] \
29 && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"