# 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='
-'
+. "$_EXEC/pdiread.sh"
tpy=$(POST id)
tpyfile="$_DATA/therapies/${tpy}.tpy"
# serialize POST array into file
for key in $(POST_KEYS); do
case "$key" in
- imagedata) true ;;
+ imagedata) : ;;
session*_date)
- value="$(POST "$key" |sed ':X;N;$!bX; s;\n;\\n;g;')"
+ value="$(POST "$key")"
y=0 mon=0 dom=0
case $value in
*.*.*) IFS=. read dom mon y <<-END
date -d "${y}-${mon}-${dom}" + && printf %s:%s\\n "$key" "$(date -d "${y}-${mon}-${dom}" +%F)" \
|| printf %s:\\n "$key"
;;
- *) printf %s:%s\\n "$key" "$(POST "$key" |sed ':X;N;$!bX; s;\n;\\n;g;')" ;;
+ *) printf %s:%s\\n "$key" "$(pdi_escape "$(POST "$key")")" ;;
esac
-done >"$tempfile"
+done >"$tempfile" 2>&-
if [ "$(POST delete_session)" ]; then
n="$(POST delete_session)"
mv "$tempfile" "$tpyfile"
rm -f "${_DATA}/cache/${tpy%%.*}.vcf.cache"
-REDIRECT "/therapies/${tpy%.*}/${tpy#*.}"
+if [ "$(POST autosubmit)" = "true" ]; then
+ printf 'HTTP/1.1 200 OK\r\nContent-Length: 0\r\n\r\n'
+else
+ REDIRECT "/therapies/${tpy%.*}/${tpy#*.}"
+fi