git.plutz.net Git - webpoll/blob - home.sh

   1 #!/bin/sh
   2
   3 if [ "$REQUEST_METHOD" = POST ]; then
   4   case $(POST start) in
   5     date)
   6       id="$(randomid)"
   7       admin="$(randomid)"
   8       file="$_DATA/$id"
   9       # touch "$file"
  10       DBM "$file" add adminkey "$admin"
  11       REDIRECT "$_BASE/$id/$admin"
  12       ;;
  13     options)
  14       id="$(randomid)"
  15       touch "$_DATA/$id"
  16       REDIRECT "$_BASE/$id/newoptions"
  17       ;;
  18     *) REDIRECT "$_BASE/";;
  19   esac
  20 else
  21   yield_page "Start a Poll" "home" <<-EOF
  22         [form method=post
  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
  27               page="${page%/*}"
  28               [ -f "$_DATA/$(checkid "$page")" ] \
  29               && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"
  30             done
  31             printf ']'
  32           fi)
  33         ]
  34         EOF
  35 fi