theme_head(){
local IFS="$BR"
printf '
- <meta name="viewport" content="width=device-width"/>
+ <meta name="viewport" content="width=device-width">
'
- for css in "$_BASE/[.]/cgilite/common.css" "$_BASE/[.]/themes/default.css" $PAGE_CSS; do
+ for css in "$_BASE/%5B.%5D/cgilite/common.css" "$_BASE/%5B.%5D/themes/default.css" $PAGE_CSS; do
printf '<link rel="stylesheet" type="text/css" href="%s">' \
"$(HTML "${css##*//}")"
done
if acl_write "$page"; then
printf '
<ul class="pagemenu">
- <li><a href="./[view]">View</a></li>
- <li><a href="./[edit]">Edit</a></li>
- <li><a href="./[attachment]">Attachments</a></li>
- <li><a href="./[revision]">Revisions</a></li>
- <li><a href="./[rename]">Rename</a></li>
- <li><a href="./[move]">Move</a></li>
- <li><a href="./[delete]">Delete</a></li>
+ <li><a href="./%%5Bview%%5D">View</a></li>
+ <li><a href="./%%5Bedit%%5D">Edit</a></li>
+ <li><a href="./%%5Battachment%%5D">Attachments</a></li>
+ <li><a href="./%%5Brevision%%5D">Revisions</a></li>
+ <li><a href="./%%5Brename%%5D">Rename</a></li>
+ <li><a href="./%%5Bmove%%5D">Move</a></li>
+ <li><a href="./%%5Bdelete%%5D">Delete</a></li>
</ul>'
fi
}
theme_page(){
local page="$1" title="$2"
- title="$(HTML "${title:-"${page}"}")"
+ title="$(HTML "${title:-"${PAGE_TITLE:-"${page}"}"}")"
# Important! Web Server response including newline
printf "%s\r\n" "Content-Type: text/html; charset=utf-8" ""
cat <<-EOF
<!DOCTYPE HTML>
- <html><head>
+ <html${LANGUAGE:+ lang=\"${LANGUAGE}\"}><head>
$(theme_head)
<title>${title}</title>
</head><body id="$(HTML "${PATH_INFO}")">
}
theme_editor(){
- local page="$1" template="$2" title
- title="${page%/}"; title="${title##*/}"
+ local page="$1" template="$2" title file att
+ title="$(HTML "${PAGE_TITLE:-"${page}"}")"
[ "$template" ] && acl_read "$template" || template="$page"
theme_page - "Editor: $title" <<-EOF
- <form method=POST action="$(HTML "${_BASE}${page%/}/[edit]")">
+ <input checked type=radio class=tab name=edithelp value=edtr id=edtr><label for=edtr>Editor</label>
+ <input type=radio class=tab name=edithelp value=help id=help><label for=help>Syntax</label>
+ <input type=radio class=tab name=edithelp value=himg id=himg><label for=himg>Images</label>
+ <input type=radio class=tab name=edithelp value=hdoc id=hdoc><label for=hdoc>Documents</label>
+ <form class="tab editor" method=POST action="$(HTML "${_BASE}${page%/}/[edit]")">
<input type=hidden name=session_key value="${SESSION_KEY}"/>
<textarea name=pagetext>$({ wiki_text "$page" \
|| wiki_text "$template"; } |HTML)</textarea>
<button type=submit name=action value=update>Update</button>
<button type=submit name=action value=cancel>Cancel</button>
</form>
+ <div class="tab syntax">$(wiki "/[wiki]/editorhelp/")</div>
+ <div class="tab help">
+ $(for file in "$_EXEC/pages/${page%/:$LANGUAGE/}/#attachments"/* "$_DATA/pages/${page%/:$LANGUAGE/}/#attachments"/*; do
+ [ "$file" = "$_EXEC/pages/${page%/:$LANGUAGE/}/#attachments/${file##*/}" \
+ -a -f "$_DATA/pages/${page%/:$LANGUAGE/}/#attachments/${file##*/}" ] && continue
+ case ${file##*/} in
+ \*) continue;;
+ *.[pP][nN][gG]|*.[jJ][pP][gG]|*.[jJ][pP][eE][gG]|*.[gG][iI][fF])
+ [ "$page" != "${page%/:$LANGUAGE/}" ] && p=../ || p=''
+ att="$(HTML "${file##*/}")"
+ printf '<p class=himg><img src="%s%s">![](%s)</p><ul class=himg><li>[%s]([attachment]/%s)</li><li>[![%s](%s)]([attachment]/%s)</li></ul>' \
+ "$p" "$att" "$att" "$att" "$att" "$att" "$att" "$att"
+ ;;
+ *)
+ att="$(HTML "${file##*/}")"
+ printf '<p class="hdoc">[%s](%s)</p>' "$att" "$att"
+ ;;
+ esac
+ done)
+ </div>
EOF
}
500) printf "%s\r\n" "Status: 500 Internal Server Error";;
esac
- if [ "$(mdfile "/[wiki]/$errno/")" ]; then
+ if mdfile "/[wiki]/$errno/" >&-; then
theme_page "/[wiki]/$errno/"
else
printf "Content-Length: 0\r\n\r\n"