#!/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

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" "$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
}

[ "$REQUEST_METHOD" = POST ] && case ${PATH_INFO} in
  /)
    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
    ;;
  /*/newdate)
    id="${PATH_INFO%/newdate}"; id="${id#/}"
    file="$_DATA/$id"
    month="$(POST month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])')"
    DBM "$file" set title "$(POST title)"
    DBM "$file" set description "$(POST description)"
    DBM "$file" set dates "$(
      for date in $(seq 1 $(POST_COUNT date)); do
        POST date "$date"
        printf \\n
      done |sort
    )"
    if [ "$(POST cancel)" = cancel ]; then
      rm -- "$file"
      REDIRECT "$_BASE/"
    elif [ "$month" ]; then
      REDIRECT "$_BASE$PATH_INFO?month=$month"
    else
      REDIRECT "$_BASE$PATH_INFO"
    fi
    ;;
esac


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}";;
  /)  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/$(printf %s "$page" |checkid)" ] \
	      && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"
	    done
	    printf ']'
	  fi)
	]
	EOF
    ;;
  /*/newdate)
    id="${PATH_INFO%/newdate}"; id="${id#/}"
    file="$_DATA/$id"
    month="$(GET month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])' || date +%Y-%m)"
    Y="${month%-*}"; m="${month#*-}"; Y=${Y#0}; m=${m#0};
    [ "$m" = 1 ] && prev=$(printf '%04i-%02i' $((Y - 1)) 12) || prev=$(printf '%04i-%02i' $Y $((m - 1)))
    [ "$m" = 12 ] && next=$(printf '%04i-%02i' $((Y + 1)) 01) || next=$(printf '%04i-%02i' $Y $((m + 1)))
    dates="$(DBM "$file" get dates)"
    days="$(printf %s "$dates" |sed -E "/^${month}-/!d; s;^.*-([0-9]{2})$;\1;g")"
    additional="$(printf %s "$dates" |sed -E "/^${month}-/d;")"
    yield_page "$(pagename "$id")" "newdate" <<-EOF
	[form method=post
	  [input name=title value="$(DBM "$file" get title |HTML)" placeholder="Title"]
	  [textarea name=description placeholder="Description" . $(DBM "$file" get description |HTML)]
	  [submit "month" "$prev" Previous Month]
	  $(w_month multiple date "$month" $days)
	  [submit "month" "$next" Next Month]
	  $(printf '[hidden "date" "%s"]' $additional)
	  [submit "cancel" "cancel" Cancel]
	  [submit "post" "post" Post Event]
	]
	EOF
    ;;
  /*/newoptions);;
  *);;
  /) yield_page <<-EOF
	$(w_month none date 2019-12 24 25 26)
	$(w_month select date 2020-01)
	$(w_month multiple date 2020-02)
	EOF
    return 0
    ;;
esac