add fields or time selection

[webpoll] / index.cgi

diff --git a/index.cgi b/index.cgi
index d1469cdbfcbb446e1bdf0ed25539986afc99f399..37fb901dc293102c0b2e29828cf56dcf38507006 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -63,18 +63,35 @@ pagename() {
   /*/newdate)
     id="${PATH_INFO%/newdate}"; id="${id#/}"
     file="$_DATA/$id"
-    month="$(POST month |grep -m1 -xE '[0-9]{4}-(0[1-9]|1[012])')"
+    month="$(POST month |grep -m 1 -xE '[0-9]{4}-(0[1-9]|1[012])')"
+    todremove="$(POST todremove |grep -m 1 -xE '[0-9]+')"
     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
+      done \
+      | grep -xE '^[0-9]{4}-((01|03|05|07|08|10|12)-([012][0-9]|3[01])|(04|06|09|11)-([012][0-9]|30)|02-[012][0-9])$' \
+      | sort -u
+    )"
+    DBM "$file" set todall "$(
+      for todcount in $(seq 1 $(POST_COUNT todstart)); do
+        [ "$todremove" -eq "$todcount" ] 2>&- && continue;
+        todstart="$(POST todstart "$todcount")"
+        todend="$(POST todend "$todcount")"
+        [ "${todstart%:??}" -lt "${todend%:??}" -o "${todstart%:??}" -eq "${todend%:??}" -a "${todstart#*:}" -lt "${todend#*:}" ] \
+        2>&- \
+        && { printf '%02i:%02i-%02i:%02i\n' "${todstart%:??}" "${todstart#*:}" "${todend%:??}" "${todend#*:}"; }\
+        || { [ "${todstart%:??}" -ge 0 -a  "${todstart#*:}" -ge 0 ] 2>&- && printf '%02i:%02i-\n' "${todstart%:??}" "${todstart#*:}"; }
+      done |grep -xE '^([01][0-9]|2[0-3]):([0-5][0-9])-(([01][0-9]|2[0-3]):([0-5][0-9]))?$' |sort -u
     )"
     if [ "$(POST cancel)" = cancel ]; then
       rm -- "$file"
       REDIRECT "$_BASE/"
+    elif [ "$(POST addtime)" = global ]; then
+      DBM "$file" append todall "${BR}-"
+      REDIRECT "$_BASE$PATH_INFO${month:+?month=}${month}"
     elif [ "$month" ]; then
       REDIRECT "$_BASE$PATH_INFO?month=$month"
     else
@@ -95,7 +112,7 @@ case ${PATH_INFO} in
          $(if [ "$recent" ]; then
            printf '[h2 Recent Polls][ul .recent'
            for page in $recent; do
-             [ -f "$_DATA/$(printf %s "$page" |checkid)" ] \
+             [ -f "$_DATA/$(checkid "$page")" ] \
              && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"
            done
            printf ']'
@@ -113,14 +130,37 @@ case ${PATH_INFO} in
     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;")"
+    todall="$(DBM "$file" get todall)"
+
     yield_page "$(pagename "$id")" "newdate" <<-EOF
+       $(dlist_timeofday)
        [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)
+         [fieldset .date
+           $(printf '[hidden "date" "%s"]' $additional)
+           [submit "month" "$prev" Previous Month]
+           $(w_month multiple date "$month" $days)
+           [submit "month" "$next" Next Month]
+           [hidden "month" "$month"]
+         ]
+         [fieldset .timeofday
+           [label .todstart Start Time (optional):
+           ]
+           [label .todend   End Time (optional):
+           ]
+           $(c=0; for time in ${todall:--}; do
+             c=$((c + 1))
+             printf '
+               <input name="todstart" value="%s" placeholder="HH:MM" list="dlist_timeofday"
+                       pattern="^(0?\[0-9\]|1\[0-9\]|2\[0-3\]):(\[0-5\]\[0-9\])$"/>
+               <input name="todend"   value="%s" placeholder="HH:MM"   list="dlist_timeofday"
+                       pattern="^(0?\[0-9\]|1\[0-9\]|2\[0-3\]):(\[0-5\]\[0-9\])$"/>
+               [submit "todremove" "%i" -]
+             ' "${time%-*}" "${time#*-}" "${c}"
+           done)
+           [submit "addtime" "global" + Add time option]
+         ]
          [submit "cancel" "cancel" Cancel]
          [submit "post" "post" Post Event]
        ]
@@ -128,12 +168,5 @@ case ${PATH_INFO} in
     ;;
   /*/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