#. "$_EXEC"/session_lock.sh
. "$_EXEC"/widgets.sh
+export MD_HTML="false"
+if [ "$(which awk)" ]; then
+ markdown() { awk -f "$_EXEC/cgilite/markdown.awk"; }
+else
+ markdown() { busybox awk -f "$_EXEC/cgilite/markdown.awk"; }
+fi
+
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})?)*')"
yield_page(){
title="${1:-Webpoll}" page="$2"
[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
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_newdate() { . $_EXEC/newdate.sh; }
+ 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;;
esac
+exit 0