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