+++ /dev/null
-#!/bin/zsh
-
-# Copyright 2016 Paul Hänsch
-#
-# This file is part of Confetti.
-#
-# Confetti is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# Confetti is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Affero General Public License for more details.
-#
-# You should have received a copy of the GNU Affero General Public License
-# along with Confetti. If not, see <http://www.gnu.org/licenses/>.
-
-BR='
-'
-tpy="${_POST[id]}"
-
-tpyfile="$_DATA/therapies/$tpy"
-tempfile="$_DATA/temp/$tpy"
-
-# serialize POST array into file
-for key in ${(k)_POST}; do
- printf %s:%s\\n "$key" "${_POST[$key]//$BR/\\n}"
-done >"$tempfile"
-
-if [ -n "$_POST[delete_session]" ]; then
- n="$_POST[delete_session]"
- sed -i -r '/^session'$n'[_:]/d' "$tempfile"
- rm "${tpyfile%.tpy}_session${n}.png"
-
- while grep -Eq '^session'$(($n + 1))'_' "$tempfile"; do
- sed -i -r 's;^session'$(($n + 1))'(_|:);session'$n'\1;' "$tempfile"
- mv "${tpyfile%.tpy}_session$(($n+1)).png" "${tpyfile%.tpy}_session${n}.png"
- n=$(($n+1))
- done
-
-elif [ -n "$_POST[new_session]" ]; then
- sid="$_POST[new_session]"
-
- identify "$_EXEC/templates/therapy_background.png" \
- | sed -r 's;^.* ([0-9]+x[0-9]+) .*$;\1;' \
- | read dim
-
- convert -size "$dim" xc:transparent "${tpyfile%.tpy}_${sid}.png"
-
- printf '%s:exists\n' "$sid" >>"$tempfile"
- printf '%s_open:checked\n' "$sid" >>"$tempfile"
-
-elif [ -n "$_POST[dotmark.x]" -a -n "$_POST[dotmark.y]" ]; then
- sed -rn 's;^(session[0-9]+)_open:checked$;\1;p' "$tempfile" \
- | sort -n \
- | tail -n1 \
- | read sid
-
- x="$_POST[dotmark.x]"
- y="$_POST[dotmark.y]"
-
- case "$_POST[color]" in
- c000) c="#000000";;
- c001) c="#000088";;
- c010) c="#008800";;
- c011) c="#008888";;
- c100) c="#880000";;
- c101) c="#880088";;
- c110) c="#888800";;
- c111) c="#888888";;
- esac
-
- convert "${tpyfile%.tpy}_${sid}.png" -fill "$c" -stroke "$c" -draw "circle $x,$y $(($x+5)),$y" "${tpyfile%.tpy}_${sid}.png"
-
-fi
-
-mv "$tempfile" "$tpyfile"
-
-redirect "?p=therapy&id=${tpy}"