git.plutz.net Git - shellwiki/blob - themes/default.sh

   1 #!/bin/sh
   2
   3 . "$_EXEC/tools.sh"
   4
   5 theme_head(){
   6   printf '
   7   <meta name="viewport" content="width=device-width"/>
   8   <link rel="stylesheet" type="text/css" href="%s/[.]/cgilite/common.css">
   9   <link rel="stylesheet" type="text/css" href="%s/[.]/themes/default.css">
  10   ' "$_BASE"
  11 }
  12
  13 theme_header(){
  14   printf '<header>%s</header>' "$(wiki '[wiki]/header/')"
  15 }
  16
  17 theme_footer(){
  18   printf '<footer>%s</footer>' "$(wiki '[wiki]/footer/')"
  19 }
  20
  21 theme_pagemenu(){
  22   local page="$1"
  23
  24   if acl_write "$page"; then
  25     printf  '
  26     <ul class="pagemenu">
  27       <li><a href="./[view]">View</a></li>
  28       <li><a href="./[edit]">Edit</a></li>
  29       <li><a href="./[attachment]">Attachments</a></li>
  30       <li><a href="./[revision]">Revisions</a></li>
  31       <li><a href="./[rename]">Rename</a></li>
  32       <li><a href="./[move]">Move</a></li>
  33       <li><a href="./[delete]">Delete</a></li>
  34     </ul>'
  35   fi
  36 }
  37
  38 theme_page(){
  39   local page="$1" title="$2"
  40   title="$(HTML "${title:-"${page}"}")"
  41
  42   # Important! Web Server response including newline
  43   printf "%s\r\n" "Content-Type: text/html; charset=utf-8" ""
  44
  45   cat <<-EOF
  46         <!DOCTYPE HTML>
  47         <html><head>
  48           $(theme_head)
  49           <title>${title}</title>
  50         </head><body id="$(HTML "${PATH_INFO}")">
  51           $(theme_header)
  52           <main>
  53             $(theme_pagemenu)
  54             $(if [ "$page" = '-' ]; then
  55                 cat
  56               else
  57                 printf '<article>'
  58                 wiki "$page"
  59                 printf '</article>'
  60             fi)
  61           </main>
  62           $(theme_footer)
  63         </body></html>
  64         EOF
  65 }
  66
  67 theme_editor(){
  68   local page="$1" template="$2" title
  69   title="${page%/}"; title="${title##*/}"
  70
  71   [ "$template" ] && acl_read "$template" || template="$page"
  72
  73   theme_page - "Editor: $title" <<-EOF
  74         <form method=POST action="$(HTML "${page%/}/[edit]")">
  75           <input type=hidden name=session_key value="${SESSION_KEY}"/>
  76           <textarea name=pagetext>$({ wiki_text "$page" \
  77                                    || wiki_text "$template"; } |HTML)</textarea>
  78           <button type=submit name=action value=update>Update</button>
  79           <button type=submit name=action value=cancel>Cancel</button>
  80         </form>
  81         EOF
  82 }
  83
  84 theme_revisions(){
  85   local page="$1" title
  86   title="${page%/}"; title="${title##*/}"
  87
  88  "$_EXEC/macros/revisions" "$page" \
  89   | theme_page - "Revisions: $title"
  90 }
  91
  92 theme_attachments(){
  93   local page="$1" title
  94   title="${page%/}"; title="${title##*/}"
  95
  96   if acl_write "$page"; then
  97     theme_page - "Attachments: $title" <<-EOF
  98         <form class=upload method=POST enctype="multipart/form-data">
  99           <input type=hidden name=session_id value="$SESSION_ID">
 100           <input type=file name=file multiple>
 101           <button type=submit name=action value=upload>Upload</button>
 102         </form>
 103
 104         <form method=POST><ul class="attachment list">
 105           <input type=hidden name=session_key value="$SESSION_KEY">
 106         $(for file in "$_EXEC/pages/$page/#attachments"/* "$_DATA/pages/$page/#attachments"/*; do
 107           [ "$file" = "$_EXEC/pages/$page/#attachments/${file##*/}" \
 108                 -a -f "$_DATA/pages/$page/#attachments/${file##*/}" ] && continue
 109           stat="$(stat -c '%s %Y' -- "$file" 2>&-)" || continue
 110           size="${stat% *}" date="${stat#* }"
 111           hfile="$(HTML "${file##*/}")"
 112
 113           printf '<li><button type=submit name=delete value="%s">Delete</button><a class=name href="[attachment]/%s">%s</a>
 114                   <span class=size>%s</span><span class=date>%s</span></li>' \
 115                  "$hfile" "$hfile" "$hfile" "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
 116         done)
 117         </ul></form>
 118         EOF
 119   else
 120     theme_page - "Attachments: $title" <<-EOF
 121         <ul class="attachment list">
 122         $(for file in "$_EXEC/pages/$page/#attachments"/* "$_DATA/pages/$page/#attachments"/*; do
 123           [ "$file" = "$_EXEC/pages/$page/#attachments/${file##*/}" \
 124                 -a -f "$_DATA/pages/$page/#attachments/${file##*/}" ] && continue
 125           stat="$(stat -c '%s %Y' -- "$file" 2>&-)" || continue
 126           size="${stat% *}" date="${stat#* }"
 127           hfile="$(HTML "${file##*/}")"
 128
 129           printf '<li><a class=name href="%s">%s</a>
 130                   <span class=size>%s</span><span class=date>%s</span></li>' \
 131                  "$hfile" "$hfile" "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
 132         done)
 133         </ul>
 134         EOF
 135   fi
 136 }
 137
 138 theme_error(){
 139   local errno="$1"
 140
 141   case $errno in
 142     400) printf "%s\r\n" "Status: 400 Bad Request";;
 143     403) printf "%s\r\n" "Status: 403 Forbidden";;
 144     404) printf "%s\r\n" "Status: 404 Not Found";;
 145     409) printf "%s\r\n" "Status: 409 Conflict";;
 146     500) printf "%s\r\n" "Status: 500 Internal Server Error";;
 147   esac
 148
 149   if [ "$(mdfile "/[wiki]/$errno/")" ]; then
 150     theme_page "/[wiki]/$errno/"
 151   else
 152     printf "Content-Length: 0\r\n\r\n"
 153   fi
 154 }