X-Git-Url: https://git.plutz.net/?p=confetti;a=blobdiff_plain;f=pages%2Fcourses.sh;h=f604515554bd7185b230372c05eda81c8ee1188b;hp=c0aab02520dcff39991c2e54b4ac6f30f86ff266;hb=41083d642a4468fbec3146c3b1c71dc9c1179fe2;hpb=3643bc408e45653267afe7860490ebbd3fd71b99

diff --git a/pages/courses.sh b/pages/courses.sh
index c0aab02..f604515 100755
--- a/pages/courses.sh
+++ b/pages/courses.sh
@@ -2,6 +2,14 @@
 
 [ -z "$_GET[\"order\"]" ] && _GET["order"]=DOW
 
+listcards() {
+  ls -1 ${_DATA}/vcard/*vcf 2>/dev/null |while read file; do
+    fn=$(sed -rn 's:^N(;.+)*\:([^;]*;){1} *([^;]*).*$:\3:p' "$file")
+    echo "$fn\t$file"
+  done |sort |sed -r 's:^.*\t(.*/)([^/]+)$:\2:'
+}
+
+
 listcourses() {
   case "$_GET[\"filtertype\"]" in
     *) ls -1 ${_DATA}/ical/*ics 2>/dev/null
@@ -25,6 +33,30 @@ listcourses() {
   esac |sort |sed -r 's:^.*\t(.*/)([^/]+)$:\2:'
 }
 
+list_attendance() {
+  id="$1"
+  sed -rn 's:'$id'\t(.+)$:\1:p' "$_DATA/mappings/attendance" |while read each; do
+    n_last="$(  sed -rn 's:^N(;.+)*\:([^;]*;){0} *([^;]*).*$:\3:p' "$_DATA/vcard/$each")"
+    n_first="$( sed -rn 's:^N(;.+)*\:([^;]*;){1} *([^;]*).*$:\3:p' "$_DATA/vcard/$each")"
+    n_middle="$(sed -rn 's:^N(;.+)*\:([^;]*;){2} *([^;]*).*$:\3:p' "$_DATA/vcard/$each")"
+    n_pre="$(   sed -rn 's:^N(;.+)*\:([^;]*;){3} *([^;]*).*$:\3:p' "$_DATA/vcard/$each")"
+    n_post="$(  sed -rn 's:^N(;.+)*\:([^;]*;){4} *([^;]*).*$:\3:p' "$_DATA/vcard/$each")"
+    byear="$(  sed -rn 's:^BDAY(;.+)*\:([0-9]{4})(-[0-9][0-9]){2}.*$:\2:p' "$_DATA/vcard/$each")"
+    #aname="${n_pre} ${n_first} ${n_middle} ${n_last} ${n_post} (*${byear})"
+    aname="${n_pre} ${n_first} ${n_middle} ${n_last} ${n_post}"
+    echo "$each $aname" |tr -d '\r'
+  done
+}
+
+course_mail() {
+  id="$1"
+  coursemail=""
+  sed -rn 's:'$id'\t(.+)$:\1:p' "$_DATA/mappings/attendance" |while read each; do
+    coursemail="$coursemail$(sed -rn 's:^EMAIL(;.+)*\:(.+)\r$:\2,:p' "$_DATA/vcard/$each")"
+  done
+  echo "$coursemail"
+}
+
 ics_parse() {
   tr -d '\n' <"$1" |sed -r 's:\r ::g;s:\r:\n:g' |tr -d '\r' \
   | sed -r 's:^([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:key="\1"\nvalue="\3"\ntag=\2:g' \