edit course attendees form course display
[confetti] / pages / courses.sh
1 #!/bin/sh
2
3 [ -z "$_GET[\"order\"]" ] && _GET["order"]=DOW
4
5 listcards() {
6   ls -1 ${_DATA}/vcard/*vcf 2>/dev/null |while read file; do
7     fn=$(sed -rn 's:^N(;.+)*\:([^;]*;){1} *([^;]*).*$:\3:p' "$file")
8     echo "$fn\t$file"
9   done |sort |sed -r 's:^.*\t(.*/)([^/]+)$:\2:'
10 }
11
12
13 listcourses() {
14   case "$_GET[\"filtertype\"]" in
15     *) ls -1 ${_DATA}/ical/*ics 2>/dev/null
16       ;;
17   esac |case "$_GET[\"order\"]" in
18     DOW)
19       while read file; do
20         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")"
21         echo "$(date -d "$icstime" "+%u %H%M%S")\t$file"
22       done
23       ;;
24     TOD)
25       while read file; do
26         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")"
27         echo "$(date -d "$icstime" +%H%M%S)\t$file"
28       done
29       ;;
30     *)
31       sed -r 's:^.*$:x\t&:'
32       ;;
33   esac |sort |sed -r 's:^.*\t(.*/)([^/]+)$:\2:'
34 }
35
36 ics_parse() {
37   tr -d '\n' <"$1" |sed -r 's:\r ::g;s:\r:\n:g' |tr -d '\r' \
38   | sed -r 's:^([^;\:]+)(;[^"\:]+|;"[^"]+")*\:(.*)$:key="\1"\nvalue="\3"\ntag=\2:g' \
39   | while read -r line; do
40     case "$line" in
41       key=*) echo -E "$line"
42         ;;
43       value=*) echo -E "$line"
44         ;;
45       tag=*) ot=''
46              echo -E "$line" \
47              | sed -r 's:^tag=::;s:\;([A-Z+_-]+="[^"]+"|[A-Z+_-]+=[^\;]+):\n\1:g;' \
48              | sed -r 's:([A-Z+_-]+)="?(.*)"?:tag\[\1\]="\2":g' \
49              | sed -r '/^ *$/d' \
50              | sort |while read -r tag; do
51                nt="$(echo -E "$tag" |sed -r 's:^tag\[([A-Z+_-]+)\]="(.*)"$:\1:')"
52                nv="$(echo -E "$tag" |sed -r 's:^tag\[([A-Z+_-]+)\]="(.*)"$:\2:')"
53                [ "$nt" = "$ot" ] && vl="$nv,$vl" || vl="$nv"
54                echo -E "tag[$nt]=\"$vl\""
55                ot="$nt"
56              done
57         ;;
58     esac
59   done
60 }
61
62 view_course() {  #Parameter: Calendarfile
63   id="$1"
64   calendarfile="$_DATA/ical/${id}"
65   cachefile="$_DATA/cache/${id}.cache"
66   unset key
67   if [ "$cachefile" -nt "$calendarfile" ]; then
68     cat "$cachefile"
69   else
70     declare -A tags
71     declare -A values
72     ics_parse "$calendarfile" |while read -r line; do
73       declare -A tag
74       case "$line" in
75         value*) eval "$line";;
76         tag*)   eval "$line";;
77         key*)
78           if [ -z "$key" ]; then
79             eval "$line"
80           else
81             values[$key]="$value"
82             for t in ${(k)tag}; do
83               tags[${key}_$t]="$tag[$t]"
84             done
85             eval "$line"
86             if [ -n "$values[$key]" ]; then
87               n=0
88               while [ -n "$values[$key$n]" ]; do n=$(($n + 1)); done
89               key=$key$n
90             fi
91             unset value
92             unset tag
93           fi
94         ;;
95       esac
96     done
97     . ${_EXEC}/templates/view_course.sh |tee "$cachefile"
98   fi
99 }
100
101 edit_course() {  #Parameter: Calendarfile
102   id="$1"
103   calendarfile="$_DATA/ical/$id"
104   tempfile="$_DATA/temp/$id"
105   [ -f "$tempfile" ] && calendarfile="$tempfile"
106   unset key
107
108   declare -A tags
109   declare -A values
110   ics_parse "$calendarfile" |while read -r line; do
111     declare -A tag
112     case "$line" in
113       value*) eval "$line";;
114       tag*)   eval "$line";;
115       key*)
116         if [ -z "$key" ]; then
117           eval "$line"
118         else
119           [ -n "$value" ] && values[$key]="$value" || values[$key]='\r'
120           for t in ${(k)tag}; do
121             tags[${key}_$t]="$tag[$t]"
122           done
123           eval "$line"
124           if [ -n "$values[$key]" ]; then
125             n=0
126             while [ -n "$values[${key}${n}]" ]; do n=$(($n + 1)); done
127             key=$key$n
128           fi
129             unset value
130             unset tag
131         fi
132       ;;
133     esac
134   done
135   . ${_EXEC}/templates/edit_course.sh
136 }
137
138 case "$1" in
139   title)
140     echo "Kurse"
141   ;;
142   css)
143     . ${_EXEC}/templates/courses.css.sh
144   ;;
145   body)
146     . ${_EXEC}/templates/text_courses.sh
147     . ${_EXEC}/templates/courses.html.sh
148   ;;
149 esac
150