stubs for poll creation dialog

diff --git a/index.cgi b/index.cgi
index 51a7c0f312995245e071a5b7e97ea535b73d82e0..d1469cdbfcbb446e1bdf0ed25539986afc99f399 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -2,13 +2,17 @@
 
 _EXEC="${_EXEC:-${0%/*}/}"
 _DATA="${_DATA:-.}"
+_BASE="${_BASE%/}"
 
 . "$_EXEC"/cgilite/cgilite.sh
-#. "$_EXEC"/cgilite/session.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(){
@@ -19,24 +23,115 @@ yield_page(){
   { printf '[html
     [head
       [meta name="viewport" content="width=device-width"]
-      [link rel="stylesheet" type="text/css" href="common.css"]
-      [link rel="stylesheet" type="text/css" href="widgets.css"]
+      [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"
-  ' "$title" "$page"
+  ' "$_BASE" "$_BASE" "$_BASE" "$title" "$page"
   cat
   printf '] ]'
   } |"$_EXEC/cgilite/html-sh.sed" -u
 }
 
-case ${PATH_INFO##*/} in
-  favicon.ico) printf '%s\r\n' 'Content-Length: 0' '';;
-  common.css) FILE "$_EXEC/cgilite/common.css";;
-  widgets.css) FILE "$_EXEC/widgets.css";;
-  '') yield_page <<-EOF
-       $(w_month date1 2019-12 24)
-       $(w_month date2 2020-01)
-       $(w_month date3 2020-02)
+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
     ;;

diff --git a/webpoll.css b/webpoll.css
new file mode 100644 (file)
index 0000000..4c5ee08
--- /dev/null
+++ b/webpoll.css
@@ -0,0 +1,41 @@
+body.newdate form {
+  text-align: center;
+  margin: auto;
+  max-width: 24em;
+}
+
+body.newdate form input[name=title],
+body.newdate form textarea[name=description] {
+  display: block;
+  width: 100%;
+  margin-bottom: .75em;
+}
+body.newdate form textarea[name=description] {
+  height: 8em;
+}
+
+body.newdate form button[name=month] {
+  display: inline-block;
+  width: calc(50% - 9em);
+  vertical-align: middle;
+  color: transparent;
+  overflow: hidden;
+  height: 4em;
+  border: none;
+}
+body.newdate form textarea + button[name=month]:before,
+body.newdate form table + button[name=month]:before {
+  display: block;
+  content: '<';
+  font-size: 2em;
+  font-weight: bold;
+  margin-top: .375em;
+  color: #666;
+}
+body.newdate form table + button[name=month]:before {
+  content: '>';
+}
+
+body.newdate form table.calendar {
+  vertical-align: middle;
+}