#!/bin/sh

_EXEC="$(realpath "${0%/*}")"
. "$_EXEC/cgilite/cgilite.sh"
. "$_EXEC/cgilite/logging.sh"
. "$_EXEC/cgilite/storage.sh"
. "$_EXEC/cgilite/session.sh"

yield_page(){
printf 'Content-Type: text/html; charset=utf-8\r\n\r\n'
"$_EXEC/cgilite/html-sh.sed" <<EOF
[html [head
  [meta name="viewport" content="width=device-width"]
  [link rel="stylesheet" type="text/css" href="/invoices.css"]
  [title Invoices]
] [body class="$1"
  [div #menu
    [a "/invoices/" Invoices]
    [a "/clients/" Clients]
    [a "/senders/" Senders]
  ]
  $(cat)
] ]
EOF
}

info="$(PATH "${PATH_INFO}")"

case $info in
  /invoices.css)
    . "$_EXEC/cgilite/file.sh"
    FILE "$_EXEC/invoices.css"
    ;;
  /clients)
    . "$_EXEC/clients.sh"
    { list_clients
      printf '[a .new href="/clients/%s" New]' "$(timeid)"
    } | yield_page clients
    ;;
  /clients/*)
    . "$_EXEC/clients.sh"
    edit_client "${info#/clients/}" |yield_page client
    ;;
  /update_client)
    . "$_EXEC/clients.sh"
    update_client
    REDIRECT /clients/
    ;;
  /senders)
    . "$_EXEC/senders.sh"
    { list_senders
      printf '[a .new href="/senders/%s" New]' "$(timeid)"
    } | yield_page senders
    ;;
  /senders/*)
    . "$_EXEC/senders.sh"
    edit_sender "${info#/senders/}" |yield_page sender
    ;;
  /update_sender)
    . "$_EXEC/senders.sh"
    update_sender
    REDIRECT /senders/
    ;;
  /invoices)
    . "$_EXEC/invoices.sh"
    { list_invoices
      printf '[a .new href="/invoice/%s" New]' "$(timeid)"
    } | yield_page invoices
    ;;
  /invoice/*)
    . "$_EXEC/invoices.sh"
    edit_invoice "${info#/invoice/}" |yield_page invoice
    ;;
  /update_invoice)
    . "$_EXEC/invoices.sh"
    update_invoice
    REDIRECT "/invoice/$id"
    ;;
  *) REDIRECT /invoices
    ;;
esac