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 edit_item "$card" X-ZACK-JOINDATE
24 [ "$(pdi_count "$card" X-ZACK-LEAVEDATE)" -gt 0 ] \
25 && edit_item "$card" X-ZACK-LEAVEDATE
26 card_item "$card" SOUND PHOTO LOGO
28 [div .section .phone $(edit_item "$card" TEL)]
29 [div .section .message $(
30 edit_item "$card" EMAIL
31 [ $(pdi_count "$card" IMPP) -gt 0 ] && edit_item "$card" IMPP
32 [ $(pdi_count "$card" URL ) -gt 0 ] && edit_item "$card" URL
34 [div .section .address $(edit_item "$card" ADR)]
35 [div .section .note $(edit_item "$card" NOTE)]
36 [div .section .attendance
37 [h3 $(l10n course_attendance) ] $(
38 for course in "$_DATA"/ical/*.ics; do
39 printf '[label [input type="checkbox" name="attendance" value="%s" %s] %s]' \
41 "$(grep -qF "${course##*/} ${cardfile##*/}" "$_DATA/mappings/attendance" \
42 && printf 'checked="checked"'
44 "$(pdi_value "$(pdi_load "$course")" SUMMARY || l10n "(unnamed course)" |unescape |HTML)"
46 [h3 $(l10n CATEGORIES) ] $(
47 grep -xE '[^ ]+' "$_DATA"/mappings/categories |while read -r cat; do
48 printf '[label [input type="checkbox" name="attendance" value="%s" %s] %s]' \
50 "$(seq 1 $(pdi_count "$card" CATEGORIES) |while read c; do
51 pdi_value "$card" CATEGORIES $c |grep -qxF "$cat" \
52 && printf 'checked="checked"' && break
58 [select .item name="newfield"
59 [option value="" disabled="disabled" selected="selected" $(l10n edit_addfieldtext)]
60 $(for f in NICKNAME EMAIL TEL IMPP ADR URL NOTE; do
61 printf '[option value="%s" %s] ' "$f" "$(l10n "$f")"
63 ][button .item type="submit" name="action" value="addfield" $(l10n edit_addfield)]
64 [button .item type="submit" name="action" value="update" $(l10n edit_update)]
65 [input type="checkbox" #delete] [label .item for="delete" $(l10n edit_delete)]
66 [button .item type="submit" name="action" value="delete"]
67 [button .item type="submit" name="action" value="cancel" $(l10n edit_cancel)]
69 [input type="hidden" name="UID" value="$(pdi_value "$card" UID |HTML)"]
70 [input type="hidden" name="card" value="${cardfile##*/}"]
78 local card="$(pdi_load "$cardfile")"
80 [div .card #${cardfile##*/}
81 [div .section .basic . $(
82 card_item "$card" FN GENDER NICKNAME BDAY X-ZACK-JOINDATE X-ZACK-LEAVEDATE SOUND PHOTO LOGO
84 [div .section .phone . $(card_item "$card" TEL)]
85 [div .section .message . $(card_item "$card" EMAIL IMPP URL)]
86 [div .section .address . $(card_item "$card" ADR)]
87 [div .section .note . $(card_item "$card" NOTE)]
88 [div .section .attendance [h3 $(l10n course_attendance) ] [ul
89 $(grep -F " ${cardfile##*/}" "$_DATA/mappings/attendance" |while read each discard; do
90 printf '[li [a .item .attendance href="/courses#%s" . %s]]' \
92 "$(pdi_value "$(pdi_load "$_DATA/ical/$each")" SUMMARY || l10n "(unnamed course)" |unescape |HTML)"
94 $(card_item "$card" CATEGORIES)
97 [a .item href="/cards/edit_card.sh?card=${cardfile##*/}" $(l10n edit)]
98 [a .item href="/cards/export_card.sh?card=${cardfile##*/}" $(l10n vcf_export)]
105 local cardfile cachefile date size name ldate=0 lsize lname
107 while read cardfile; do
108 cachefile="${_DATA}/cache/${cardfile##*/}.cache"
109 # if [ -s "$cachefile" -a "$cachefile" -nt "$cardfile" \
110 # -a "$cachefile" -nt "${_EXEC}/cards" ]; then
111 if [ -s "$cachefile" -a "$cachefile" -nt "$cardfile" ]; then
114 print_card "$cardfile" |tee "$cachefile"
120 local filter f fex='x;p;'
122 filter="$(printf %s "${filter}" \
123 | sed -E 's;[]\/\(\)\\\$\?\.\+\*\;\[\{\}];\\\\&;g;
127 while [ "$filter" ]; do
128 f="${filter%%^*}" filter="${filter#*^}"
132 ANY:*) fex="/\n.*(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
134 NAME:*) fex="/\n(N|FN|NICKNAME)(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
136 STREET:*|ZIP:*) fex="/\nADR(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
138 *) fex="/\n${f%%:*}(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
143 for cardfile in "${_DATA}"/vcard/*.vcf; do
144 printf '%s\n' "$cardfile"
147 | sed -En ':X; /\nEND:VCARD\r?$/!{ N; bX; }; h; s;\n.*$;;; x; s;^[^\n]+\n;;;
154 while read cardfile; do
155 card="$(pdi_load "$cardfile")"
159 printf '%s %s\n' "$(pdi_value "$card" FN)" "$cardfile"
162 printf '%s %s\n' "$(pdi_value "$card" N || pdi_value "$card" FN)" "$cardfile"
165 printf '%s %s\n' "$(pdi_value "$card" BDAY || printf 0000-00-00)" "$cardfile"
170 | sed -E 's;^.*\t;;g'
176 | grep -xvF "$edit" \