git.plutz.net Git - serve0/blob - view.sh

   1 #!/bin/sh
   2
   3 . "$_EXEC/db_meta.sh"
   4 . "$_EXEC/widgets.sh"
   5
   6 read_meta "${ITEM%.*}"
   7
   8 printf 'Content-Type: text/html;charset=utf-8\r\n\r\n'
   9
  10 { cat <<-EOF
  11         [!DOCTYPE HTML]
  12         [html [head
  13           [title . $(HTML "${ITEM##*/}")]
  14           [meta name="viewport" content="width=device-width"]
  15           [link rel=stylesheet href="/cgilite/common.css" ]
  16           [link rel=stylesheet href="/style.css" ]
  17         ] [body #view
  18           [script type="text/javascript" src="/stereoview.js"\n]
  19           [div #navigation
  20             [a #t_bookmarks href="#bookmarks" &#x2605;]
  21             $(w_search)
  22             [a #t_prefs href="#prefs" &#x2699;]
  23           ]
  24         EOF
  25   w_bookmarks
  26   w_advsearch
  27   w_prefs
  28   cat <<-EOF
  29           [video #mainvideo controls="controls" preload="auto" [source src="?a=download" type="video/mp4"]]
  30           [a "?a=download" Download]
  31           [a "javascript:stereoview(180, document.getElementById(&#34;mainvideo&#34;));" View 180° Stereoscopic]
  32           [a "javascript:stereoview(360, document.getElementById(&#34;mainvideo&#34;));" View 360° Stereoscopic]
  33           [h1 . $(HTML "${ITEM##*/}" |sed -E 's;[^0-9a-zA-Z&#];&[wbr];g')]
  34           [span .time $((META_LENGTH / 60)):$(printf %02i $((META_LENGTH % 60)))min] [span .dim ${META_WIDTH}x${META_HEIGHT}]
  35         EOF
  36   printf %s\\n "$META_TAGS" |tr , \\n |while read tag; do
  37     [ "$tag" ] && printf '  [span .tag . %s]\n' "$(HTML "${tag#-}")"
  38   done
  39   printf '
  40   [div #editing
  41     [form method=POST action="/?a=multitag"
  42     [hidden "select" "%s"]' "$(HTML "${ITEM}")"
  43       [ -d "$_DATA/${ITEM%/*}/.index/" ] && w_tagging
  44     printf '
  45     ]
  46   ]
  47 ] ]
  48 '; } | "$_EXEC/cgilite/html-sh.sed"