dynamic therapy section
[confetti] / pages / therapy.sh
1 #!/bin/zsh
2
3 # Copyright 2016 Paul Hänsch
4 #
5 # This file is part of Confetti.
6
7 # Confetti is free software: you can redistribute it and/or modify
8 # it under the terms of the GNU Affero General Public License as published by
9 # the Free Software Foundation, either version 3 of the License, or
10 # (at your option) any later version.
11
12 # Confetti is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 # GNU Affero General Public License for more details.
16
17 # You should have received a copy of the GNU Affero General Public License
18 # along with Confetti.  If not, see <http://www.gnu.org/licenses/>. 
19
20 declare -A tpy
21 declare -A mpx
22
23 BR='
24 '
25
26 id="$_GET[id]"
27
28 tpyfile="$_DATA/therapies/$id"
29 mpxfile="$_DATA/prescriptions/${id%.tpy}.mpx"
30 client="$_DATA/vcard/${id%%.*}.vcf"
31
32 card_N="$(sed -nr 's:^(N)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:gp' "$client")"
33 card_FN="$(sed -nr 's:^(FN)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:gp' "$client")"
34 card_NICK="$(sed -nr 's:^(NICKNAME)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:gp' "$client")"
35
36 n=$(printf %s "$card_N" \
37     | sed -rn 's:^([^;]*)(\;[^;]*)(\;[^;]*)?(\;[^;]*)?(\;[^;]*)?$:\4 \2 \3 \1 \5:gp' \
38     | sed -r 's:,: :;s:\;: :g;s: +: :g;s:^ $::;'
39    )
40 client_name="${n:-${card_FN:-${card_NICK}}}"
41
42 mpx=()
43 cat "$mpxfile" |while read -r line; do
44   val="${line#*:}"
45   mpx[${line%%:*}]="${val//\\n/$BR}"
46 done
47
48 tpy=()
49 cat "$tpyfile" |while read -r line; do
50   val="${line#*:}"
51   tpy[${line%%:*}]="${val//\\n/$BR}"
52 done