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

   1 #!/bin/sh
   2
   3 _EXEC="$(realpath "${0%/*}")"
   4 . "$_EXEC/cgilite/cgilite.sh"
   5 . "$_EXEC/cgilite/storage.sh"
   6
   7 debug(){
   8   if [ $# = 0 ]; then
   9     tee /dev/stderr
  10   else
  11     printf %s\\n "$*" >/dev/stderr
  12   fi
  13 }
  14
  15 timeid(){
  16   # generate time based ID
  17   # Fixme: Unix time stamps assumed to be 32bit always
  18   d=$(date +%s)
  19   { printf $(
  20       while [ "$d" -gt 0 ]; do
  21         printf \\%o\\n $((d % 256))
  22         d=$((d / 256))
  23       done |tac |tr -d \\n
  24     )
  25     head -c5 /dev/urandom
  26   } \
  27   | uuencode -m - \
  28   | sed -n '2{y;+/;:_;;p}'
  29 }
  30
  31 checkid(){
  32   grep -m 1 -xE '[0-9a-zA-Z:_]{12}';
  33 }
  34
  35 yield_page(){
  36 printf 'Content-Type: text/html; charset=utf-8\r\n\r\n'
  37 ./cgilite/html-sh.sed <<EOF
  38 [html [head
  39   [meta name="viewport" content="width=device-width"]
  40   [link rel="stylesheet" type="text/css" href="/invoices.css"]
  41   [title Invoices]
  42 ] [body class="$1"
  43   [div #menu
  44     [a "/invoices/" Invoices]
  45     [a "/clients/" Clients]
  46     [a "/senders/" Senders]
  47   ]
  48   $(cat)
  49 ] ]
  50 EOF
  51 }
  52
  53 edit_client(){
  54   id="$1"
  55   if [ -f "clients/$id" ]; then
  56     read -r address hourly <"clients/$id"
  57   fi
  58   [ "$address" ] || address="address="
  59   [  "$hourly" ] ||  hourly="hourly="
  60   printf '
  61     [form method="POST" action="/update_client"
  62       [hidden "id" "%s"]
  63       <textarea name="address" placeholder="address">
  64 %s</textarea>
  65       [label for=hourly Hourly Rate:]
  66       [input #hourly type=number name=hourly value="%s"]
  67       [submit "update" "update" Update]
  68     ]' \
  69     "$(HTML $id)" \
  70     "$(UNSTRING "${address#address=}" |HTML)" \
  71     "$(UNSTRING "${hourly#hourly=}" |grep -xE '[0-9]+')"
  72 }
  73
  74 edit_sender(){
  75   id="$1"
  76   if [ -f "senders/$id" ]; then
  77     address="$(cat "senders/$id")"
  78   fi
  79   [ "$address" ] || address="Name
  80 Street
  81 City
  82
  83 Phone:
  84 000 000000
  85
  86 Tax no.
  87 xxx / 000 / ###
  88 "
  89   printf '
  90     [form method="POST" action="/update_sender"
  91       [hidden "id" "%s"]
  92       <textarea name="address" placeholder="address">%s</textarea>
  93       [submit "update" "update" Update]
  94     ]' \
  95     "$(HTML $id)" \
  96     "$(HTML "${address}")"
  97 }
  98
  99 list_clients(){
 100   [ -d clients/ ] && for c in clients/*; do
 101     read -r address hourly <"$c"
 102     address="$(UNSTRING "${address#address=}")"
 103     [ "$address" ] || address="(no address)"
 104     printf '[div .client .address <!--
 105       -->%s
 106
 107 [label Hourly Rate:] %s€
 108     [a href="/clients/%s" Edit]]
 109     ' "$(HTML "$address")" \
 110       "$(HTML "${hourly#hourly=}")" \
 111       "$(HTML "${c#clients/}")"
 112   done
 113 }
 114
 115 list_senders(){
 116   [ -d senders/ ] && for s in senders/*; do
 117     address=$(cat "$s")
 118     [ "$address" ] || address="(no address)"
 119     printf '[div .sender .address <!--
 120       -->%s[a href="/senders/%s" Edit]]
 121     ' "$(HTML "$address")" "$(HTML "${s#senders/}")"
 122   done
 123 }
 124
 125 sender_list(){
 126   local select="$1" n name
 127   [ -d senders/ ] && for n in '' senders/*; do
 128     [ "$n" ] && name="$(sed q "$n" |HTML)"
 129     [ "${n#senders/}" = "$select" ] \
 130     && printf '<option value="%s" selected=selected>%s</option>' "${n#senders/}" "$name" \
 131     || printf '<option value="%s">%s</option>' "${n#senders/}" "$name"
 132   done
 133 }
 134
 135 client_list(){
 136   local select="$1" n address hourly name
 137   [ -d clients/ ] && for n in '' clients/*; do
 138     [ "$n" ] && read -r address hourly <"$n"
 139     name="$(UNSTRING "${address#address=}" |sed q |HTML)"
 140     [ "${n#clients/}" = "$select" ] \
 141     && printf '<option value="%s" selected=selected>%s</option>' "${n#clients/}" "$name" \
 142     || printf '<option value="%s">%s</option>' "${n#clients/}" "$name"
 143   done
 144 }
 145
 146 list_invoices(){
 147   [ -d invoices/ ] && for i in invoices/*; do
 148     read -r sender client date number vat<<-EOF
 149         $(sed q "$i")
 150         EOF
 151     [ -f "senders/${sender#sender=}" ] \
 152     && sender="$(sed q "senders/${sender#sender=}")" \
 153     || sender="(unset)"
 154     [ ! -f "clients/${client#client=}" ] \
 155     && client="(unset)" \
 156     || read -r client hourly <"clients/${client#client=}"
 157     [ "${date#date=}" -ge 0 ] 2>&- \
 158     && date="$(date -d "@${date#date=}" +%x)" \
 159     || date="(unset)"
 160
 161     printf '[div .invoice
 162       [h2
 163           %s]
 164       [label From:] %s [label To:] %s [label on] %s
 165       [a href="/invoice/%s" Edit]
 166     ]' "$(UNSTRING "${number#number=}" |HTML)" \
 167        "$(HTML "$sender")" \
 168        "$(UNSTRING "${client#address=}" |sed q |HTML)" "$(HTML "$date")" \
 169        "$(HTML ${i#invoices/})"
 170   done
 171 }
 172
 173 edit_invoice(){
 174   id="$1"
 175   if [ -f "invoices/$id" ]; then
 176     read -r sender client date number vat<<-EOF
 177         $(sed q "invoices/$id")
 178         EOF
 179   fi
 180
 181   [ "${date#date=}" -ge 0 ] 2>&- \
 182   && date="$(date -d "@${date#date=}" +%F)" \
 183   || date="$(date +%F)"
 184   [ "${number#number=}" ] || number="number=$(date +%s)"
 185   [ "${vat%=*}" = vat -a "${vat#vat=}" -ge 0 ] 2>&- \
 186   && vatrate="${vat#vat=}" \
 187   || vatrate=19
 188
 189   cat <<-EOF
 190         [form method="POST" action="/update_invoice"
 191           [hidden "id" "$(HTML "$id")"]
 192
 193           [label Sender:]
 194           [select name=sender
 195             $(sender_list "${sender#sender=}")
 196           ]
 197
 198           [label Client:]
 199           [select name=client
 200             $(client_list "${client#client=}")
 201           ]
 202
 203           [label for=number Invoice Number:]
 204           [input #number name=number value="$(UNSTRING "${number#number=}" |HTML)"]
 205
 206           [label for=date Date:]
 207           [input #date name=date value="${date}" placeholder="YYYY-MM-TT"]
 208
 209           [radio "vat" "smallbusiness" #vatsb $([ "$vat" = smallbusiness ] && printf checked) ]
 210           [label for=vatsb Small business exemption from VAT]
 211           [radio "vat" "allgross" #vatgross $([ "$vat" = allgross ] && printf checked)]
 212           [label for=vatgross All amounts are gross]
 213           [radio "vat" "rate" #vatrate $([ "${vat%=*}" = vat ] && printf checked) ]
 214           [label for=vatrate VAT Rate: [input type=number name="vatrate" value="${vatrate}"]% ]
 215
 216           [submit "update" "update" Update]
 217         ]
 218         EOF
 219 }
 220
 221 info="$(PATH "${PATH_INFO}")"
 222
 223 case $info in
 224   /invoices.css)
 225     . "$_EXEC/cgilite/file.sh"
 226     FILE "$_EXEC/invoices.css"
 227     ;;
 228   /clients)
 229     { list_clients
 230       printf '[a .new href="/clients/%s" New]' "$(timeid)"
 231     } | yield_page clients
 232     ;;
 233   /clients/*)
 234     edit_client "${info#/clients/}" |yield_page client
 235     ;;
 236   /update_client)
 237     id="$(POST id |checkid)"
 238     if [ "$(POST update)" = update -a "$id" ]; then
 239       mkdir -p clients
 240       printf 'address=%s        hourly=%s' \
 241         "$(POST address |STRING)" "$(POST hourly |STRING)" \
 242         >"clients/$id"
 243     else
 244       echo Invalid Data "$(POST id)" "$(POST update)" >&2
 245     fi
 246     REDIRECT /clients/
 247     ;;
 248   /senders)
 249     { list_senders
 250       printf '[a .new href="/senders/%s" New]' "$(timeid)"
 251     } | yield_page senders
 252     ;;
 253   /senders/*)
 254     edit_sender "${info#/senders/}" |yield_page sender
 255     ;;
 256   /update_sender)
 257     id="$(POST id |checkid)"
 258     if [ "$(POST update)" = update -a "$id" ]; then
 259       mkdir -p senders
 260       POST address >"senders/$id"
 261     fi
 262     REDIRECT /senders/
 263     ;;
 264   /invoices)
 265     { list_invoices
 266       printf '[a .new href="/invoice/%s" New]' "$(timeid)"
 267     } | yield_page invoices
 268     ;;
 269   /invoice/*)
 270     edit_invoice "${info#/invoice/}" |yield_page invoice
 271     ;;
 272   /update_invoice)
 273     id="$(POST id |checkid)"
 274     if [ "$(POST update)" = update -a "$id" ]; then
 275       mkdir -p invoices
 276       vat="$(POST vat |grep -m1 -xE 'smallbusiness|allgross|rate' )"
 277       printf 'sender=%s client=%s       date=%s number=%s       %s\n' \
 278         "$(POST sender)" "$(POST client)" \
 279         "$(date -d "$(POST date)" +%s)" \
 280         "$(POST number |STRING)" \
 281         "$([ "$vat" = rate ] && printf 'vat=%i' "$(POST vatrate)" || printf %s "$vat" )" \
 282       >"invoices/$id"
 283     fi
 284     REDIRECT "/invoice/$id"
 285     ;;
 286   *) REDIRECT /invoices
 287     ;;
 288 esac