git.plutz.net Git - confetti/blob - 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