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