bugfix: avoid octal interpretation of leading zeros

[webpoll] / index.cgi

diff --git a/index.cgi b/index.cgi
index 1bfc2b7e3231b27c2af4cbeb1653daa5322aba6d..a7481d70383280808ba70ded82b9bd6d288f968a 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -13,8 +13,14 @@ _BASE="${_BASE%/}"
 
 PATH_INFO="$(PATH "/${PATH_INFO#${_BASE}}")"
 
-#git init "$_DATA" >/dev/null &
-bookmarks="$(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_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"
@@ -57,6 +63,7 @@ case ${PATH_INFO} in
   /[0-9a-zA-Z:=]???????????????/[0-9a-zA-Z:=]???????????????) page_newdate;;
   /*/newoptions);;
   /[0-9a-zA-Z:=]???????????????) page_poll;;
+  /*) page_home;;
 esac
 
 exit 0