X-Git-Url: https://git.plutz.net/?p=confetti;a=blobdiff_plain;f=pages%2Fcourses.sh;h=02a16669a21a0e6c410b7adb2ac72c35a21bd226;hp=9610ec20df0883f724e5c34196b7b597b07ae450;hb=9c0dedbe71799e2968cca664300fab01e93d482f;hpb=c195881a2389862d4bfcd2fd55ca868f7a20b8e8 diff --git a/pages/courses.sh b/pages/courses.sh index 9610ec2..02a1666 100755 --- a/pages/courses.sh +++ b/pages/courses.sh @@ -1,38 +1,145 @@ -#!/bin/sh +#!/bin/zsh + +# Copyright 2014, 2016 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]=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 + case "${_GET[filtertype]}" in *) ls -1 ${_DATA}/ical/*ics 2>/dev/null ;; - esac |case "$_GET[\"order\"]" in + esac |case "${_GET[order]}" in + DOW) + 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 + ;; + TOD) + 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" +%H%M%S)\t$file" + done + ;; *) sed -r 's:^.*$:x\t&:' ;; 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 + card="$_DATA/vcard/$each" + if [ -r "$card" ]; then + aname="$(sed -rn ' + /^N(;.+)*:/{ + h; + s;^N(\;.+)*:([^\;]*\;){3} *([^\;]*).*$;\3;p; g; + s;^N(\;.+)*:([^\;]*\;){1} *([^\;]*).*$;\3;p; g; + s;^N(\;.+)*:([^\;]*\;){2} *([^\;]*).*$;\3;p; g; + s;^N(\;.+)*:([^\;]*\;){0} *([^\;]*).*$;\3;p; g; + s;^N(\;.+)*:([^\;]*\;){4} *([^\;]*).*$;\3;p; g; + }' "$card" \ + | sed -r ':X;N;$!bX; s;([\;\n\r,]| )+; ;g;; s;^ +| +$;;g;' + )" + fname="$(sed -rn 's;^FN(\;.+)*:(.+)\r?$;\2;g; s;([\;\n,]| )+; ;g;; s;^ +| +$;;g;' "$card")" + nname="$(sed -rn 's;^NICKNAME(\;.+)*:(.+)\r?$;\2;g; s;([\;\n,]| )+; ;g;; s;^ +| +$;;g;' "$card")" + byear="$(sed -rn 's:^BDAY(\;.+)*\:([0-9]{4})(-[0-9][0-9]){2}.*$:\2:p' "$_DATA/vcard/$each")" + + printf '%s %s (*%04i)\n' "$each" "${aname:-${fname:-${nname}}}" "$byear" + fi + 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' \ + unset key + sed -r ':X;N;$!bX; s;\r\n[ \t];;g; s;\r\n;\n;g;' "$1" \ + | sed -rn ' + # === turn property names to upper case, strip group names === + h; s;^([^;:]+);;; + x; s;^([^;:\.]+\.)?([^;:]+).*$;\2;; + y;abcdefghijklmnopqrstuvwxyz;ABCDEFGHIJKLMNOPQRSTUVWXYZ; + G; s;\n;;; + + /^([A-Z0-9-]+)((\;[a-Z0-9-]+=?|\;[a-Z0-9-]+=([^;,:"]+|"[^"]+")(,[^;,:"]+|,"[^"]+")*)*):(.*)$/{ + h; + s;^([A-Z0-9-]+)((\;[a-Z0-9-]+=?|\;[a-Z0-9-]+=([^;,:"]+|"[^"]+")(,[^;,:"]+|,"[^"]+")*)*):(.*)$;key='\''\1'\'';; + H; g; + + s;^([A-Z0-9-]+)((\;[a-Z0-9-]+=?|\;[a-Z0-9-]+=([^;,:"]+|"[^"]+")(,[^;,:"]+|,"[^"]+")*)*):([^\n]*)\n.*$;\2;; + s;'\'';'\'\\\\\'\'';g + s;\;([A-Z0-9-]+)(=|=(([^\;,:"]+|"[^"]+")(,[^\;,:"]+|,"[^"]+")*))?;\ntag[\1]='\''\3'\'';g + s;^\n+;;; s;\n+$;;; + /^.+$/H; g; + + s;^([A-Z0-9-]+)((\;[a-Z0-9-]+=?|\;[a-Z0-9-]+=([^;,:"]+|"[^"]+")(,[^;,:"]+|,"[^"]+")*)*):([^\n]*)\n.*$;\6;; + # :X s;((^|[^\\])(\\\\)*)[;,];\1\n;g; s;((^|[^\\])(\\\\)*)\\([;,]);\4;g; tX; + s;'\'';'\'\\\\\'\'';g + s;^.*$;value='\''&'\''; + H; g; + + s;^[^\n]*[\n ]+;; + s;\n+$;;; + + p; + } + ' \ | while read -r line; do + declare -A tag 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 - ;; + value*) eval "$line";; + tag*) eval "$line";; + key*) + if [ -z "$key" ]; then + eval "$line" + else + values[$key]="$value" + for t in ${(k)tag}; do + values[${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 } @@ -45,33 +152,8 @@ view_course() { #Parameter: Calendarfile if [ "$cachefile" -nt "$calendarfile" ]; then cat "$cachefile" else - declare -A tags declare -A values - ics_parse "$calendarfile" |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 + ics_parse "$calendarfile" . ${_EXEC}/templates/view_course.sh |tee "$cachefile" fi } @@ -83,46 +165,7 @@ edit_course() { #Parameter: Calendarfile [ -f "$tempfile" ] && calendarfile="$tempfile" unset key - declare -A tags declare -A values - ics_parse "$calendarfile" |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 + ics_parse "$calendarfile" . ${_EXEC}/templates/edit_course.sh } - -case "$1" in - title) - echo "Kurse" - ;; - css) - . ${_EXEC}/templates/courses.css.sh - ;; - body) - . ${_EXEC}/templates/text_courses.sh - . ${_EXEC}/templates/courses.html.sh - ;; -esac -