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