+
+theme_editor(){
+ local page="$1" template="$2" title file att
+ title="$(HTML "${PAGE_TITLE:-"${page}"}")"
+
+ [ "$template" ] && acl_read "$template" || template="$page"
+
+ theme_page - "Editor: $title" <<-EOF
+ <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
+}
+
+theme_revisions(){
+ local page="$1" title
+ title="${page%/}"; title="${title##*/}"
+
+ "$_EXEC/macros/revisions" "$page" \
+ | theme_page - "Revisions: $title"
+}
+
+theme_attachments(){
+ local page="$1" title
+ title="${page%/}"; title="${title##*/}"
+
+ if acl_write "$page"; then
+ theme_page - "Attachments: $title" <<-EOF
+ <form class=upload method=POST enctype="multipart/form-data">
+ <h2>Upload</h2>
+ <input type=hidden name=session_id value="$SESSION_ID">
+ <input type=file name=file multiple>
+ <button type=submit name=action value=upload>Upload</button>
+ </form>
+
+ <form method=POST>
+ <h2>Attachments</h2>
+ <input type=hidden name=session_key value="$SESSION_KEY">
+ <input checked type=radio class=tab name=attachaction value=view id=tview><label for=tview>View</label>
+ <input type=radio class=tab name=attachaction value=del id=tdel ><label for=tdel >Delete</label>
+ <input type=radio class=tab name=attachaction value=move id=tmove><label for=tmove>Move</label>
+ <input type=radio class=tab name=attachaction value=ren id=tren ><label for=tren >Rename</label>
+ <div class="tab">
+ <ul class="attachment list">
+ $(for file in "$_EXEC/pages/$page/#attachments"/* "$_DATA/pages/$page/#attachments"/*; do
+ [ "$file" = "$_EXEC/pages/$page/#attachments/${file##*/}" \
+ -a -f "$_DATA/pages/$page/#attachments/${file##*/}" ] && continue
+ stat="$(stat -c '%s %Y' -- "$file" 2>&-)" || continue
+ size="${stat% *}" date="${stat#* }"
+ hfile="$(HTML "${file##*/}")"
+
+ printf '<li><input id="select_%s" type=checkbox name=select value="%s">
+ <label class=name for="select_%s">%s</label>
+ <input class=name name="rename_%s" value="" placeholder="%s" />
+ <a class=name href="[attachment]/%s">%s</a>
+ <span class=size>%s</span>
+ <span class=date>%s</span>
+ </li>' \
+ "$hfile" "$hfile" "$hfile" "$hfile" \
+ "$(slopecode "${file##*/}")" "$hfile" "$hfile" "$hfile" \
+ "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
+ done)
+ </ul>
+ <button type=submit name=action value=delete>Delete</button>
+ <label for=moveto>Move To:</label>
+ <input id="moveto" name="moveto" value="$(HTML "$page")" placeholder="page name">
+ <button type=submit name=action value=move >Move</button>
+ <button type=submit name=action value=rename>Rename</button>
+ </div>
+ </form>
+ EOF
+ else
+ theme_page - "Attachments: $title" <<-EOF
+ <ul class="attachment list">
+ $(for file in "$_EXEC/pages/$page/#attachments"/* "$_DATA/pages/$page/#attachments"/*; do
+ [ "$file" = "$_EXEC/pages/$page/#attachments/${file##*/}" \
+ -a -f "$_DATA/pages/$page/#attachments/${file##*/}" ] && continue
+ stat="$(stat -c '%s %Y' -- "$file" 2>&-)" || continue
+ size="${stat% *}" date="${stat#* }"
+ hfile="$(HTML "${file##*/}")"
+
+ printf '<li><a class=name href="%s">%s</a>
+ <span class=size>%s</span><span class=date>%s</span></li>' \
+ "$hfile" "$hfile" "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
+ done)
+ </ul>
+ EOF
+ fi
+}
+
+theme_error(){
+ local errno="$1"
+
+ case $errno in
+ 400) printf "%s\r\n" "Status: 400 Bad Request";;
+ 403) printf "%s\r\n" "Status: 403 Forbidden";;
+ 404) printf "%s\r\n" "Status: 404 Not Found";;
+ 409) printf "%s\r\n" "Status: 409 Conflict";;
+ 500) printf "%s\r\n" "Status: 500 Internal Server Error";;
+ esac
+
+ if mdfile "/[wiki]/$errno/" >&-; then
+ theme_page "/[wiki]/$errno/"
+ else
+ printf "Content-Length: 0\r\n\r\n"
+ fi
+}