]> git.plutz.net Git - confetti/blob - actions/update_card.sh
data retriever for therapy section, some prescription improvements
[confetti] / actions / update_card.sh
1 #!/bin/zsh
2
3 # Copyright 2014, 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 cgi_post
21 cgi_refdata
22
23 filter="&filter=${_REF[filter]}"
24 filtertype="&filtertype=${_REF[filtertype]}"
25 order="&order=${_REF[order]}"
26
27 card="${_POST[card]}"
28 tempfile="$_DATA/temp/$card"
29 cardfile="$_DATA/vcard/$card"
30 attfile="$_DATA/mappings/attendance"
31
32 _POST[0N]="${_POST[0N]//;/,}"
33 _POST[1N]="${_POST[1N]//;/,}"
34 _POST[2N]="${_POST[2N]//;/,}"
35 _POST[3N]="${_POST[3N]//;/,}"
36 _POST[4N]="${_POST[4N]//;/,}"
37
38 [ "$_POST[hi_select]" = "list" ] && hi_company="${_POST[hi_company]}" || hi_company="${_POST[hi_other]}"
39 [ -n "${_POST[hi_company]}${_POST[hi_number]}${_POST[hi_status]}" ] \
40 && _POST[X-HEALTH-INSURANCE]="${hi_company//;/,};${_POST[hi_number]//;/,};${_POST[hi_status]//;/,}"
41
42 sed -r 's;$;\r;' >"$tempfile" <<EOF
43 BEGIN:VCARD
44 VERSION:4.0
45 N:${_POST[0N]};${_POST[1N]};${_POST[2N]};${_POST[3N]};${_POST[4N]}
46 UID:${_POST[UID]}
47 $(
48 for field in $VCF_FIELDS; do
49   for key in $field $field{0..100}; do
50     [ -z "$_POST[$key]" ] && break
51     value="$(printf %s "$_POST[$key]" |sed -r ':a;N;$!ba;s:\n:\\n:g;s:\r:\\r:g')"
52     printf '%s:%s\n' "${field}" "$value"
53   done
54 done
55 [ "${_POST[action]}" = addfield ] && printf '%s:\n' "${_POST[newfield]}"
56 )
57 END:VCARD
58 EOF
59
60 case "${_POST[action]}" in
61   addfield)
62     redirect "?p=cards${filter}${filtertype}${order}&edit=$card"
63     ;;
64   update)
65     attendance=()
66     for att in attendance attendance{0..100}; do
67       [ -n "${_POST[$att]}" ] && attendance+=("${_POST[$att]}")
68     done
69     sed -rn 's:^(.+)'$card'$:\1:p' "$attfile" |while read course; do
70       touch "$_DATA/ical/$course"
71     done
72     sed -i -r '/^(.+)\t'$card'$/d' "$attfile"
73     for each in $attendance; do
74       echo "$each\t$card"
75     done >>"$attfile"
76     sed -rn 's:^(.+)'$card'$:\1:p' "$attfile" |while read course; do
77       touch "$_DATA/ical/$course"
78     done
79
80     mv "$tempfile" "$cardfile"
81     redirect "?p=cards${filter}${filtertype}${order}#$card"
82     ;;
83   cancel)
84     rm "$tempfile"
85     [ -f "$cardfile" ] \
86     && redirect "?p=cards${filter}${filtertype}${order}#$card" \
87     || redirect "?p=cards${filter}${filtertype}${order}"
88     ;;
89   delete)
90     rm "$tempfile" "$cardfile"
91     redirect "?p=cards${filter}${filtertype}${order}"
92     ;;
93 esac