improved style, beautified URL display
[confetti] / pages / attendees.sh
1 #!/bin/sh
2
3 listcards() {
4   case "$_GET[\"filtertype\"]" in
5     any)
6        grep -il "$_GET[\"filter\"]" ${_DATA}/vcard/*vcf
7       ;;
8     name)
9        egrep -xil "(FN|NICKNAME|N)(;.+)*:.*$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf
10       ;;
11     street)
12        egrep -xil "(ADR)(;.+)*:([^;]*;){2}$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf
13       ;;
14     zip)
15        egrep -xil "(ADR)(;.+)*:([^;]*;){5}$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf
16       ;;
17     telephone)
18        egrep -xil "(TEL)(;.+)*:.*$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf
19       ;;
20     birth)
21        egrep -xil "(BDAY)(;.+)*:$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf
22       ;;
23     course)
24       ;;
25     *) ls -1 ${_DATA}/vcard/*vcf
26       ;;
27   esac |case "$_GET[\"order\"]" in
28     firstname)
29       while read file; do
30         fn=$(sed -rn 's:^N(;.+)*\:([^;]*;){1} *([^;]*).*$:\3:p' "$file")
31         echo "$fn\t$file"
32       done
33       ;;
34     lastname)
35       while read file; do
36         ln=$(sed -rn 's:^N(;.+)*\:([^;]*;){0} *([^;]*).*$:\3:p' "$file")
37         echo "$ln\t$file"
38       done
39       ;;
40     bdate)
41       while read file; do
42         bd=$(sed -rn 's:^BDAY(;.+)*\:(.*)$:\2:p' "$file")
43         echo "$bd\t$file"
44       done
45       ;;
46     *)
47       sed -r 's:^.*$:x\t&:'
48       ;;
49   esac |sort |sed -r 's:^.*\t(.*/)([^/]+)$:\2:'
50 }
51
52 vcf_parse() {
53   tr -d '\n' <"$1" |sed -r 's:\r ::g;s:\r:\n:g' \
54   | sed -rn '
55     s:^PHOTO:001 PHOTO:p;
56     s:^X-MS-CARDPICTURE:001 PHOTO:p;
57     s:^LOGO:002 LOGO:p;
58     s:^FN:003 FN:p;
59     s:^N[\:;]:004 &:p
60     s:^NICKNAME:005 NICKNAME:p;
61     s:^SOUND:006 SOUND:p;
62     s:^GENDER:007 GENDER:p;
63     s:^X-GENDER:007 GENDER:p;
64     s:^KIND:008 KIND:p;
65     s:^TITLE:009 TITLE:p;
66     s:^ROLE:010 ROLE:p;
67     s:^ORG:011 ORG:p;
68     s:^MEMBER:012 MEMBER:p;
69     s:^CATEGORIES:013 CATEGORIES:p;
70     s:^ANNIVERSARY:014 ANNIVERSARY:p;
71     s:^X-ANNIVERSARY:014 ANNIVERSARY:p;
72     s:^X-EVOLUTION-ANNIVERSARY:014 ANNIVERSARY:p;
73     s:^X-KADDRESSBOOK-X-Anniversary:014 ANNIVERSARY:p;
74     s:^BDAY:015 BDAY:p;
75     s:^EMAIL:016 EMAIL:p;
76     s:^TEL:017 TEL:p;
77     s:^IMPP:018 IMPP:p;
78     s:^X-AIM(;[^"\:]+|;"[^"]+")*\:(.*)$:018 IMPP\1\:aim\:\2:p;
79     s:^X-ICQ(;[^"\:]+|;"[^"]+")*\:(.*)$:018 IMPP\1\:aim\:\2:p;
80     s:^X-GOOGLE-TALK(;[^"\:]+|;"[^"]+")*\:(.*)$:018 IMPP\1\:xmpp\:\2:p;
81     s:^X-JABBER(;[^"\:]+|;"[^"]+")*\:(.*)$:018 IMPP\1\:xmpp\:\2:p;
82     s:^X-MSN(;[^"\:]+|;"[^"]+")*\:(.*)$:018 IMPP\1\:msn\:\2:p;
83     s:^X-YAHOO(;[^"\:]+|;"[^"]+")*\:(.*)$:018 IMPP\1\:ymsgr\:\2:p;
84     s:^X-SIP(;[^"\:]+|;"[^"]+")*\:(sip\:)?(.*)$:018 IMPP\1\:sip\:\3:p;
85     s:^ADR:019 ADR:p;
86     s:^LABEL(;[^"\:]+|;"[^"]+")*\:(.*)$:019 ADR;LABEL="\2"\1\::p;
87     s:^URL:021 URL:p;
88     s:^X-EVOLUTION-BLOG-URL:021 URL:p;
89     s:^LANG:022 LANG:p;
90     s:^NOTE:023 NOTE:p;
91     s:^UID:026 UID:p;
92
93     s:^RELATED:025 RELATED:p;
94     s:^AGENT:025 RELATED\;TYPE=agent:p;
95     s:^X-ASSISTANT:025 RELATED\;TYPE=assistant;VALUE=text:p;
96     s:^X-EVOLUTION-ASSISTANT:025 RELATED\;TYPE=assistant;VALUE=text:p;
97     s:^X-KADDRESSBOOK-X-AssistantsName:025 RELATED\;TYPE=assistant;VALUE=text:p;
98     s:^X-MANAGER:025 RELATED\;TYPE=manager;VALUE=text:p;
99     s:^X-EVOLUTION-MANAGER:025 RELATED\;TYPE=manager;VALUE=text:p;
100     s:^X-KADDRESSBOOK-X-ManagersName:025 RELATED\;TYPE=manager;VALUE=text:p;
101     s:^X-SPOUSE:025 RELATED\;TYPE=spouse;VALUE=text:p;
102     s:^X-EVOLUTION-SPOUSE:025 RELATED\;TYPE=spouse;VALUE=text:p;
103     s:^X-KADDRESSBOOK-X-SpouseName:025 RELATED\;TYPE=spouse;VALUE=text:p;
104
105     s:^BEGIN.*$:000 &:p;
106     s:^CALADRURI.*$::;
107     s:^CALURI.*$::;
108     s:^CLASS.*$::;
109     s:^CLIENTPIDMAP.*$::;
110     s:^END.*$:100 &:p;
111     s:^FBURL.*$::;
112     s:^GEO.*$::;
113     s:^MAILER.*$::;
114     s:^NAME.*$::;
115     s:^PRODID.*$::;
116     s:^PROFILE.*$::;
117     s:^REV.*$::;
118     s:^SORT-STRING.*$::;
119     s:^SOURCE.*$::;
120     s:^TZ.*$::;
121     s:^VERSION.*$:000 VERSION\:4.0:p;
122     s:^XML.*$::;
123
124     s:^([A-Z].*)$:024 \1:p;
125     ' \
126   |sort |while read -r line; do
127     case "$line" in
128       00[012]*)
129         echo -E "$line"
130         ;;
131       003*)
132         fn=$(echo -E "$line" |sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:g' |tr -d '\r')
133         ;;
134       004*)
135         n=$(echo -E "$line" \
136           |sed -rn 's:^([0-9]{3} )([^;\:]+)(;[^"\:]+|;"[^"]+")*\:([^;]*)(\;[^;]*)(\;[^;]*)?(\;[^;]*)?(\;[^;]*)?$:\7 \5 \6 \4 \8:gp' \
137           |sed -r 's:,: :;s:\;: :g;s: +: :g' \
138           |tr -d '\r'
139         )
140         echo -E "$line"
141         ;;
142       005*)
143         nick=$(echo -E "$line" |sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:g' |tr -d '\r')
144         echo -E "$line"
145         ;;
146       *)
147         [ -n "$n" ] && fn="$n"
148         #[ -n "$fn" -a -n "$nick" ] && fn="$fn aka. $nick"
149         [ -n "$fn" ] && echo -E "003 FN:$fn" \
150                       || echo -E "003 FN:$nick"
151         echo -E "$line"
152         cat
153         ;;
154     esac
155   done |tr -d '\r' \
156   | sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:key="\1"\nvalue="\3"\ntag=\2:g' \
157   | while read -r line; do
158     case "$line" in
159       key=*) echo -E "$line"
160         ;;
161       value=*) echo -E "$line"
162         ;;
163       tag=*) ot=''
164              echo -E "$line" \
165              | sed -r 's:^tag=::;s:\;([A-Z+_-]+="[^"]+"|[A-Z+_-]+=[^\;]+):\n\1:g;' \
166              | sed -r 's:([A-Z+_-]+)="?(.*)"?:tag\[\1\]="\2":g' \
167              | sed -r '/^ *$/d' \
168              | sort |while read -r tag; do
169                nt="$(echo -E "$tag" |sed -r 's:^tag\[([A-Z+_-]+)\]="(.*)"$:\1:')"
170                nv="$(echo -E "$tag" |sed -r 's:^tag\[([A-Z+_-]+)\]="(.*)"$:\2:')"
171                [ "$nt" = "$ot" ] && vl="$nv,$vl" || vl="$nv"
172                echo -E "tag[$nt]=\"$vl\""
173                ot="$nt"
174              done
175         ;;
176     esac
177   done
178 }
179
180 view_attendee() {  #Parameter: Cardfile
181   id="$1"
182   cardfile="$_DATA/vcard/${id}"
183   cachefile="$_DATA/cache/${id}.cache"
184   unset key
185   if [ "$cachefile" -nt "$cardfile" ]; then
186     cat "$cachefile"
187   else
188     declare -A tags
189     declare -A values
190     vcf_parse "$cardfile" |while read -r line; do
191       declare -A tag
192       case "$line" in
193         value*) eval "$line";;
194         tag*)   eval "$line";;
195         key*)
196           if [ -z "$key" ]; then
197             eval "$line"
198           else
199             values[$key]="$value"
200             for t in ${(k)tag}; do
201               tags[${key}_$t]="$tag[$t]"
202             done
203             eval "$line"
204             if [ -n "$values[$key]" ]; then
205               n=0
206               while [ -n "$values[$key$n]" ]; do n=$(($n + 1)); done
207               key=$key$n
208             fi
209             unset value
210             unset tag
211           fi
212         ;;
213       esac
214     done
215     . ${_EXEC}/templates/view_attendee.sh |tee "$cachefile"
216   fi
217 }
218
219 edit_attendee() {  #Parameter: Cardfile
220   id="$1"
221   cardfile="$_DATA/vcard/$id"
222   tempfile="$_DATA/temp/$id"
223   [ -f "$tempfile" ] && cardfile="$tempfile"
224   unset key
225
226   declare -A tags
227   declare -A values
228   vcf_parse "$cardfile" |while read -r line; do
229     declare -A tag
230     case "$line" in
231       value*) eval "$line";;
232       tag*)   eval "$line";;
233       key*)
234         if [ -z "$key" ]; then
235           eval "$line"
236         else
237           [ -n "$value" ] && values[$key]="$value" || values[$key]='\r'
238           for t in ${(k)tag}; do
239             tags[${key}_$t]="$tag[$t]"
240           done
241           eval "$line"
242           if [ -n "$values[$key]" ]; then
243             n=0
244             while [ -n "$values[${key}${n}]" ]; do n=$(($n + 1)); done
245             key=$key$n
246           fi
247             unset value
248             unset tag
249         fi
250       ;;
251     esac
252   done
253   . ${_EXEC}/templates/edit_attendee.sh
254 }
255
256 case "$1" in
257   title)
258     echo "Teilnehmende"
259   ;;
260   css)
261     . ${_EXEC}/templates/attendees.css.sh
262   ;;
263   body)
264     . ${_EXEC}/templates/text_attendee.sh
265     . ${_EXEC}/templates/attendees.html.sh
266   ;;
267 esac
268