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