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

   1 #!/bin/sh
   2
   3 _EXEC="${_EXEC:-${0%/*}/}"
   4 _DATA="${_DATA:-.}"
   5 _BASE="${_BASE%/}"
   6
   7 . "$_EXEC"/cgilite/cgilite.sh
   8 . "$_EXEC"/cgilite/session.sh
   9 . "$_EXEC"/cgilite/file.sh
  10 . "$_EXEC"/cgilite/storage.sh
  11 #. "$_EXEC"/session_lock.sh
  12 . "$_EXEC"/widgets.sh
  13
  14 PATH_INFO="$(PATH "/${PATH_INFO#${_BASE}}")"
  15
  16 #git init "$_DATA" >/dev/null &
  17
  18 yield_page(){
  19   title="${1:-Webpoll}" page="$2"
  20   printf '%s\r\n' 'Content-Type: text/html; charset=utf-8' \
  21                   "Content-Security-Policy: script-src 'none'" \
  22                   ''
  23   { printf '[html
  24     [head
  25       [meta name="viewport" content="width=device-width"]
  26       [link rel="stylesheet" type="text/css" href="%s/common.css"]
  27       [link rel="stylesheet" type="text/css" href="%s/widgets.css"]
  28       [link rel="stylesheet" type="text/css" href="%s/webpoll.css"]
  29       [title %s]
  30     ] [body class="%s"
  31   ' "$_BASE" "$_BASE" "$_BASE" "$title" "$page"
  32   cat
  33   printf '] ]'
  34   } |"$_EXEC/cgilite/html-sh.sed" -u
  35 }
  36
  37 pagename() {
  38   local id="$1"
  39   local file="$_DATA/$id"
  40   if [ -f "$file" ]; then
  41     DBM "$file" get title || printf 'Unnamed Page'
  42   else
  43     return 1;
  44   fi
  45 }
  46
  47 [ "$REQUEST_METHOD" = POST ] && case ${PATH_INFO} in
  48   /)
  49     case $(POST start) in
  50       date)
  51         id="$(randomid)"
  52         touch "$_DATA/$id"
  53         REDIRECT "$_BASE/$id/newdate"
  54         ;;
  55       options)
  56         id="$(randomid)"
  57         touch "$_DATA/$id"
  58         REDIRECT "$_BASE/$id/newoptions"
  59         ;;
  60       *) REDIRECT "$_BASE/";;
  61       esac
  62     ;;
  63   /*/newdate)
  64     id="${PATH_INFO%/newdate}"; id="${id#/}"
  65     file="$_DATA/$id"
  66     month="$(POST month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])')"
  67     DBM "$file" set title "$(POST title)"
  68     DBM "$file" set description "$(POST description)"
  69     DBM "$file" set dates "$(
  70       for date in $(seq 1 $(POST_COUNT date)); do
  71         POST date "$date"
  72         printf \\n
  73       done |sort
  74     )"
  75     if [ "$(POST cancel)" = cancel ]; then
  76       rm -- "$file"
  77       REDIRECT "$_BASE/"
  78     elif [ "$month" ]; then
  79       REDIRECT "$_BASE$PATH_INFO?month=$month"
  80     else
  81       REDIRECT "$_BASE$PATH_INFO"
  82     fi
  83     ;;
  84 esac
  85
  86
  87 case ${PATH_INFO} in
  88   /favicon.ico) printf '%s\r\n' 'Content-Length: 0' '';;
  89   /common.css) FILE "$_EXEC/cgilite/common.css";;
  90   /widgets.css|/webpoll.css) FILE "${_EXEC}/${PATH_INFO}";;
  91   /)  recent="$(COOKIE pages)"
  92       yield_page "Start a Poll" "home" <<-EOF
  93         [form method=post
  94           [submit "start" "date" Start a new poll]
  95           $(if [ "$recent" ]; then
  96             printf '[h2 Recent Polls][ul .recent'
  97             for page in $recent; do
  98               [ -f "$_DATA/$(printf %s "$page" |checkid)" ] \
  99               && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"
 100             done
 101             printf ']'
 102           fi)
 103         ]
 104         EOF
 105     ;;
 106   /*/newdate)
 107     id="${PATH_INFO%/newdate}"; id="${id#/}"
 108     file="$_DATA/$id"
 109     month="$(GET month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])' || date +%Y-%m)"
 110     Y="${month%-*}"; m="${month#*-}"; Y=${Y#0}; m=${m#0};
 111     [ "$m" = 1 ] && prev=$(printf '%04i-%02i' $((Y - 1)) 12) || prev=$(printf '%04i-%02i' $Y $((m - 1)))
 112     [ "$m" = 12 ] && next=$(printf '%04i-%02i' $((Y + 1)) 01) || next=$(printf '%04i-%02i' $Y $((m + 1)))
 113     dates="$(DBM "$file" get dates)"
 114     days="$(printf %s "$dates" |sed -E "/^${month}-/!d; s;^.*-([0-9]{2})$;\1;g")"
 115     additional="$(printf %s "$dates" |sed -E "/^${month}-/d;")"
 116     yield_page "$(pagename "$id")" "newdate" <<-EOF
 117         [form method=post
 118           [input name=title value="$(DBM "$file" get title |HTML)" placeholder="Title"]
 119           [textarea name=description placeholder="Description" . $(DBM "$file" get description |HTML)]
 120           [submit "month" "$prev" Previous Month]
 121           $(w_month multiple date "$month" $days)
 122           [submit "month" "$next" Next Month]
 123           $(printf '[hidden "date" "%s"]' $additional)
 124           [submit "cancel" "cancel" Cancel]
 125           [submit "post" "post" Post Event]
 126         ]
 127         EOF
 128     ;;
 129   /*/newoptions);;
 130   *);;
 131   /) yield_page <<-EOF
 132         $(w_month none date 2019-12 24 25 26)
 133         $(w_month select date 2020-01)
 134         $(w_month multiple date 2020-02)
 135         EOF
 136     return 0
 137     ;;
 138 esac
 139