X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=prescriptions%2Fnew_prescription.sh;fp=prescriptions%2Fnew_prescription.sh;h=26173afc38e2ec889790ddad103d2668963e07e5;hb=43e7c60df0632fd383306a2d3c6dc8c4213d4b9d;hp=0000000000000000000000000000000000000000;hpb=d40eb749c3b9766eb85d843e712f1b86543232d2;p=confetti

diff --git a/prescriptions/new_prescription.sh b/prescriptions/new_prescription.sh
new file mode 100755
index 0000000..26173af
--- /dev/null
+++ b/prescriptions/new_prescription.sh
@@ -0,0 +1,38 @@
+#!/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/>. 
+
+cgi_refdata
+
+client="${_POST[client]:-${_GET[client]}}"
+
+uid=$(uuidgenerator)
+prescription="${client%.vcf}.${uid}.mpx"
+
+cardfile="$_DATA/vcard/$client"
+tempfile="$_DATA/temp/$prescription"
+
+cat >"$tempfile" <<EOF
+prescription:${prescription}
+insurance:$(sed -nr 's;^X-HEALTH-INSURANCE:(.*)\;.*\;\r?$;\1;p' "$cardfile")
+bday:$(sed -nr 's;^BDAY:(.*)\r?$;\1;p' "$cardfile")
+name:$(sed -rn '/^N[\;:]/{s;^N(\;[^:]*)?:([^\;]*)(\;[^\;]*)(\;[^\;]*)?(\;[^\;]*)?(\;[^\;]*)?\r?$;\5 \3 \4 \2 \6;;s;[\;,]; ;g;s; +; ;g;s;^ | $;;g;p}' "$cardfile")\n$(sed -nr 's;^ADR:(.*)\r?$;\1;p' "$cardfile")
+date:
+EOF
+
+echo -n "Location: ?p=prescriptions&edit=$prescription\n\n"