3 # Copyright 2016, 2020 Paul Hänsch
5 # This file is part of Confetti.
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.
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.
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/>.
23 tpyfile="$_DATA/therapies/${tpy}.tpy"
24 tempfile="$_DATA/temp/${tpy}.$$.tpy"
26 if [ "$(POST tid)" != "$(transid "$tpyfile")" ]; then
27 if [ "$(POST autosubmit)" = "true" ]; then
28 printf 'Status: 409 Conflict\r\nContent-Length: 0\r\n\r\n'
31 SET_COOKIE session message="TRANSACTION_CONFLICT"
32 REDIRECT "/therapies/${tpy%.*}/${tpy#*.}"
36 if [ "$(POST formend)" != "formend" ]; then
37 if [ "$(POST autosubmit)" = "true" ]; then
38 printf 'Status: 409 Conflict\r\nContent-Length: 0\r\n\r\n'
41 SET_COOKIE session message="INCOMPLETE_SUBMIT"
42 REDIRECT "/therapies/${tpy%.*}/${tpy#*.}"
46 # serialize POST array into file
47 for key in $(POST_KEYS); do
49 imagedata|tid|formend) : ;;
51 value="$(POST "$key")"
54 *.*.*) IFS=. read dom mon y <<-END
58 *.*.) IFS=. read dom mon <<-END
62 */*/*) IFS=/ read mon dom y <<-END
66 */*) IFS=/ read mon dom <<-END
70 *-*-*) IFS=- read y mon dom <<-END
75 [ ! "$y" ] && y="$(date +%Y)"
76 [ "$y" -gt 0 -a "$y" -lt 100 ] && y="$((y + 2000))"
77 date -d "${y}-${mon}-${dom}" + && printf %s:%s\\n "$key" "$(date -d "${y}-${mon}-${dom}" +%F)" \
78 || printf %s:\\n "$key"
80 *) printf %s:%s\\n "$key" "$(pdi_escape "$(POST "$key")")" ;;
82 done >"$tempfile" 2>&-
84 if [ "$(POST delete_session)" ]; then
85 n="$(POST delete_session)"
86 sed -Ei '/^session'$n'[_:]/d' "$tempfile"
87 rm "${tpyfile%.tpy}_session${n}.png"
89 while grep -Eq '^session'$(($n + 1))'_' "$tempfile"; do
90 sed -Ei 's;^session'$(($n + 1))'(_|:);session'$n'\1;' "$tempfile"
91 mv "${tpyfile%.tpy}_session$(($n+1)).png" "${tpyfile%.tpy}_session${n}.png"
95 elif [ "$(POST new_session)" ]; then
96 sid="$(POST new_session)"
98 read junkx junky dim junkz <<-E_READ
99 $(identify "$_EXEC/therapies/therapy_background.png")
102 convert -size "$dim" xc:transparent "${tpyfile%.tpy}_${sid}.png"
104 printf '%s:exists\n' "$sid" >>"$tempfile"
105 printf '%s_open:checked\n' "$sid" >>"$tempfile"
107 elif [ "$(POST imagedata)" ]; then
108 sid="$(sed -En 's;^(session[0-9]+)_open:checked$;\1;p' "$tempfile" \
113 convert "${tpyfile%.tpy}_${sid}.png" \
114 -draw "$(POST imagedata)" -transparent white \
115 "${tpyfile%.tpy}_${sid}.png"
119 if ! diff -q "$tempfile" "$tpyfile" >/dev/null; then
120 mv "$tempfile" "$tpyfile"
121 rm -f -- "${_DATA}/cache/${tpy%%.*}.vcf.cache"
124 if [ "$(POST autosubmit)" = "true" ]; then
125 msg="$(transid "$tpyfile")"
126 printf 'HTTP/1.1 200 OK\r\nContent-Length: %i\r\n\r\n%s' \
128 elif [ "$(POST vcfreturn)" ]; then
129 REDIRECT "/cards/#${tpy%.*}.vcf"
131 REDIRECT "/therapies/${tpy%.*}/${tpy#*.}"