git.plutz.net Git - confetti/blob - index.cgi

   1 #!/bin/sh
   2
   3 for n in "$@"; do case ${n%%=*} in
   4   data) _DATA="${n#data=}";;
   5   exec) _EXEC="${n#exec=}";;
   6   base) _BASE="${n#base=}";;
   7   debug) DEBUG="${n#debug=}";;
   8 esac; done
   9
  10 [ ! "${_EXEC%/}" ] && _EXEC="$(realpath "${0%/*}")" || _EXEC="${_EXEC%/}"
  11 [ ! "${_DATA%/}" ] && _DATA="${PWD%/}" || _DATA="${_DATA%/}"
  12 _BASE="${_BASE%/}"
  13 [ "$DEBUG" ] && exec 2>>"$DEBUG"
  14
  15 mkdir -p "${_DATA}/cache" "${_DATA}/mappings" "${_DATA}/export" "${_DATA}/lock" "${_DATA}/ical" "${_DATA}/vcard"
  16
  17 debug() {
  18   local dbg=/dev/stderr
  19   if [ ! "$DEBUG" ]; then
  20     [ "$#" -gt 0 ] && : || cat;
  21   elif [ "$#" -gt 0 ]; then
  22     printf '%s\n' "$@" >>"$dbg"
  23   else
  24     tee -a "$dbg"
  25   fi
  26 }
  27
  28 . "$_EXEC/cgilite/cgilite.sh"
  29 . "$_EXEC/cgilite/session.sh"
  30
  31 . "$_EXEC/l10n.sh"
  32
  33 _PATH="$(PATH "/${PATH_INFO}")"
  34 _PATH="${_PATH#${_BASE}}"
  35 ACTION="$(GET a)"
  36
  37 SESSION_COOKIE
  38
  39 message="$(COOKIE message)"
  40 [ "$message" ] && SET_COOKIE 0 message=''
  41
  42 checked(){
  43   if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
  44     printf 'checked="checked"'
  45   fi 2>/dev/null
  46 }
  47 selected(){
  48   if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
  49     printf 'selected="selected"'
  50   fi 2>/dev/null
  51 }
  52
  53 yield_page() {
  54   local class="$1" style="$2"
  55   printf 'Content-Type: text/html; charset=utf-8\r\n\r\n'
  56   { printf '
  57         [html [head
  58           [title Confetti]
  59           [meta name="viewport" content="width=device-width"]
  60           [link rel="stylesheet" type="text/css" href="%s/cgilite/common.css"]
  61           [link rel="stylesheet" type="text/css" href="%s/style.css"]
  62     ' "${_BASE}" "${_BASE}"
  63     [ -n "$style" ] && printf '
  64           [link rel="stylesheet" type="text/css" href="%s"]
  65     ' "$style"
  66     printf '
  67         ] [body #top class="%s"
  68     ' "$class"
  69     printf '[ul .menu [li [a "%s/cards/" . %s]][li [a "%s/courses/" . %s]][li [a "%s/ledgers/" . %s]]]' \
  70            "${_BASE}" "$(l10n cards)" "${_BASE}" "$(l10n courses)" "${_BASE}" "$(l10n ledgers)"
  71     [ "$message" ] && printf '[p #message\n%s\n]' "$(l10n "$message")"
  72     cat
  73     printf '] ]'
  74   } \
  75   | "${_EXEC}/cgilite/html-sh.sed"
  76 }
  77
  78 topdir="${_PATH#/}"
  79 topdir="/${topdir%%/*}"
  80
  81 case ${_PATH} in
  82   "/") REDIRECT "${_BASE}/cards/"
  83     ;;
  84   "/export"/*.pdf) . "$_EXEC/cgilite/file.sh"
  85     FILE "${_DATA}/${_PATH}" "application/pdf"
  86     ;;
  87   "/export"/*) . "$_EXEC/cgilite/file.sh"
  88     FILE "${_DATA}/${_PATH}"
  89     ;;
  90   *)
  91     if   [ -d "${_EXEC}/${_PATH}" -a -x "${_EXEC}/${_PATH}/index.cgi" ]; then
  92       . "${_EXEC}/${_PATH}/index.cgi"
  93     elif [ -f "${_EXEC}/${_PATH}" -a -x "${_EXEC}/${_PATH}" ]; then
  94       . "${_EXEC}/${_PATH}"
  95     elif [ -f "${_EXEC}/${_PATH}" -a -r "${_EXEC}/${_PATH}" ]; then
  96       . "$_EXEC/cgilite/file.sh"
  97       FILE "${_EXEC}/${_PATH}"
  98     elif [ -d "${_EXEC}/${topdir}" -a -x "${_EXEC}/${topdir}/index.cgi" ]; then
  99       . "${_EXEC}/${topdir}/index.cgi"
 100     else
 101       printf '%s\r\n' 'Status: 404 Not Found' 'Content-Length: 0' ''
 102     fi
 103     ;;
 104 esac