X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=index.cgi;h=a7481d70383280808ba70ded82b9bd6d288f968a;hb=e59a6e2a6ebf4dbdd12d03cbd2ef91fd0acaad6d;hp=9037c330099f6bc876743d39888543912bf3058c;hpb=ec2f9c506f3cccd2f8c2ac9343979ac37541bc75;p=webpoll

diff --git a/index.cgi b/index.cgi
index 9037c33..a7481d7 100755
--- a/index.cgi
+++ b/index.cgi
@@ -13,7 +13,14 @@ _BASE="${_BASE%/}"
 
 PATH_INFO="$(PATH "/${PATH_INFO#${_BASE}}")"
 
-#git init "$_DATA" >/dev/null &
+# bookmarks_cookie="$(COOKIE bookmarks |grep -xE '[0-9a-zA-Z:=]{16}(/[0-9a-zA-Z:=]{16})?( [0-9a-zA-Z:=]{16}(/[0-9a-zA-Z:=]{16})?)*')"
+bookmarks=''
+for bm in $(COOKIE bookmarks); do
+  [ -f "${_DATA}/$(checkid "${bm%/*}")" ] && bookmarks="${bookmarks}${bookmarks:+ }${bm}"
+done
+if [ "$bookmarks" ]; then
+  SET_COOKIE +$((182 * 86400)) bookmarks="${bm}" Path="${_BASE}/"
+fi
 
 yield_page(){
   title="${1:-Webpoll}" page="$2"
@@ -28,7 +35,7 @@ yield_page(){
       [link rel="stylesheet" type="text/css" href="%s/webpoll.css"]
       [title %s]
     ] [body class="%s"
-  ' "$_BASE" "$_BASE" "$_BASE" "$title" "$page"
+  ' "$_BASE" "$_BASE" "$_BASE" "$(HTML "$title")" "$page"
   cat
   printf '] ]'
   } |"$_EXEC/cgilite/html-sh.sed" -u
@@ -44,48 +51,19 @@ pagename() {
   fi
 }
 
-page_home() {
-  if [ "$REQUEST_METHOD" = POST ]; then
-    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
-  else
-    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/$(checkid "$page")" ] \
-	      && printf '[li [a href="./%s" . %s]]' "$page" "$(pagename "$page" |HTML)"
-	    done
-	    printf ']'
-	  fi)
-	]
-	EOF
-  fi
-}
+   page_home() { . "$_EXEC"/home.sh; }
 page_newdate() { . "$_EXEC"/newdate.sh; }
+   page_poll() { . "$_EXEC"/poll.sh; }
 
 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}";;
   /) page_home;;
-  /*/newdate) page_newdate;;
+  /[0-9a-zA-Z:=]???????????????/[0-9a-zA-Z:=]???????????????) page_newdate;;
   /*/newoptions);;
-  *);;
+  /[0-9a-zA-Z:=]???????????????) page_poll;;
+  /*) page_home;;
 esac
 
 exit 0