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="${_BASE}/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 $(
36 [ $(pdi_count "$card" X-IBAN) -gt 0 ] && edit_item "$card" X-IBAN
38 [div .section .note $(edit_item "$card" NOTE)]
39 [div .section .attendance
40 [h3 $(l10n course_attendance) ] [div .attendance $(
41 list_courses |while IFS=/ read course coursename; do
42 courseH="$(HTML "$course")"
43 printf '[input type="checkbox" id="cour%s" name="attendance" value="%s" %s][label for="cour%s" . %s]' \
44 "$courseH" "$courseH" \
45 "$(grep -qF "${course} ${cardfile##*/}" "$_DATA/mappings/attendance" \
46 && printf 'checked="checked"'
48 "$courseH" "$coursename"
50 [h3 $(l10n CATEGORIES) ] [div .categories $(
51 grep -xE '[^ ]+' "$_DATA"/mappings/categories |while read -r cat; do
53 printf '[input type="checkbox" id="cat%s" name="CATEGORIES" value="%s" %s][label for="cat%s" . %s]' \
55 "$(seq 1 $(pdi_count "$card" CATEGORIES) |while read c; do
56 pdi_value "$card" CATEGORIES $c |grep -qxF "$cat" \
57 && printf 'checked="checked"' && break
63 [div .item .delete label="$(l10n edit_delete)"
64 [input type="checkbox" #delete]
65 [label for="delete" $(l10n edit_delete)]
66 [button type="submit" name="action" value="delete" $(l10n edit_delete)]
69 [select name="newfield"
70 [option value="" disabled="disabled" selected="selected" $(l10n edit_addfieldtext)]
71 $(for f in NICKNAME EMAIL TEL IMPP ADR URL NOTE X-ZACK-LEAVEDATE X-IBAN; do
72 printf '[option value="%s" %s] ' "$f" "$(l10n "$f")"
74 ][button type="submit" name="action" value="addfield" $(l10n edit_addfield)]
76 [button .item type="submit" name="action" value="update" $(l10n edit_update)]
77 [button .item type="submit" name="action" value="cancel" $(l10n edit_cancel)]
79 [input type="hidden" name="UID" value="$(pdi_value "$card" UID |HTML)"]
80 [input type="hidden" name="card" value="${cardfile##*/}"]
88 local card="$(pdi_load "$cardfile")"
90 [div .card #${cardfile##*/}
91 [div .section .basic . $(
92 card_item "$card" FN GENDER NICKNAME BDAY X-ZACK-JOINDATE X-ZACK-LEAVEDATE SOUND PHOTO LOGO
94 [div .section .phone . $(card_item "$card" TEL)]
95 [div .section .message . $(card_item "$card" EMAIL IMPP URL)]
96 [div .section .address . $(card_item "$card" ADR X-IBAN)]
97 [div .section .note . $(card_item "$card" NOTE)]
98 [div .section .attendance [h3 $(l10n course_attendance) ] [ul
99 $(grep -F " ${cardfile##*/}" "$_DATA/mappings/attendance" |while read each discard; do
100 printf '[li [a .item .attendance href="%s/courses#%s" . %s]]' \
102 "$(pdi_value "$(pdi_load "$_DATA/ical/$each")" SUMMARY || l10n "(unnamed course)" |unescape |HTML)"
104 $(card_item "$card" CATEGORIES)
107 [a .button .item href="${_BASE}/ledgers/account.sh?card=${cardfile##*/}" $(l10n ledger)]
108 [a .button .item href="${_BASE}/cards/edit_card.sh?card=${cardfile##*/}" $(l10n edit)]
109 [a .button .item href="${_BASE}/cards/export_card.sh?card=${cardfile##*/}" $(l10n vcf_export)]
116 local cardfile cachefile date size name ldate=0 lsize lname
118 while read cardfile; do
119 cachefile="${_DATA}/cache/${cardfile##*/}.cache"
120 if [ -s "$cachefile" -a "$cachefile" -nt "$cardfile" ]; then
122 elif [ -s "$cardfile" ]; then
123 print_card "$cardfile" |tee "$cachefile"
130 attfile="$_DATA/mappings/attendance"
132 if [ ! "$fatt" ]; then
134 printf '%s\n' "$_DATA/vcard"/*.vcf
135 elif [ "${fatt#* }" = "${fatt}" ]; then
137 grep -xiE "(${fatt}) .+vcf" "$attfile" \
139 printf '%s/vcard/%s\n' "$_DATA" "${vcf##* }"
142 # debug "filter ${fatt%% *}"
143 filter_attendance "${fatt#* }" \
145 grep -xiE "(${fatt%% *}) ${vcf##*/}" "$attfile"
148 printf '%s/vcard/%s\n' "$_DATA" "${vcf##* }"
154 local filter f fex='x;p;'
155 local upcase=' y;abcdefghijklmnopqrstuvwxyzäöüé;ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜÉ;; '
157 filter="$(printf %s "${filter}" \
158 | sed -E 's;[]\/\(\)\\\$\?\.\+\*\;\[\{\}];\\&;g;
162 while [ "$filter" ]; do
163 f="${filter%%^*}" filter="${filter#*^}"
167 COURSE:*) fatt="${fatt}${fatt:+ }${f#*:}"
169 ANY:*) fex="/\n.*(\;[^:]*)?:[^\n]*(${f#*:})[^\n]*\r?\n/{${fex}}"
171 NAME:*) fex="/\n(N|FN|NICKNAME)(\;[^:]*)?:[^\n]*(${f#*:})[^\n]*\r?\n/{${fex}}"
173 STREET:*|ZIP:*) fex="/\nADR(\;[^:]*)?:[^\n]*(${f#*:})[^\n]*\r?\n/{${fex}}"
175 *) fex="/\n${f%%:*}(\;[^:]*)?:[^\n]*(${f#*:})[^\n]*\r?\n/{${fex}}"
180 # for cardfile in "${_DATA}"/vcard/*.vcf; do
181 filter_attendance "$fatt" |while read cardfile; do
182 printf '%s\n' "$cardfile"
185 | sed -nE ':X; /\nEND\;?:VCARD\r?$/!{ N; bX; }; h; s;\n.*$;;; x; s;^[^\n]+\n;;;
192 while read cardfile; do
193 card="$(pdi_load "$cardfile")"
197 printf '%s %s\n' "$(pdi_value "$card" FN)" "$cardfile"
200 printf '%s %s\n' "$(pdi_value "$card" N || pdi_value "$card" FN)" "$cardfile"
203 printf '%s %s\n' "$(pdi_value "$card" BDAY || printf 0000-00-00)" "$cardfile"
208 | sed -E 's;^.*\t;;g'
214 | grep -xvF "$edit" \