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}")">
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"