git.plutz.net Git - invoices/blob - invoices.cgi

   1 #!/bin/sh
   2
   3 _EXEC="$(realpath "${0%/*}")"
   4 . "$_EXEC/cgilite/cgilite.sh"
   5 . "$_EXEC/cgilite/logging.sh"
   6 . "$_EXEC/cgilite/storage.sh"
   7 . "$_EXEC/cgilite/session.sh"
   8
   9 yield_page(){
  10 printf 'Content-Type: text/html; charset=utf-8\r\n\r\n'
  11 "$_EXEC/cgilite/html-sh.sed" <<EOF
  12 [html [head
  13   [meta name="viewport" content="width=device-width"]
  14   [link rel="stylesheet" type="text/css" href="/invoices.css"]
  15   [title Invoices]
  16 ] [body class="$1"
  17   [div #menu
  18     [a "/invoices/" Invoices]
  19     [a "/clients/" Clients]
  20     [a "/senders/" Senders]
  21   ]
  22   $(cat)
  23 ] ]
  24 EOF
  25 }
  26
  27 tid(){
  28   # transaction ID to modify a given file
  29   local file="$1"
  30   { stat -c %F%i%n%N%s%Y "$file" 2>&-
  31     printf %s "$SESSION_ID"
  32     server_key
  33   } | sha256sum | cut -d\  -f1
  34 }
  35
  36 info="$(PATH "${PATH_INFO}")"
  37
  38 case $info in
  39   /invoices.css)
  40     . "$_EXEC/cgilite/file.sh"
  41     FILE "$_EXEC/invoices.css"
  42     ;;
  43   /clients)
  44     . "$_EXEC/clients.sh"
  45     { list_clients
  46       printf '[a .new href="/clients/%s" New]' "$(timeid)"
  47     } | yield_page clients
  48     ;;
  49   /clients/*)
  50     . "$_EXEC/clients.sh"
  51     edit_client "${info#/clients/}" |yield_page client
  52     ;;
  53   /update_client)
  54     . "$_EXEC/clients.sh"
  55     update_client
  56     ;;
  57   /senders)
  58     . "$_EXEC/senders.sh"
  59     { list_senders
  60       printf '[a .new href="/senders/%s" New]' "$(timeid)"
  61     } | yield_page senders
  62     ;;
  63   /senders/*)
  64     . "$_EXEC/senders.sh"
  65     edit_sender "${info#/senders/}" |yield_page sender
  66     ;;
  67   /update_sender)
  68     . "$_EXEC/senders.sh"
  69     update_sender
  70     ;;
  71   /invoices)
  72     . "$_EXEC/invoices.sh"
  73     { list_invoices
  74       printf '[a .new href="/invoices/%s" New]' "$(timeid)"
  75     } | yield_page invoices
  76     ;;
  77   /invoices/*)
  78     . "$_EXEC/invoices.sh"
  79     edit_invoice "${info#/invoices/}" |yield_page invoice
  80     ;;
  81   /update_invoice)
  82     . "$_EXEC/invoices.sh"
  83     update_invoice
  84     ;;
  85   *) REDIRECT /invoices
  86     ;;
  87 esac