git.plutz.net Git - webpoll/blob - index.cgi

   1 #!/bin/sh
   2
   3 _EXEC="${_EXEC:-${0%/*}/}"
   4 _DATA="${_DATA:-.}"
   5
   6 . "$_EXEC"/cgilite/cgilite.sh
   7 #. "$_EXEC"/cgilite/session.sh
   8 . "$_EXEC"/cgilite/file.sh
   9 #. "$_EXEC"/session_lock.sh
  10
  11 #git init "$_DATA" >/dev/null &
  12
  13 checked(){
  14   if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
  15     printf 'checked="checked"'
  16   fi 2>/dev/null
  17 }
  18 selected(){
  19   if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
  20     printf 'selected="selected"'
  21   fi 2>/dev/null
  22 }
  23
  24 yield_page(){
  25   title="${1:-Webpoll}" page="$2"
  26   printf '%s\r\n' 'Content-Type: text/html; charset=utf-8' \
  27                   "Content-Security-Policy: script-src 'none'" \
  28                   ''
  29   { printf '[html
  30     [head
  31       [meta name="viewport" content="width=device-width"]
  32       [link rel="stylesheet" type="text/css" href="common.css"]
  33       [title %s]
  34     ] [body class="%s"
  35   ' "$title" "$page"
  36   cat
  37   printf '] ]'
  38   } |"$_EXEC/cgilite/html-sh.sed" -u
  39 }
  40
  41 w_month() {
  42   local month="$1" selected="$2"
  43   local dow dom days n=1 Y m d V w B
  44   if [ $month ]; then
  45     read Y m d V w B<<-EOF
  46         $(date -d "${month}-01" +"%Y %m %d %V %w %B")
  47         EOF
  48   else
  49     read Y m d V w <<-EOF
  50         $(date +"%Y %m %d %V %w")
  51         EOF
  52     month="$Y-$m"
  53     V="$((V - d / 7))"
  54     [ $V -lt 1 ] && V=$((V + 53))
  55   fi
  56
  57   case $m in
  58     0[13578]|10|12)
  59       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";;
  60     0[469]|11)
  61       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";;
  62     02) if [ $(( Y / 400 )) = 0 ]; then
  63         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";
  64       elif [ $(( Y / 100 )) = 0 ]; then
  65         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";
  66       elif [ $(( Y /   4 )) = 0 ]; then
  67         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";
  68       else
  69         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";
  70       fi;;
  71   esac
  72
  73   printf '[table .calendar month=%s [thead
  74             [tr .monthname [th colspan=8 . %s]]
  75             [tr   .weekday [th][th . %s][th . %s][th . %s][th . %s][th . %s][th . %s][th . %s]]
  76           ][tbody
  77          ' "$month" "$B $Y" Mo Di Mi Do Fr Sa So
  78   for dom in $days; do
  79     dow=$(( (w - d + 35 + dom ) % 7))
  80     [ $dow = 1 -o $dom = 1 ] && printf '[tr [th .weekno . %i]' $V
  81     [ $dom = 1 ] && while [ $n -lt $(( ($dow + 6) % 7 + 1)) ]; do printf '[td ]'; n=$((n + 1)); done
  82     printf '[td [label [input type=radio name=date value="%04i-%02i-%02i" %s] %i]]' $Y $m $dom "$(checked $dom $selected)" $dom
  83     [ $dow = 0 ] && printf ']\n'
  84     [ $dow = 0 ] && V=$(( V % 53 + 1))
  85   done
  86   printf ']]'
  87 }
  88
  89 case ${PATH_INFO##*/} in
  90   favicon.ico) printf '%s\r\n' 'Content-Length: 0' '';;
  91   common.css) FILE "$_EXEC/cgilite/common.css";;
  92   '') yield_page <<-EOF
  93         $(w_month 2019-12 24)
  94         $(w_month 2020-01)
  95         $(w_month 2020-02)
  96         EOF
  97     return 0
  98     ;;
  99 esac
 100