Merge commit 'c0dcd45c3ecac33376e06b7ca470ae56f2ed5e19' into cgilite
[confetti] / cards / new_card.sh
1 #!/bin/sh
2
3 # Copyright 2014, 2019 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 filter="$(REF f)"
21 order="$(REF o)"
22
23 uid="$(timeid)$(randomid)"  # 32 Octets UID, starting with timestamp
24 card="${uid}.vcf"
25
26 vcf_escape(){
27   for each in "$@"; do
28     printf %s\\n "$each" \
29     | sed -E ':X;$!{N;bX}; s;\r\n;\n;g; s;([;,\\]);\\\1;g; s;\n;\\n;g;'
30   done \
31   | sed -E ':X;$!{N;bX}; s;\n;\;;g'
32 }
33
34 IFS='|' read -r date fn ln bmonth byear tel tcell junk1 email junk2 note <<-EOF
35         $(POST seed |tr \\t \|)
36         EOF
37
38 [ ${#byear} = 1 ] && byear="200$byear"
39 [ ${#byear} = 2 ] && byear="20$byear"
40 [ ${#bmonth} = 1 ] && bmonth="0$bmonth"
41
42 mn=""
43 case $fn in
44   *\ *)
45     mn="${fn#* }"
46     fn="${fn%% *}"
47     ;;
48 esac
49
50 mkdir -p "${_DATA}/lock/vcard/"
51 lockdir="${_DATA}/lock/vcard/${card}/"
52 lockfile=${lockdir}/${SESSION_ID}
53
54 if mkdir "$lockdir"; then
55   cat >"$lockfile" <<-EOF
56         BEGIN:VCARD
57         VERSION:4.0
58         N:$(vcf_escape "$ln" "$fn" "$mn" "" "")
59         FN:$(vcf_escape "${fn}${mn:+ }${mn} ${ln}")
60         BDAY:$(parse_date "${byear}-${bmonth}-01")
61         TEL:$(vcf_escape "$tel")
62         TEL;TYPE=CELL:$(vcf_escape "$tcell")
63         EMAIL:$(vcf_escape "$email")
64         X-ZACK-JOINDATE:$(parse_date "$date")
65         ADR:
66         NOTE:$(vcf_escape "$note")
67         UID:${uid}
68         END:VCARD
69         EOF
70   REDIRECT "/cards/?o=${order}&f=${filter}&e=${card}"
71 else
72   SET_COOKIE session message="EDITLOCK"
73   REDIRECT "/cards/?o=${order}&f=${filter}"
74 fi