#!/bin/sh

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

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

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

checked(){
  if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
    printf 'checked="checked"'
  fi 2>/dev/null
}
selected(){
  if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
    printf 'selected="selected"'
  fi 2>/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="common.css"]
      [title %s]
    ] [body class="%s"
  ' "$title" "$page"
  cat
  printf '] ]'
  } |"$_EXEC/cgilite/html-sh.sed" -u
}

w_month() {
  local month="$1" selected="$2"
  local dow dom days n=1 Y m d V w B
  if [ $month ]; then
    read Y m d V w B<<-EOF
	$(date -d "${month}-01" +"%Y %m %d %V %w %B")
	EOF
  else
    read Y m d V w <<-EOF
	$(date +"%Y %m %d %V %w")
	EOF
    month="$Y-$m"
    V="$((V - d / 7))"
    [ $V -lt 1 ] && V=$((V + 53))
  fi

  case $m in
    0[13578]|10|12)
      days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31";;
    0[469]|11)
      days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30";;
    02) if [ $(( Y / 400 )) = 0 ]; then
        days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29";
      elif [ $(( Y / 100 )) = 0 ]; then
        days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28";
      elif [ $(( Y /   4 )) = 0 ]; then
        days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29";
      else
        days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28";
      fi;;
  esac

  printf '[table .calendar month=%s [thead
            [tr .monthname [th colspan=8 . %s]]
            [tr   .weekday [th][th . %s][th . %s][th . %s][th . %s][th . %s][th . %s][th . %s]]
          ][tbody
         ' "$month" "$B $Y" Mo Di Mi Do Fr Sa So
  for dom in $days; do
    dow=$(( (w - d + 35 + dom ) % 7))
    [ $dow = 1 -o $dom = 1 ] && printf '[tr [th .weekno . %i]' $V
    [ $dom = 1 ] && while [ $n -lt $(( ($dow + 6) % 7 + 1)) ]; do printf '[td ]'; n=$((n + 1)); done
    printf '[td [label [input type=radio name=date value="%04i-%02i-%02i" %s] %i]]' $Y $m $dom "$(checked $dom $selected)" $dom
    [ $dow = 0 ] && printf ']\n'
    [ $dow = 0 ] && V=$(( V % 53 + 1))
  done
  printf ']]'
}

case ${PATH_INFO##*/} in
  favicon.ico) printf '%s\r\n' 'Content-Length: 0' '';;
  common.css) FILE "$_EXEC/cgilite/common.css";;
  '') yield_page <<-EOF
	$(w_month 2019-12 24)
	$(w_month 2020-01)
	$(w_month 2020-02)
	EOF
    return 0
    ;;
esac