4a23af7208a12fc7ef26bf4bda3ceedd3de4bed6
[confetti] / courses / list.sh
1 #!/bin/sh
2
3 . "${_EXEC}"/pdiread.sh
4
5 edit_course(){
6   local coursefile="$_DATA/courses/$1" 
7   local tempfile course
8
9   . $_EXEC/session_lock.sh
10
11   if ! tempfile="$(CHECK_SLOCK "$coursefile")"; then
12     printf '[div .message %s]' "$(l10n "This course is not set up for editing within this session.")"
13   else
14     course="$(pdi_load "$tempfile")"
15     cat <<-EOF
16         [form .course #${coursefile##*/} action="/cards/update_course.sh" method="POST"
17           [input type="hidden" name="tid" value="$(transid ${tempfile})"]
18           [div .section .basic . $(
19             edit_item "$course" SUMMARY COMMENT
20           )]
21           [div .section .dtstart . $(
22             edit_item "$course" DTSTART
23           )]
24           [div .section .recur . $(
25             edit_item "$course" RRULE
26           )]
27           [div .section .select_attendance . $(
28             edit_item "$course" attendance
29           )]
30           [div .control
31             [select .item name=newfield
32               [option disabled="disabled" selected . $(l10n edit_addfieldtext)]
33               $(for f in $SUP_FIELDS; do printf '[option value="%s" . %s]\n' "$f" "$(l10n "$f")"; done)
34             ]
35             [button .item type="submit" name="action" value="addfield" . $(l10n edit_addfield)]
36             [button .item type="submit" name="action" value="update"   . $(l10n edit_update)]
37             [button .item type="submit" name="action" value="delete"   . $(l10n edit_delete)]
38             [button .item type="submit" name="action" value="cancel"   . $(l10n edit_cancel)]
39           ]'
40         ]
41         EOF
42   fi
43 }
44
45 print_course(){
46   local coursefile="$1"
47   local course="$(pdi_load "$coursefile")"
48   cat <<-EOF
49     [div .course #${coursefile##*/}
50       [div .section .basic . $(
51         cal_item "$course" SUMMARY DTSTART RRULE
52       )]
53       [div .section .COMMENT   . $(cal_item "$course" COMMENT)]
54       [div .section .attendance [h3 $(l10n course_attendance) ] [ul . 
55         $(grep -F "${coursefile##*/}    " "$_DATA/mappings/attendance" |while read discard each; do
56           printf '[li [a .item .attendance href="/cards/#%s" . %s]]\n' \
57                  "$each" \
58                  "$(pdi_value "$(pdi_load "$_DATA/vcard/$each")" FN |unescape |HTML)"
59         done |sort -k7)]
60       ]
61       [div .control
62         [a .item href="/courses/edit_course.sh?course=${coursefile##*/}" $(l10n edit)]
63         [a .item href="/courses/export_pdf.sh?course=${coursefile##*/}" target="blank" $(l10n courselist)]
64         [a .item href="/courses/export_ical.sh?course=${coursefile##*/}" $(l10n ics_export)]
65         [a .item href="mailto:zack@vuesch.org?bcc=$(course_mail "${coursefile##*/}" |HTML)" $(l10n course_mail)]
66       ]
67     ]
68         EOF
69 }
70
71 course_mail() {
72   course="$1"
73   grep -F "${course}    " "$_DATA/mappings/attendance" |while read junk card; do
74     cat "${_DATA}/vcard/${card}"
75   done \
76   | pdi_load - \
77   | sed -rn 's;^EMAIL(\;[^:]*)*:(.+)\r?$;\2,;p' \
78   | tr -d \\n \
79   | unescape
80 }
81
82 print_courses(){
83   local calfile cachefile date size name ldate=0 lsize lname
84
85   while read calfile; do
86     cachefile="${_DATA}/cache/${calfile##*/}.cache"
87     if [ -s "$cachefile" -a "$cachefile" -nt "$calfile" ]; then
88       cat "$cachefile"
89     else
90       print_course "$calfile" |tee "$cachefile"
91     fi
92   done
93 }
94
95 order_courses() {
96   local calfile course
97
98   while read calfile; do
99     icstime="$(pdi_value "$(pdi_load "$calfile")" DTSTART |cal_date)"
100     case $order in
101       DOW) printf '%s   %s\n' "$(date -d "$icstime" "+%u %H:%M:%S")" "$calfile";;
102       TOD) printf '%s   %s\n' "$(date -d "$icstime" "+%H:%M:%S")" "$calfile";;
103     esac
104   done \
105   | sort \
106   | sed -E 's;^.*\t;;g'
107 }
108
109 list_courses(){
110   printf '%s\n' ${_DATA}/courses/*.ics \
111   | order_courses \
112   | print_courses
113 }