#!/bin/sh

_EXEC="${_EXEC:-${0%/*}/}"
_DATA="${_DATA:-.}"
_BASE="${_BASE%/}"

. "$_EXEC"/cgilite/cgilite.sh
. "$_EXEC"/cgilite/session.sh
. "$_EXEC"/cgilite/file.sh
. "$_EXEC"/cgilite/storage.sh
#. "$_EXEC"/session_lock.sh
. "$_EXEC"/widgets.sh

export MD_HTML="false"
if [ "$(which awk)" ]; then
  markdown() { awk -f "$_EXEC/cgilite/markdown.awk"; }
else
  markdown() { busybox awk -f "$_EXEC/cgilite/markdown.awk"; }
fi

PATH_INFO="$(PATH "/${PATH_INFO#${_BASE}}")"

#git init "$_DATA" >/dev/null &

yield_page(){
  title="${1:-Webpoll}" page="$2"
  printf '%s\r\n' 'Content-Type: text/html; charset=utf-8' \
                  "Content-Security-Policy: script-src 'none'" \
                  ''
  { printf '[html
    [head
      [meta name="viewport" content="width=device-width"]
      [link rel="stylesheet" type="text/css" href="%s/common.css"]
      [link rel="stylesheet" type="text/css" href="%s/widgets.css"]
      [link rel="stylesheet" type="text/css" href="%s/webpoll.css"]
      [title %s]
    ] [body class="%s"
  ' "$_BASE" "$_BASE" "$_BASE" "$(HTML "$title")" "$page"
  cat
  printf '] ]'
  } |"$_EXEC/cgilite/html-sh.sed" -u
}

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)
	]
	EOF
  fi
}
page_newdate() { . "$_EXEC"/newdate.sh; }
page_poll() { . "$_EXEC/poll.sh"; }

case ${PATH_INFO} in
  /favicon.ico) printf '%s\r\n' 'Content-Length: 0' '';;
  /common.css) FILE "$_EXEC/cgilite/common.css";;
  /widgets.css|/webpoll.css) FILE "${_EXEC}/${PATH_INFO}";;
  /) page_home;;
  /*/newdate) page_newdate;;
  /*/newoptions);;
  /[0-9a-zA-Z:=]???????????????) page_poll;;
esac

exit 0