X-Git-Url: https://git.plutz.net/?p=confetti;a=blobdiff_plain;f=pages%2Fattendees.sh;h=b528e5416d9f5623fa0e64e3822dbf5c437d6db0;hp=75092c13143511d995a5308a67655ce930c561fc;hb=0e814c6ffab2486405f60a1dfbfa048e76bba1f2;hpb=2dc9740e1452127d64d027b57432032242f04eff diff --git a/pages/attendees.sh b/pages/attendees.sh index 75092c1..b528e54 100755 --- a/pages/attendees.sh +++ b/pages/attendees.sh @@ -1,7 +1,78 @@ #!/bin/sh +# Copyright 2014 Paul Hänsch +# +# This file is part of Confetti. +# +# Confetti is free software: you can redistribute it and/or modify +# it under the terms of the GNU Affero General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# Confetti is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public License +# along with Confetti. If not, see . + +[ -z "$_GET[\"order\"]" ] && _GET["order"]=firstname + +listcourses() { + ls -1 ${_DATA}/ical/*ics |while read file; do + 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")" + echo "$(date -d "$icstime" "+%u %H%M%S")\t$file" + done |sort |sed -r 's:^.*\t(.*/)([^/]+)$:\2:' +} + listcards() { - ls -1 ${_DATA}/vcard/*vcf + case "$_GET[\"filtertype\"]" in + any) + grep -il "$_GET[\"filter\"]" ${_DATA}/vcard/*vcf + ;; + name) + egrep -xil "(FN|NICKNAME|N)(;.+)*:.*$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf + ;; + street) + egrep -xil "(ADR)(;.+)*:([^;]*;){2}$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf + ;; + zip) + egrep -xil "(ADR)(;.+)*:([^;]*;){5}$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf + ;; + telephone) + egrep -xil "(TEL)(;.+)*:.*$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf + ;; + birth) + egrep -xil "(BDAY)(;.+)*:$_GET[\"filter\"].*" ${_DATA}/vcard/*vcf + ;; + course) + ;; + *) ls -1 ${_DATA}/vcard/*vcf 2>/dev/null + ;; + esac |case "$_GET[\"order\"]" in + firstname) + while read file; do + fn=$(sed -rn 's:^N(;.+)*\:([^;]*;){1} *([^;]*).*$:\3:p' "$file") + echo "$fn\t$file" + done + ;; + lastname) + while read file; do + ln=$(sed -rn 's:^N(;.+)*\:([^;]*;){0} *([^;]*).*$:\3:p' "$file") + echo "$ln\t$file" + done + ;; + bdate) + while read file; do + bd=$(sed -rn 's:^BDAY(;.+)*\:(.*)$:\2:p' "$file") + echo "$bd\t$file" + done + ;; + *) + sed -r 's:^.*$:x\t&:' + ;; + esac |sort |sed -r 's:^.*\t(.*/)([^/]+)$:\2:' } vcf_parse() { @@ -11,8 +82,8 @@ vcf_parse() { s:^X-MS-CARDPICTURE:001 PHOTO:p; s:^LOGO:002 LOGO:p; s:^FN:003 FN:p; + s:^N[\:;]:004 &:p s:^NICKNAME:005 NICKNAME:p; - s:^N:004 N:p s:^SOUND:006 SOUND:p; s:^GENDER:007 GENDER:p; s:^X-GENDER:007 GENDER:p; @@ -38,11 +109,12 @@ vcf_parse() { s:^X-YAHOO(;[^"\:]+|;"[^"]+")*\:(.*)$:018 IMPP\1\:ymsgr\:\2:p; s:^X-SIP(;[^"\:]+|;"[^"]+")*\:(sip\:)?(.*)$:018 IMPP\1\:sip\:\3:p; s:^ADR:019 ADR:p; - s:^LABEL:020 LABEL:p; + s:^LABEL(;[^"\:]+|;"[^"]+")*\:(.*)$:019 ADR;LABEL="\2"\1\::p; s:^URL:021 URL:p; s:^X-EVOLUTION-BLOG-URL:021 URL:p; s:^LANG:022 LANG:p; s:^NOTE:023 NOTE:p; + s:^UID:026 UID:p; s:^RELATED:025 RELATED:p; s:^AGENT:025 RELATED\;TYPE=agent:p; @@ -56,12 +128,12 @@ vcf_parse() { s:^X-EVOLUTION-SPOUSE:025 RELATED\;TYPE=spouse;VALUE=text:p; s:^X-KADDRESSBOOK-X-SpouseName:025 RELATED\;TYPE=spouse;VALUE=text:p; - s:^BEGIN.*$::; + s:^BEGIN.*$:000 &:p; s:^CALADRURI.*$::; s:^CALURI.*$::; s:^CLASS.*$::; s:^CLIENTPIDMAP.*$::; - s:^END.*$::; + s:^END.*$:100 &:p; s:^FBURL.*$::; s:^GEO.*$::; s:^MAILER.*$::; @@ -72,39 +144,140 @@ vcf_parse() { s:^SORT-STRING.*$::; s:^SOURCE.*$::; s:^TZ.*$::; - s:^UID.*$::; - s:^VERSION.*$::; + s:^VERSION.*$:000 VERSION\:4.0:p; s:^XML.*$::; s:^([A-Z].*)$:024 \1:p; ' \ - | sort |while read -r line; do + |sort |while read -r line; do case "$line" in - 001*) - echo -E "$line" - ;; - 002*) + 00[012]*) echo -E "$line" ;; 003*) - fn=$(echo "$line" |sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:g' |tr -d '\r') + fn=$(echo -E "$line" |sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:g' |tr -d '\r') ;; 004*) - n=$(echo "$line" |sed -rn 's:^([0-9]{3} )([^;\:]+)(;[^"\:]+|;"[^"]+")*\:([^;]*)(\;[^;]*)(\;[^;]*)?(\;[^;]*)?(\;[^;]*)?$:\7 \5 \6 \4 \8:gp' |sed -r 's:,: :;s:\;: :g;s: +: :g' |tr -d '\r') + n=$(echo -E "$line" \ + |sed -rn 's:^([0-9]{3} )([^;\:]+)(;[^"\:]+|;"[^"]+")*\:([^;]*)(\;[^;]*)(\;[^;]*)?(\;[^;]*)?(\;[^;]*)?$:\7 \5 \6 \4 \8:gp' \ + |sed -r 's:,: :;s:\;: :g;s: +: :g' \ + |tr -d '\r' + ) + echo -E "$line" ;; 005*) - nick=$(echo "$line" |sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:g' |tr -d '\r') + nick=$(echo -E "$line" |sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:\3:g' |tr -d '\r') + echo -E "$line" ;; - *) [ -n "$fn" -a -n "$nick" ] && fn="$fn aka. $nick" - [ -n "$n" -a -n "$nick" ] && n="$n aka. $nick" - [ -n "$fn" -a -z "$n" ] && echo "003 FN:$fn" - [ -n "$n" ] && echo "003 FN:$n" - [ -z "$fn" -a -z "$n" ] && echo "003 FN:$nick" - echo -E "$line" - cat + *) + [ -n "$n" ] && fn="$n" + #[ -n "$fn" -a -n "$nick" ] && fn="$fn aka. $nick" + [ -n "$fn" ] && echo -E "003 FN:$fn" \ + || echo -E "003 FN:$nick" + echo -E "$line" + cat ;; esac - done | sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:key=\1\nvalue=\3\ntag=\2:g' + done |tr -d '\r' \ + | sed -r 's:^[0-9]{3} ([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:key="\1"\nvalue="\3"\ntag=\2:g' \ + | while read -r line; do + case "$line" in + key=*) echo -E "$line" + ;; + value=*) echo -E "$line" + ;; + tag=*) ot='' + echo -E "$line" \ + | sed -r 's:^tag=::;s:\;([A-Z+_-]+="[^"]+"|[A-Z+_-]+=[^\;]+):\n\1:g;' \ + | sed -r 's:([A-Z+_-]+)="?(.*)"?:tag\[\1\]="\2":g' \ + | sed -r '/^ *$/d' \ + | sort |while read -r tag; do + nt="$(echo -E "$tag" |sed -r 's:^tag\[([A-Z+_-]+)\]="(.*)"$:\1:')" + nv="$(echo -E "$tag" |sed -r 's:^tag\[([A-Z+_-]+)\]="(.*)"$:\2:')" + [ "$nt" = "$ot" ] && vl="$nv,$vl" || vl="$nv" + echo -E "tag[$nt]=\"$vl\"" + ot="$nt" + done + ;; + esac + done \ + | sed -r 's:[\\$`]:\\&:g' +} + +view_attendee() { #Parameter: Cardfile + id="$1" + cardfile="$_DATA/vcard/${id}" + cachefile="$_DATA/cache/${id}.cache" + unset key + if [ "$cachefile" -nt "$cardfile" ]; then + cat "$cachefile" + else + declare -A tags + declare -A values + vcf_parse "$cardfile" |while read -r line; do + declare -A tag + case "$line" in + value*) eval "$line";; + tag*) eval "$line";; + key*) + if [ -z "$key" ]; then + eval "$line" + else + values[$key]="$value" + for t in ${(k)tag}; do + tags[${key}_$t]="$tag[$t]" + done + eval "$line" + if [ -n "$values[$key]" ]; then + n=0 + while [ -n "$values[$key$n]" ]; do n=$(($n + 1)); done + key=$key$n + fi + unset value + unset tag + fi + ;; + esac + done + . ${_EXEC}/templates/view_attendee.sh |tee "$cachefile" + fi +} + +edit_attendee() { #Parameter: Cardfile + id="$1" + cardfile="$_DATA/vcard/$id" + tempfile="$_DATA/temp/$id" + [ -f "$tempfile" ] && cardfile="$tempfile" + unset key + + declare -A tags + declare -A values + vcf_parse "$cardfile" |while read -r line; do + declare -A tag + case "$line" in + value*) eval "$line";; + tag*) eval "$line";; + key*) + if [ -z "$key" ]; then + eval "$line" + else + [ -n "$value" ] && values[$key]="$value" || values[$key]='\r' + for t in ${(k)tag}; do + tags[${key}_$t]="$tag[$t]" + done + eval "$line" + if [ -n "$values[$key]" ]; then + n=0 + while [ -n "$values[${key}${n}]" ]; do n=$(($n + 1)); done + key=$key$n + fi + unset value + unset tag + fi + ;; + esac + done + . ${_EXEC}/templates/edit_attendee.sh } case "$1" in @@ -115,6 +288,7 @@ case "$1" in . ${_EXEC}/templates/attendees.css.sh ;; body) + . ${_EXEC}/templates/text_attendee.sh . ${_EXEC}/templates/attendees.html.sh ;; esac