escape certain characters before passing to eval (\, $, and `)
[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   | sed -r 's:[\\$`]:\\&:g'
188 }
189
190 view_attendee() {  #Parameter: Cardfile
191   id="$1"
192   cardfile="$_DATA/vcard/${id}"
193   cachefile="$_DATA/cache/${id}.cache"
194   unset key
195   if [ "$cachefile" -nt "$cardfile" ]; then
196     cat "$cachefile"
197   else
198     declare -A tags
199     declare -A values
200     vcf_parse "$cardfile" |while read -r line; do
201       declare -A tag
202       case "$line" in
203         value*) eval "$line";;
204         tag*)   eval "$line";;
205         key*)
206           if [ -z "$key" ]; then
207             eval "$line"
208           else
209             values[$key]="$value"
210             for t in ${(k)tag}; do
211               tags[${key}_$t]="$tag[$t]"
212             done
213             eval "$line"
214             if [ -n "$values[$key]" ]; then
215               n=0
216               while [ -n "$values[$key$n]" ]; do n=$(($n + 1)); done
217               key=$key$n
218             fi
219             unset value
220             unset tag
221           fi
222         ;;
223       esac
224     done
225     . ${_EXEC}/templates/view_attendee.sh |tee "$cachefile"
226   fi
227 }
228
229 edit_attendee() {  #Parameter: Cardfile
230   id="$1"
231   cardfile="$_DATA/vcard/$id"
232   tempfile="$_DATA/temp/$id"
233   [ -f "$tempfile" ] && cardfile="$tempfile"
234   unset key
235
236   declare -A tags
237   declare -A values
238   vcf_parse "$cardfile" |while read -r line; do
239     declare -A tag
240     case "$line" in
241       value*) eval "$line";;
242       tag*)   eval "$line";;
243       key*)
244         if [ -z "$key" ]; then
245           eval "$line"
246         else
247           [ -n "$value" ] && values[$key]="$value" || values[$key]='\r'
248           for t in ${(k)tag}; do
249             tags[${key}_$t]="$tag[$t]"
250           done
251           eval "$line"
252           if [ -n "$values[$key]" ]; then
253             n=0
254             while [ -n "$values[${key}${n}]" ]; do n=$(($n + 1)); done
255             key=$key$n
256           fi
257             unset value
258             unset tag
259         fi
260       ;;
261     esac
262   done
263   . ${_EXEC}/templates/edit_attendee.sh
264 }
265
266 case "$1" in
267   title)
268     echo "Teilnehmende"
269   ;;
270   css)
271     . ${_EXEC}/templates/attendees.css.sh
272   ;;
273   body)
274     . ${_EXEC}/templates/text_attendee.sh
275     . ${_EXEC}/templates/attendees.html.sh
276   ;;
277 esac
278