git.plutz.net Git - confetti/blob - 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 2>/dev/null
  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