3 . "${_EXEC}"/pdiread.sh
6 local cardfile="$_DATA/vcard/$1"
9 . $_EXEC/session_lock.sh
11 if ! tempfile="$(CHECK_SLOCK "$cardfile")"; then
12 printf '[div .message %s]' "$(l10n "This card is not set up for editing within this session.")"
14 card="$(pdi_load "$tempfile")"
16 [span .card-anchor #${cardfile##*/}]
17 [form .card action="/cards/update_card.sh" method="POST"
18 [input type="hidden" name="tid" value="$(transid ${tempfile})"]
19 [div .section .basic $(
20 edit_item "$card" N GENDER
21 [ "$(pdi_count "$card" NICKNAME)" -gt 0 ] \
22 && edit_item "$card" NICKNAME
23 edit_item "$card" BDAY
24 card_item "$card" SOUND PHOTO LOGO
26 [div .section .phone $(
27 edit_item "$card" TEL EMAIL
28 [ $(pdi_count "$card" IMPP) -gt 0 ] \
29 && edit_item "$card" IMPP
30 [ $(pdi_count "$card" URL ) -gt 0 ] \
31 && edit_item "$card" URL
33 [div .section .address $(edit_item "$card" ADR)]
34 [div .section .insurance $(edit_item "$card" X-HEALTH-INSURANCE)]
35 [div .section .note $(edit_item "$card" NOTE X-CLIENT-REFERRAL)]
37 [div .item .delete label="$(l10n edit_delete)"
38 [input type="checkbox" #delete]
39 [label for="delete" $(l10n edit_delete)]
40 [button type="submit" name="action" value="delete" $(l10n edit_delete)]
43 [select name="newfield"
44 [option value="" disabled="disabled" selected="selected" $(l10n edit_addfieldtext)]
45 $(for f in NICKNAME EMAIL TEL IMPP ADR URL NOTE; do
46 printf '[option value="%s" %s] ' "$f" "$(l10n "$f")"
48 ][button type="submit" name="action" value="addfield" $(l10n edit_addfield)]
50 [button .item type="submit" name="action" value="update" $(l10n edit_update)]
51 [button .item type="submit" name="action" value="cancel" $(l10n edit_cancel)]
53 [input type="hidden" name="UID" value="$(pdi_value "$card" UID |HTML)"]
54 [input type="hidden" name="card" value="${cardfile##*/}"]
62 local card="$(pdi_load "$cardfile")"
64 IFS=\; read N1 N2 N3 N4 N5 <<-EOF
65 $(pdi_value "$card" N |pdi_unescape |HTML)
69 [div .card #${cardfile##*/}
71 [h2 .item .FN . $N4 $N1 $N5]
72 [span .item .firstname . $N2 $N3]
74 card_item "$card" GENDER NICKNAME BDAY X-ZACK-JOINDATE X-ZACK-LEAVEDATE SOUND PHOTO LOGO
76 [div .section .address $(card_item "$card" ADR)]
77 [div .section .phone $(card_item "$card" TEL EMAL IMPP URL)]
78 [div .section .insurance $(card_item "$card" X-HEALTH-INSURANCE)]
79 [div .section .note $(card_item "$card" NOTE X-CLIENT-REFERRAL)]
80 [div .section .therapies $(card_item "$card" therapies)]
82 [a .item .button href="/cards/edit_card.sh?card=${cardfile##*/}" $(l10n edit)]
83 [a .item .button href="/cards/export_card.sh?card=${cardfile##*/}" $(l10n vcf_export)]
90 local cardfile cachefile date size name ldate=0 lsize lname
92 while read cardfile; do
93 cachefile="${_DATA}/cache/${cardfile##*/}.cache"
94 if [ -s "$cachefile" -a "$cachefile" -nt "$cardfile" ]; then
97 print_card "$cardfile" |tee "$cachefile"
103 local filter f fex='x;p;'
105 filter="$(printf %s "${filter}" \
106 | sed -E 's;[]\/\(\)\\\$\?\.\+\*\;\[\{\}];\\&;g;
110 while [ "$filter" ]; do
111 f="${filter%%^*}" filter="${filter#*^}"
116 ANY:*) fex="/\n.*(\;[^:]*)?:[^\n]*(${f#*:})[^\n]*\r?\n/{${fex}}"
118 NAME:*) fex="/\n(N|FN|NICKNAME)(\;[^:]*)?:[^\n]*(${f#*:})[^\n]*\r?\n/{${fex}}"
120 STREET:*|ZIP:*) fex="/\nADR(\;[^:]*)?:[^\n]*(${f#*:})[^\n]*\r?\n/{${fex}}"
122 *) fex="/\n${f%%:*}(\;[^:]*)?:[^\n]*(${f#*:})[^\n]*\r?\n/{${fex}}"
127 for cardfile in "${_DATA}"/vcard/*.vcf; do
128 printf '%s\n' "$cardfile" "$(grep -vxE " *${CR}?" "$cardfile")"
130 | sed -En ':X; /\nEND;?:VCARD\r?$/!{ N; bX; }; h; s;\n.*$;;; x; s;^[^\n]+\n;;;
137 while read cardfile; do
138 card="$(pdi_load "$cardfile")"
142 printf '%s %s\n' "$(pdi_value "$card" FN)" "$cardfile"
145 printf '%s %s\n' "$(pdi_value "$card" N || pdi_value "$card" FN)" "$cardfile"
148 printf '%s %s\n' "$(pdi_value "$card" BDAY || printf 0000-00-00)" "$cardfile"
153 | sed -E 's;^.*\t;;g'
159 | grep -xvF "$edit" \