X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;ds=inline;f=themes%2Fdefault.sh;h=5b2f1edd55a261ec566e37820c122af0d8a08313;hb=2506cfcd83b7247d669818e3cdf8d34b0b04404a;hp=7edd4b9986c60ad8e989f07a2740c7dc327d7c48;hpb=7b1d88cf33d962e2ac98e03d0fd21327aee583a6;p=shellwiki
diff --git a/themes/default.sh b/themes/default.sh
index 7edd4b9..5b2f1ed 100755
--- a/themes/default.sh
+++ b/themes/default.sh
@@ -1,13 +1,30 @@
#!/bin/sh
+# Copyright 2022 - 2023 Paul Hänsch
+#
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+#
+# THE SOFTWARE IS PROVIDED âAS ISâ AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
. "$_EXEC/tools.sh"
theme_head(){
+ local IFS="$BR"
printf '
-
-
-
- ' "$_BASE"
+
+ '
+ for css in "$_BASE/%5B.%5D/cgilite/common.css" "$_BASE/%5B.%5D/themes/default.css" $PAGE_CSS; do
+ printf ' ' \
+ "$(HTML "${css##*//}")"
+ done
}
theme_header(){
@@ -15,41 +32,50 @@ theme_header(){
}
theme_footer(){
- printf '' "$(wiki '[wiki]/footer/' ||echo No footer)"
+ printf '' "$(wiki '[wiki]/footer/')"
}
-theme_page(){
- local page="$1" title
- title="${page%/}"; title="${title##*/}"
-
- if [ ! "$(mdfile "$page")" ]; then
- theme_404
- return 0
- elif ! acl_read "$page"; then
- theme_403
- return 0
+theme_pagemenu(){
+ local page="$1"
+
+ if acl_write "$page"; then
+ cat <<-EOF
+
+ EOF
fi
+}
+
+theme_page(){
+ local page="$1" title="$2"
+ 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
-
+
$(theme_head)
- $(HTML "${title}")
-
+ ${title}
+
$(theme_header)
- $(acl_write "$page" && printf %s \
- ''
- )
-
- $(wiki "$page" || printf 'Error while loading page function "wiki" of index.sh returned with an error.')
-
+ $(theme_pagemenu)
+ $(if [ "$page" = '-' ]; then
+ cat
+ else
+ printf ''
+ wiki "$page"
+ printf ' '
+ fi)
$(theme_footer)
@@ -57,135 +83,156 @@ theme_page(){
}
theme_editor(){
- local page="$1" title
- title="${page%/}"; title="${title##*/}"
-
- if [ ! "$(mdfile "$page")" ]; then
- theme_404
- return 0
- elif ! acl_write "$page"; then
- theme_403
- return 0
- fi
-
- # Important! Web Server response including newline
- printf "%s\r\n" "Content-Type: text/html; charset=utf-8" ""
+ local page="$1" template="$2" file att
+
+ [ "$template" ] && acl_read "$template" || template="$page"
+
+ theme_page - "$(_ Editor): ${PAGE_TITLE:-"${page}"}" <<-EOF
+ $(_ Editor)
+ $(_ Syntax)
+ $(_ Attachments)
+ $([ "$LANGUAGE_DEFAULT" -a "$LANGUAGE_DEFAULT" != "$LANGUAGE" ] && printf '
+ %s
+ ' "$LANGUAGE_DEFAULT"
+ )
+
+ $(wiki "/[wiki]/editorhelp/")
+
+ $(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
+ att="$(HTML "${file##*/}")"
+ url="$(printf %s\\n "${file##*/}" |sed 's;[\\<>];\\&;g' |HTML)"
+ name="$(printf %s\\n "${file##*/}" |sed 's;[]\\[];\\&;g' |HTML)"
+ case ${file##*/} in
+ \*) continue;;
+ *.[pP][nN][gG]|*.[jJ][pP][gG]|*.[jJ][pP][eE][gG]|*.[gG][iI][fF])
+ [ "$page" != "${page%/:$LANGUAGE/}" ] && p=../ || p=''
+ printf '
![](<%s>)
+ [%s](<[attachment]/%s>)
+ [![%s](<%s>)](<[attachment]/%s>)
+ ' \
+ "$p" "$att" "$url" "$name" "$url" "$name" "$url" "$url"
+ ;;
+ *)
+ printf '
[%s](<%s>)
' "$name" "$url"
+ ;;
+ esac
+ done)
+
+ $(if [ "$LANGUAGE_DEFAULT" -a "$LANGUAGE_DEFAULT" != "$LANGUAGE" ]; then
+ printf '%s
' "$(LANGUAGE='' wiki_text "${page%/:$LANGUAGE/}" |HTML)"
+ fi)
+ EOF
+}
- cat <<-EOF
-
-
- $(theme_head)
- $(HTML "${title}")
-
- $(theme_header)
-
-
- $(wiki_text "$page" |HTML)
- Update
- Cancel
-
- $(theme_footer)
-
+theme_revisions(){ theme_page "$@"; }
+
+theme_search(){
+ local words="$*"
+ # STDIN: read result pages line by line
+
+ theme_page - "$(_ Search results): ${words}" <<-EOF
+
+ $([ "$words" ] && _ "Search results" || _ "Search" )
+
+ $(_ Search)
+
+
+ $( while read p; do
+ printf '%s ' "$(URL "$p")" "$(HTML "$p")"
+ done)
+
+
EOF
}
theme_attachments(){
- local page="$1" title
- title="${page%/}"; title="${title##*/}"
-
- if [ ! "$(mdfile "$page")" ]; then
- theme_404
- return 0
- elif ! acl_read "$page"; then
- theme_403
- return 0
- fi
-
- # Important! Web Server response including newline
- printf "%s\r\n" "Content-Type: text/html; charset=utf-8" ""
+ local page="$1"
if acl_write "$page"; then
- cat <<-EOF
-
-
- $(theme_head)
- Attachments $(HTML "${title}")
-
- $(theme_header)
-
-
-
- Upload
-
-
-
- $(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#* }"
-
- printf 'Delete %s
- %s %s ' \
- "$(HTML "${file##*/}")" "$(HTML "${file##*/}")" "$(HTML "${file##*/}")" \
- "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
- done)
-
-
- $(theme_footer)
-
+ theme_page - "$(_ Attachments): ${PAGE_TITLE:-"${page}"}" <<-EOF
+
+ $(_ Upload)
+
+
+ $(_ Upload)
+
+
+
+ $(_ Attachments)
+
+ $(_ View)
+ $(_ Delete)
+ $(_ Move)
+ $(_ Rename)
+
+
+
$(_ Delete)
+
$(_ Move To:)
+
+
$(_ Move)
+
$(_ Rename)
+
+
EOF
else
- cat <<-EOF
-
-
- $(theme_head)
- Attachments $(HTML "${title}")
-
- $(theme_header)
-
-
- $(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#* }"
-
- printf '%s
- %s %s ' \
- "$(HTML "${file##*/}")" "$(HTML "${file##*/}")" "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
- done)
-
-
- $(theme_footer)
-
+ theme_page - "$(_ Attachments): ${PAGE_TITLE:-"${page}"}" <<-EOF
+
+ $(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 '%s
+ %s %s ' \
+ "$hfile" "$hfile" "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
+ done)
+
EOF
fi
}
-theme_login(){
- theme_page '/[wiki]/login/'
-}
-
-theme_register(){
- theme_page '/[wiki]/register/'
-}
-
-theme_403(){
- printf "%s\r\n" "Status: 403 Forbidden"
-
- if [ "$(mdfile '/[wiki]/403/')" ]; then
- theme_page '/[wiki]/403/'
- else
- printf "Content-Length: 0\r\n\r\n"
- fi
-}
+theme_error(){
+ local errno="$1"
-theme_404(){
- printf "%s\r\n" "Status: 404 Not Found"
+ 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]/404/')" ]; then
- theme_page '/[wiki]/404/'
+ if mdfile "/[wiki]/$errno/" >&-; then
+ theme_page "/[wiki]/$errno/"
else
printf "Content-Length: 0\r\n\r\n"
fi