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