From 2e85d45e1787d23b122b538d5f4626c7317c0278 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Wed, 29 Nov 2023 19:29:59 +0100
Subject: [PATCH] improved DBM functions

---
 db23.sh     |  84 ++++++++++++++
 invoices.sh | 314 ----------------------------------------------------
 odtgen.sh   | 239 ---------------------------------------
 3 files changed, 84 insertions(+), 553 deletions(-)
 create mode 100755 db23.sh
 delete mode 100755 invoices.sh
 delete mode 100755 odtgen.sh

diff --git a/db23.sh b/db23.sh
new file mode 100755
index 0000000..53cd543
--- /dev/null
+++ b/db23.sh
@@ -0,0 +1,84 @@
+#!/bin/sh
+
+. "$_EXEC/cgilite/storage.sh"
+
+DB2() {
+  local call data file key val seq
+  data="${BR}${1}${BR}" call="$2"
+  shift 2
+
+  case $call in
+    new|discard)
+      printf '\n'
+      ;;
+    open|load) file="$1"
+      cat "$file" || return 1
+      ;;
+    count|check|contains) key="$(STRING "$1")" val='' seq=0
+      val="${data##*${BR}${key}	}" val="${val%%${BR}*}"
+      [ "$val" = '' ] || val="${val}	"
+      while [ "$val" != '' ]; do
+        seq=$((seq + 1)) val="${val#*	}"
+      done
+      printf "%i\n" "$seq"
+      [ $seq = 0 ] && return 1
+      ;;
+    get) key="$(STRING "$1")" seq="${2:-1}"
+      val="${data##*${BR}${key}	}" val="${val%%${BR}*}"
+      [ "$val" = '' ] && return 1 || val="${val}	"
+      while [ $seq -gt 1 ]; do
+        seq=$((seq - 1)) val="${val#*	}"
+      done
+      [ "$val" = '' ] && return 1
+      UNSTRING "${val%%	*}"
+      ;;
+    iterate|raw) key="$(STRING "$1")"
+      val="${data##*${BR}${key}	}" val="${val%%${BR}*}"
+      [ "$val" = '' ] && return 1
+      printf '%s\n' $val
+      ;;
+    delete|remove) key="$(STRING "$1")"
+      val="${data#*${BR}${key}	*${BR}}"
+      key="${data%${BR}${key}	*${BR}*}"
+      [ "${key}${BR}${val}" = "${data}" ] && return 1
+      printf '%s' "${key#${BR}}${BR}${val%${BR}}"
+      ;;
+    set|store) key="$(STRING "$1")" val=""
+      shift 1
+      val="$(for v in "$@"; do STRING "$v"; printf \\t; done)"
+      if [ "${data#${BR}${key}	*}" != "$data" ]; then
+        data="${data%${BR}${key}	*${BR}*}${BR}${key}	${val%	}${BR}${data#*${BR}${key}	*${BR}}"
+        data="${data#${BR}}" data="${data%${BR}}"
+      else
+        data="${data#${BR}}${key}	${val%	}${BR}"
+      fi
+      printf %s\\n "${data}"
+      ;;
+    flush|save|write) file="$1"
+      data="${data#${BR}}" data="${data%${BR}}"
+      if LOCK "$file"; then
+        printf '%s\n' "$data" >"$file"
+        RELEASE "$file"
+      else
+        return 1
+      fi
+      ;;
+  esac
+  return 0
+}
+
+DB3() {
+  # wrapper function that allows easyer use of DB2
+  # by always keeping file data in $db3_data
+
+  case "$1" in
+    new|discard|open|load|delete|remove|set|store)
+      db3_data="$(DB2 "$db3_data" "$@")"
+      return "$?"
+      ;;
+    get|count|check|contains|iterate|raw|flush|save|write)
+      DB2 "$db3_data" "$@"
+      return "$?"
+      ;;
+  esac
+}
diff --git a/invoices.sh b/invoices.sh
deleted file mode 100755
index 072b5b7..0000000
--- a/invoices.sh
+++ /dev/null
@@ -1,314 +0,0 @@
-#!/bin/sh
-
-sender_list(){
-  local select="$1" n name address iban bic
-  [ -d senders/ ] && for n in '' senders/*; do
-    [ "$n" ] &&  read -r address iban bic x<"$n"
-    name="$(UNSTRING "${address#address=}" |sed q |HTML)"
-    [ "${n#senders/}" = "$select" ] \
-    && printf '<option value="%s" selected=selected>%s</option>' "${n#senders/}" "$name" \
-    || printf '<option value="%s">%s</option>' "${n#senders/}" "$name"
-  done
-}
-
-client_list(){
-  local select="$1" n address hourly name
-  [ -d clients/ ] && for n in '' clients/*; do
-    [ "$n" ] && read -r address hourly x<"$n"
-    name="$(UNSTRING "${address#address=}" |sed q |HTML)"
-    [ "${n#clients/}" = "$select" ] \
-    && printf '<option value="%s" selected=selected>%s</option>' "${n#clients/}" "$name" \
-    || printf '<option value="%s">%s</option>' "${n#clients/}" "$name"
-  done
-}
-
-list_invoices(){
-  [ -d invoices/ ] || return 0
-
-  printf '[h1 Offen]'
-  for i in invoices/*; do case "$(sed 1q <$i)" in
-    *status=open*) list_invoice "$i";;
-    *status=*) :;;
-    *) list_invoice "$i";;
-  esac; done
-
-  for n in resent:Erinnert sent:Verschickt paid:Bezahlt cancelled:Storniert; do
-    printf '[h1 %s]' "${n#*:}"
-    for i in invoices/*; do case "$(sed 1q <$i)" in
-      *status=${n%:*}*) list_invoice "$i";;
-    esac; done
-  done
-}
-
-list_invoice(){
-  local i="$1"
-  local sender client date number vat vatrate iban bic hourly \
-        taxtype nett tax gross total status
-
-  read -r sender client date number vat vatrate hourly status x<<-EOF
-	$(sed q "$i")
-	EOF
-
-  [ ! -f "senders/${sender#sender=}" ] \
-  && sender="(unset)" \
-  || read -r sender iban bic x<"senders/${sender#sender=}"
-
-  [ ! -f "clients/${client#client=}" ] \
-  && client="(unset)" \
-  || read -r client hourly x<"clients/${client#client=}"
-
-  [ "${date#date=}" -ge 0 ] 2>&- \
-  && date="$(date -d "@${date#date=}" +%x)" \
-  || date="(unset)"
-
-  read -r taxtype nett tax gross x<<-EOF
-	$(invoice_total "${i#invoices/}")
-	EOF
-  case $taxtype in
-    nett)  total="${nett} € + VAT";;
-    gross) total="${gross} € incl. VAT";;
-    *) total="${gross} €";;
-  esac
-
-  case $status in
-    status=sent|status=resent|status=paid|status=cancelled)
-      status="${status#status=}"
-    ;;
-    *) status=open;;
-  esac
-
-  printf '[div .invoice
-    [h2
-        %s]
-    [label Von:] %s [label An:] %s [label am] %s
-    [label Über:] %s
-    [a href="/invoices/%s" Edit]
-  ]' "$(UNSTRING "${number#number=}" |HTML)" \
-     "$(UNSTRING "${sender#address=}" |sed q |HTML)" \
-     "$(UNSTRING "${client#address=}" |sed q |HTML)" "$(HTML "$date")" \
-     "$total" \
-     "$(HTML ${i#invoices/})"
-}
-
-edit_invoice(){
-  local id="$1" sender client date number vat vatrate caddress hourly \
-        taxtype nett tax gross status novatreason
-
-  if [ -f "invoices/$id" ]; then
-    read -r sender client date number vat vatrate hourly status novatreason x<<-EOF
-	$(sed q "invoices/$id")
-	EOF
-  fi
-
-  case $status in
-    status=sent|status=resent|status=paid|status=cancelled)
-      status="${status#status=}"
-    ;;
-    *) status=open;;
-  esac
-
-  [ "${date#date=}" -ge 0 ] 2>&- \
-  && date="$(date -d "@${date#date=}" +%F)" \
-  || date="$(date +%F)"
-  [ "${number#number=}" ] \
-  && number="${number#number=}" \
-  || number="$(date +%s)"
-  [ "${vatrate#vatrate=}" -ge 0 ] 2>&- \
-  && vatrate="${vatrate#vatrate=}" \
-  || vatrate=19
-
-  [ -f "clients/${client#client=}" ] \
-  && read -r caddress chourly x<"clients/${client#client=}"
-  [ "${chourly#hourly=}" -ge 0 ] 2>&- \
-  && chourly="${chourly#hourly=}" \
-  || chourly=0
-  [ "${hourly#hourly=}" -ge 0 ] 2>&- \
-  && hourly="${hourly#hourly=}" \
-  || hourly="${chourly}"
-
-  novatreason="$(UNSTRING "${novatreason#novatreason=}")"
-
-  tid="$(transid "invoices/$id")"
-
-  read -r taxtype nett tax gross x<<-EOF
-	$(invoice_total "$id")
-	EOF
-
-
-  cat <<-EOF 
-	[form method="POST" action="/update_invoice"
-	  [hidden "id" "$(HTML "$id")"]
-	
-	  [label Absender:]
-	  [select name=sender
-	    $(sender_list "${sender#sender=}")
-	  ]
-	
-	  [label Klient:]
-	  [select name=client
-	    $(client_list "${client#client=}")
-	  ]
-	
-	  [label for=number Rechnungsnummer:]
-	  [input #number name=number value="$(UNSTRING "${number}" |HTML)"]
-	
-	  [label for=date Datum:]
-	  [input #date name=date value="${date}" placeholder="YYYY-MM-TT"]
-	
- 	  <!--
-	  [label for=hourly Hourly Rate:]
-	  [input #hourly type=number name=hourly value="${hourly}"]
-	  -->
-	
-	  [table
-	    [tr [th Stück] [th Leistung] [th Stückpreis] [th Summe] ]
-$({ sed 1d "invoices/$id"; printf 'time= work= hours=\n'; } \
-  | while read -r time work hours pcs ppp x; do
-    pcs="$(UNSTRING "${pcs#pcs=}" \
-           |grep -m1 -xE '[0-9]+' || printf 1)"
-    ppp="$(UNSTRING "${ppp#ppp=}" \
-           |grep -m1 -xEe '-?(\.[0-9]+|[0-9]+\.?[0-9]*)' || printf 0)"
-    printf '[tr
-            [td [input type=number name=pieces value="%i" step=1] ]
-            [td [textarea name=work
-%s] ]
-            [td [input type=number name=price value="%g" step=any] ]
-            [td %s]
-   ]' "$pcs" "$(UNSTRING "${work#work=}" |HTML)" "$ppp" \
-      "$(awk "BEGIN { printf \"%.2f €\", ${pcs} * ${ppp}; }")"
-  done
-)
-            [tr [td colspan=4 
-            $(case $taxtype in
-              (nett)  printf 'Summe: %7.2f €[br] + USt.: %7.2f €[br] [strong Gesamt:] %7.2f €' \
-                      $nett $tax $gross ;;
-              (gross) printf '[strong Gesamt:] %7.2f €[br] incl. nett: %7.2f €[br] + USt.: %7.2f €' \
-                      $gross $nett $tax ;;
-              (*) printf '[strong Gesamt:] %.2f €' $nett ;;
-            esac)
-            ]]
-	  ]
-
- 	  <!--
-	  [radio "vat" "smallbusiness" #vatsb $([ "${vat#vat=}" = smallbusiness ] && printf checked) ]
-	  [label for=vatsb Small business exemption from VAT]
-	  [radio "vat" "youthwork" #vatyw $([ "${vat#vat=}" = youthwork ] && printf checked) ]
-	  [label for=vatyw Umsatzsteuerbefreiung für Jugendhilfe, §4 Abs. 25 UStG.]
-	  -->
-	  [radio "vat" "novat" #vatfree $([ "${vat#vat=}" = novat ] && printf checked) ]
-	  [label for=vatfree [input type="text" name=novatreason value="${novatreason:-"Der Rechnungsbetrag ist nach §4 Abs. 25 UStG. umsatzsteuerfrei"}"]]
-	  [radio "vat" "nett" #vatnett $([ "${vat#vat=}" = nett ] && printf checked)]
-	  [label for=vatnett Netto]
-	  [radio "vat" "gross" #vatgross $([ "${vat#vat=}" = gross ] && printf checked)]
-	  [label for=vatgross Brutto]
-	  [label for=vatrate USt.: [input type=number name="vatrate" value="${vatrate}"]% ]
-          [select name=status
-             [option value=open      $( [ $status = open      ] && printf selected=selected ) Offen]
-             [option value=sent      $( [ $status = sent      ] && printf selected=selected ) Verschickt]
-             [option value=resent    $( [ $status = resent    ] && printf selected=selected ) Erinnert]
-             [option value=paid      $( [ $status = paid      ] && printf selected=selected ) Bezahlt]
-             [option value=cancelled $( [ $status = cancelled ] && printf selected=selected ) Storniert]
-          ]
-
-	  [submit "genpdf" "$tid" PDF Exportieren]
-	  [submit "update" "$tid" Aktualisieren]
-	]
-	EOF
-}
-
-invoice_total(){
-  local id="$1" sender client date number vat vatrate \
-        total=0 caddress hourly time work hours
-
-  if [ -f "invoices/$id" ]; then
-    read -r sender client date number vat vatrate hourly x<<-EOF
-	$(sed q "invoices/$id")
-	EOF
-
-    [ "${vatrate#vatrate=}" -ge 0 ] 2>&- \
-    && vatrate="${vatrate#vatrate=}" \
-    || vatrate=19
-
-    sed 1d "invoices/$id" \
-    | { while read -r time work hours pcs ppp; do
-        pcs="$(UNSTRING "${pcs#pcs=}" \
-               |grep -m1 -xE '[0-9]+' || printf 1)"
-        ppp="$(UNSTRING "${ppp#ppp=}" \
-               |grep -m1 -xEe '-?(\.[0-9]+|[0-9]+\.?[0-9]*)' || printf 0)"
-        total=$(awk "BEGIN { printf \"%.2f\", ${total} + ${pcs} * ${ppp}; }")
-      done
-      case $vat in
-        vat=nett)
-          awk "BEGIN {
-            printf \"nett	%.2f	%.2f	%.2f\",
-              $total, int($total * $vatrate + .5) / 100,
-              $total + int($total * $vatrate + .5) / 100
-          }" ;;
-        vat=gross)
-          awk "BEGIN {
-            printf \"gross	%.2f	%.2f	%.2f\",
-              $total - int($total / (100 + $vatrate) * $vatrate * 100 + .5) / 100,
-              int($total / (100 + $vatrate) * $vatrate * 100 + .5) / 100, $total
-          }" ;;
-        *)
-          awk "BEGIN {
-            printf \"notax	%.2f	%.2f	%.2f\",
-              $total, 0, $total
-          }" ;;
-      esac
-    }
-  else
-    printf %.2f\\n 0
-  fi
-}
-
-update_invoice(){
-  local id="$(POST id |checkid)" extra=0 tid
-  tid="$(transid invoices/$id)"
-  printf "Update\n" >&2
-
-  if [ "$(POST update)" = "$tid" ] || [ "$(POST genpdf)" = "$tid" ]; then
-    mkdir -p invoices
-
-    for n in "$(POST_COUNT time)" "$(POST_COUNT work)" "$(POST_COUNT hours)" "$(POST_COUNT pieces)" "$(POST_COUNT price)"; do
-      [ "$n" -gt "$extra" ] && extra="$n"
-    done
-
-    { printf 'sender=%s	client=%s	date=%s	number=%s	vat=%s	vatrate=%s	hourly=%s	status=%s	novatreason=%s\n' \
-        "$(POST sender)" "$(POST client)" \
-        "$(date -d "$(POST date)" +%s)" \
-        "$(POST number |STRING)" \
-        "$(POST vat |grep -m1 -xE 'smallbusiness|youthwork|gross|nett|novat')" \
-        "$(POST vatrate |grep -m1 -xE '[0-9]+')" \
-        "$(POST hourly |grep -m1 -xE '[0-9]+')" \
-        "$(POST status |grep -m1 -xE 'open|sent|resent|paid|cancelled')" \
-	"$(POST novatreason |STRING)"
-      for n in $(seq 1 $extra); do
-        printf 'time=%s	work=%s	hours=%s	pcs=%s	ppp=%s\n' \
-          "$(POST time $n |STRING)" "$(POST work $n |STRING)" \
-          "$(POST hours $n |STRING)" \
-          "$(POST pieces $n |STRING)" "$(POST price $n |STRING)" \
-        | grep -xvF 'time=\	work=\	hours=\	pcs=1	ppp=0'
-      done
-    } >"invoices/$id"
-
-    [ -d .git ] && {
-      git add "invoices/$id"
-      git commit -m 'Update invoice info for "'"$(POST number)"'"' -- "invoices/$id"
-    } >/dev/null
-  else
-    printf "TID mismatch\n" >&2
-  fi
-  if [ "$(POST genpdf)" ]; then
-    read -r sender client date x<"invoices/$id"
-    read -r saddress x <"senders/${sender#sender=}"
-    read -r caddress x <"clients/${client#client=}"
-    filename="Rechnung $(UNSTRING "${saddress#address=}" |sed 1q) an $(UNSTRING "${caddress#address=}" |sed 1q) $(date -d@"${date#date=}" +%F).pdf"
-
-    . $_EXEC/odtgen.sh
-    genpdf "$id"
-    REDIRECT "/export/${id}.pdf/$(URL "${filename}" |sed s/%0D//g)"
-    exit 0
-  fi
-  REDIRECT "/invoices/$id"
-}
diff --git a/odtgen.sh b/odtgen.sh
deleted file mode 100755
index 9e60106..0000000
--- a/odtgen.sh
+++ /dev/null
@@ -1,239 +0,0 @@
-#!/bin/zsh
-
-html_content(){
-  local id="$1" sender="$2" client="$3" date="$4" number="$5" vat="$6" vatrate="$7" hourly="$8" \
-        taxtype nett tax gross date_due
-
-  sender="$(HTML "$sender" |sed -E 's/&#x0D;&#x0A;/ • /g;')"
-  client="$(HTML "$client" |sed -E ':A; /(.*&#x0D;&#x0A;){6}/!{ s/$/\&#x0D;\&#x0A;/; bA; }')"
-
-  read -r taxtype nett tax gross <<-EOF
-	$(invoice_total "$id")
-	EOF
-
-  [ "$vatrate" ] || vatrate=0
-  date_due="$((date + 86400 * 28))"
-
-  cat <<-EOF
-	<!DOCTYPE html>
-	<html>
-	<head>
-		<meta http-equiv="content-type" content="text/html; charset=utf-8"/>
-		<title></title>
-		<meta name="generator" content="LibreOffice 7.4.5.1 (Linux)"/>
-		<meta name="created" content="2023-11-02T15:32:43.493295697"/>
-		<meta name="changed" content="2023-11-08T12:52:58.068548329"/>
-		<style type="text/css">
-			@page { size: 21cm 29.7cm; margin-left: 2.5cm; margin-right: 2.5cm; margin-top: 2.7cm; margin-bottom: 2cm }
-			p { line-height: 115%; margin-bottom: 0.25cm; background: transparent; background: transparent }
-			td p { orphans: 0; widows: 0; background: transparent; background: transparent }
-			th p { font-weight: bold; text-align: center; orphans: 0; widows: 0; background: transparent; background: transparent }
-			a:link { color: #000080; text-decoration: underline }
-			a:visited { color: #800000; text-decoration: underline }
-		</style>
-	</head>
-	<body lang="de-DE" link="#000080" vlink="#800000" dir="ltr"><p align="left" style="line-height: 100%; margin-top: 2cm; background: transparent">
-	<font color="#000000"><font face="Cabin"><font size="1" style="font-size: 8pt"><b>${sender}</b></font></font></font></p>
-	<p align="left" style="font-weight: normal; line-height: 100%; margin-top: 0.2cm; background: transparent">
-	<font color="#000000"><font face="Cabin"><font size="2" style="font-size: 11pt">${client}</font></font></font></p>
-	<p align="left" style="line-height: 100%; margin-top: 1.1cm; background: transparent; page-break-before: auto; page-break-after: auto">
-	<font color="#000000"><font face="Cabin"><font size="3" style="font-size: 12pt"><b>Rechnung
-	SI $(date -d @${date} +%y) ${number}</b></font></font></font></p>
-	<p align="left" style="font-weight: normal; line-height: 100%; margin-left: 12.375cm; margin-top: 2cm; background: transparent; page-break-before: auto; page-break-after: auto">
-	<font color="#000000"><font face="Cabin"><font size="2" style="font-size: 10pt">$(date -d @${date} +%d.%m.%Y)</font></font></font></p>
-	<p align="left" style="font-weight: normal; line-height: 100%; margin-top: .5cm; background: transparent; page-break-before: auto; page-break-after: auto">
-	<font color="#000000"><font face="Cabin"><font size="2" style="font-size: 11pt">Sehr
-	geehrte Damen und Herren,<br />Liebe Alle*,</font></font></font></p>
-	<p><br/>
-	<br/>
-	
-	</p>
-	<table width="100%" cellpadding="0" cellspacing="0">
-		<col width="23*"/>
-	
-		<col width="3*"/>
-	
-		<col width="154*"/>
-	
-		<col width="38*"/>
-	
-		<col width="38*"/>
-	
-		<thead>
-			<tr valign="top">
-				<th width="9%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">Anz.</font></font></p>
-				</th>
-				<th width="1%" style="border: none; padding: 0cm"><p align="right">
-					<br/>
-	
-					</p>
-				</th>
-				<th width="60%" style="border: none; padding: 0cm"><p align="left">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">Leistung</font></font></p>
-				</th>
-				<th width="15%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">Einzelpreis</font></font></p>
-				</th>
-				<th width="15%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">Summe</font></font></p>
-				</th>
-			</tr>
-		</thead>
-		<tbody>
-		$(sed 1d "invoices/$id" |while read -r time work hours pcs ppp; do
-        	  work="$(UNSTRING "${work#work=}" |HTML |sed -E '$!s;$;<br />;;')"
-		  pcs="$(UNSTRING "${pcs#pcs=}" \
-		         |grep -m1 -xE '[0-9]+' || printf 1)"
-		  ppp="$(UNSTRING "${ppp#ppp=}" \
-		         |grep -m1 -xEe '-?(\.[0-9]+|[0-9]+\.?[0-9]*)' || printf 0)"
-		  ppp="$(printf "%.2f" "$ppp")"
-		  total=$(awk "BEGIN { printf \"%.2f\", ${pcs} * ${ppp}; }")
-		  cat <<-ROW
-			<tr valign="top">
-				<td width="9%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">${pcs}</font></font></p>
-				</td>
-				<td width="1%" style="border: none; padding: 0cm"><p align="right">
-					<br/>
-	
-					</p>
-				</td>
-				<td width="60%" style="border: none; padding: 0cm"><p align="left">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">${work}</font></font></p>
-				</td>
-				<td width="15%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">${ppp}
-					€</font></font></p>
-				</td>
-				<td width="15%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">${total}
-					€</font></font></p>
-				</td>
-			</tr>
-			ROW
-		done)
-		$([ $taxtype != notax ] && cat <<-ROW
-			<tr valign="top">
-				<td width="9%" style="border: none; padding: 0cm"><p align="right">
-					<br/>
-	
-					</p>
-				</td>
-				<td width="1%" style="border: none; padding: 0cm"><p align="right">
-					<br/>
-	
-					</p>
-				</td>
-				<td width="60%" style="border: none; padding: 0cm"><p align="right" style="font-weight: normal">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">
-					$([ $taxtype = gross ] && printf "incl."; [ $taxtype = nett ] && printf "zzgl."; )
-					${vatrate}% MwSt.:</font></font></p>
-				</td>
-				<td width="15%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">
-					$([ $taxtype = gross ] && printf "$tax €";)
-					</font></font></p>
-				</td>
-				<td width="15%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt">
-					$([ $taxtype = nett ] && printf "$tax €";)
-					</font></font></p>
-				</td>
-			</tr>
-			ROW
-		)
-			<tr valign="top">
-				<td width="9%" style="border: none; padding: 0cm"><p align="right">
-					<br/>
-	
-					</p>
-				</td>
-				<td width="1%" style="border: none; padding: 0cm"><p align="right">
-					<br/>
-	
-					</p>
-				</td>
-				<td width="60%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt"><b>Gesamtsumme:</b></font></font></p>
-				</td>
-				<td width="15%" style="border: none; padding: 0cm"><p align="right">
-					<br/>
-	
-					</p>
-				</td>
-				<td width="15%" style="border: none; padding: 0cm"><p align="right">
-					<font face="Cabin"><font size="2" style="font-size: 11pt"><b>$gross
-					€</b></font></font></p>
-				</td>
-			</tr>
-		</tbody>
-	</table>
-	<p align="left" style="line-height: 100%; margin-right: 3.18cm; background: transparent">
-	<br/>
-	<br/>
-	
-	</p>
-	<p align="left" style="font-weight: normal; line-height: 100%; margin-right: 3.18cm; background: transparent">
-	<font color="#000000"><font face="Cabin"><font size="2" style="font-size: 11pt">Ich
-	bitte um Überweisung des Rechnungsbetrags bis zum $(date -d @${date_due} +%d.%m.%Y)</font></font></font></p>
-	<p style="line-height: 100%"><br/>
-	<br/>
-	
-	</p>
-	<p style="font-weight: normal; line-height: 100%"><font face="Cabin"><font size="2" style="font-size: 11pt">Vielen
-	Dank für den Auftrag, die gute Zusammenarbeit und freundliche Grüße,</font></font></p>
-	<p style="line-height: 100%"><br/>
-	<br/>
-	
-	</p>
-	<p style="font-weight: normal; line-height: 100%"><font face="Cabin"><font size="2" style="font-size: 11pt">Olaf
-	Schenckenberg</font></font></p>
-	<p style="line-height: 100%"><br/>
-	<br/>
-	
-	</p>
-	<p style="line-height: 100%"><br/>
-	<br/>
-	
-	</p>
-	$([ $taxtype = notax ] && cat <<-EOF
-	<p style="font-weight: normal; line-height: 100%"><a name="__DdeLink__15_3552620450"></a>
-	<font face="Cabin"><font size="2" style="font-size: 9pt"><i>${novatreason}</i></font></font></p>
-	EOF
-	)
-	</body>
-	</html>
-	EOF
-}
-
-genhtml(){
-  local id="$1"
-  mkdir -p "export/"
-
-  read -r sender client date number vat vatrate hourly status novatreason x<<-EOF
-	$(sed q "invoices/$id")
-	EOF
-  read -r sender iban bic x<"senders/${sender#sender=}"
-  read -r client chourly x<"clients/${client#client=}"
-
-  html_content "$id" \
-    "$(UNSTRING "${sender#address=}")" \
-    "$(UNSTRING "${client#address=}")" \
-    "${date#date=}" \
-    "$(UNSTRING "${number#number=}")" \
-    "${vat#vat=}" "${vatrate#vatrate=}" \
-    "${hourly#hourly=}" \
-    "$(UNSTRING "${novatreason#novatreason=}")" \
-  >"export/$id.html"
-}
-
-genpdf(){
-  local id="$1" tmp="tmp$(randomid)"
-  genhtml "$id"
-  lowriter --convert-to pdf --outdir "export/" "export/${id}.html" >/dev/null
-  pdftk "export/${id}.pdf" background $_DATA/Background.pdf output "export/${tmp}.pdf"
-  mv -- "export/${tmp}.pdf" "export/${id}.pdf"
-  rm -- "export/${id}.html"
-}
-
-- 
2.39.5