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 [form .card #${cardfile##*/} action="/cards/update_card.sh" method="POST"
17 [input type="hidden" name="tid" value="$(transid ${tempfile})"]
18 [div .section .basic $(
19 edit_item "$card" N GENDER
20 [ "$(pdi_count "$card" NICKNAME)" -gt 0 ] \
21 && edit_item "$card" NICKNAME
22 edit_item "$card" BDAY
23 card_item "$card" SOUND PHOTO LOGO
25 [div .section .phone $(
26 edit_item "$card" TEL EMAIL
27 [ $(pdi_count "$card" IMPP) -gt 0 ] \
28 && edit_item "$card" IMPP
29 [ $(pdi_count "$card" URL ) -gt 0 ] \
30 && edit_item "$card" URL
32 [div .section .address $(edit_item "$card" ADR)]
33 [div .section .insurance $(edit_item "$card" X-HEALTH-INSURANCE)]
34 [div .section .note $(edit_item "$card" NOTE X-CLIENT-REFERRAL)]
36 [select .item name="newfield"
37 [option value="" disabled="disabled" selected="selected" $(l10n edit_addfieldtext)]
38 $(for f in NICKNAME EMAIL TEL IMPP ADR URL NOTE; do
39 printf '[option value="%s" %s] ' "$f" "$(l10n "$f")"
41 ][button .item type="submit" name="action" value="addfield" $(l10n edit_addfield)]
42 [button .item type="submit" name="action" value="update" $(l10n edit_update)]
43 [input type="checkbox" #delete] [label .item for="delete" $(l10n edit_delete)]
44 [button .item type="submit" name="action" value="delete"]
45 [button .item type="submit" name="action" value="cancel" $(l10n edit_cancel)]
47 [input type="hidden" name="UID" value="$(pdi_value "$card" UID |HTML)"]
48 [input type="hidden" name="card" value="${cardfile##*/}"]
56 local card="$(pdi_load "$cardfile")"
58 [div .card #${cardfile##*/}
59 [div .section .basic $(
60 card_item "$card" FN GENDER NICKNAME BDAY X-ZACK-JOINDATE X-ZACK-LEAVEDATE SOUND PHOTO LOGO
62 [div .section .address $(card_item "$card" ADR)]
63 [div .section .phone $(card_item "$card" TEL EMAL IMPP URL)]
64 [div .section .insurance $(card_item "$card" X-HEALTH-INSURANCE)]
65 [div .section .note $(card_item "$card" NOTE X-CLIENT-REFERRAL)]
66 [div .section .therapies $(card_item "$card" therapies)]
68 [a .item href="/cards/edit_card.sh?card=${cardfile##*/}" $(l10n edit)]
69 [a .item href="/cards/export_card.sh?card=${cardfile##*/}" $(l10n vcf_export)]
76 local cardfile cachefile date size name ldate=0 lsize lname
78 while read cardfile; do
79 cachefile="${_DATA}/cache/${cardfile##*/}.cache"
80 # if [ -s "$cachefile" -a "$cachefile" -nt "$cardfile" \
81 # -a "$cachefile" -nt "${_EXEC}/cards" ]; then
82 if [ -s "$cachefile" -a "$cachefile" -nt "$cardfile" ]; then
85 print_card "$cardfile" |tee "$cachefile"
91 local filter f fex='x;p;'
93 filter="$(printf %s "${filter}" \
94 | sed -E 's;[]\/\(\)\\\$\?\.\+\*\;\[\{\}];\\\\&;g;
98 while [ "$filter" ]; do
99 f="${filter%%^*}" filter="${filter#*^}"
103 ANY:*) fex="/\n.*(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
105 NAME:*) fex="/\n(N|FN|NICKNAME)(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
107 STREET:*|ZIP:*) fex="/\nADR(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
109 *) fex="/\n${f%%:*}(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
114 for cardfile in "${_DATA}"/vcard/*.vcf; do
115 printf '%s\n' "$cardfile"
118 | sed -En ':X; /\nEND:VCARD\r?$/!{ N; bX; }; h; s;\n.*$;;; x; s;^[^\n]+\n;;;
125 while read cardfile; do
126 card="$(pdi_load "$cardfile")"
130 printf '%s %s\n' "$(pdi_value "$card" FN)" "$cardfile"
133 printf '%s %s\n' "$(pdi_value "$card" N || pdi_value "$card" FN)" "$cardfile"
136 printf '%s %s\n' "$(pdi_value "$card" BDAY || printf 0000-00-00)" "$cardfile"
141 | sed -E 's;^.*\t;;g'
147 | grep -xvF "$edit" \