git.plutz.net Git - confetti/blob - courses/list.sh

   1 #!/bin/sh
   2
   3 . "${_EXEC}"/pdiread.sh
   4
   5 edit_card(){
   6   local cardfile="$_DATA/vcard/$1"
   7   local tempfile card
   8
   9   . $_EXEC/session_lock.sh
  10
  11   if ! tempfile="$(CHECK_SLOCK "$cardfile")"; then
  12     printf '[div .message %s]' "$(l10n "This card is not set up for editing within this session.")"
  13   else
  14     card="$(pdi_load "$tempfile")"
  15     cat <<-EOF
  16         [form .card #${cardfile##*/} action="/cards/update_card.sh" method="POST"
  17           [input type="hidden" name="tid" value="$(transid ${tempfile})"]
  18           [div .section .basic $(
  19             edit_item "$card" N GENDER
  20             [ "$(pdi_count "$card" NICKNAME)" -gt 0 ] \
  21             && edit_item "$card" NICKNAME
  22             edit_item "$card" BDAY
  23             edit_item "$card" X-ZACK-JOINDATE
  24             [ "$(pdi_count "$card" X-ZACK-LEAVEDATE)" -gt 0 ] \
  25             && edit_item "$card" X-ZACK-LEAVEDATE
  26             card_item "$card" SOUND PHOTO LOGO
  27           )]
  28           [div .section .phone   $(edit_item "$card" TEL)]
  29           [div .section .message $(
  30             edit_item "$card" EMAIL
  31             [ $(pdi_count "$card" IMPP) -gt 0 ] && edit_item "$card" IMPP
  32             [ $(pdi_count "$card" URL ) -gt 0 ] && edit_item "$card" URL
  33           )]
  34           [div .section .address $(edit_item "$card" ADR)]
  35           [div .section .note    $(edit_item "$card" NOTE)]
  36           [div .section .attendance
  37             [h3 $(l10n course_attendance) ] $(
  38             for course in "$_DATA"/ical/*.ics; do
  39               printf '[label [input type="checkbox" name="attendance" value="%s" %s] %s]' \
  40                      "${course##*/}" \
  41                      "$(grep -qF "${course##*/} ${cardfile##*/}" "$_DATA/mappings/attendance" \
  42                         && printf 'checked="checked"'
  43                      )" \
  44                      "$(pdi_value "$(pdi_load "$course")" SUMMARY |unescape |HTML)"
  45             done)
  46             [h3 $(l10n CATEGORIES) ] $(
  47             grep -xE '[^ ]+' "$_DATA"/mappings/categories |while read -r cat; do
  48               printf '[label [input type="checkbox" name="attendance" value="%s" %s] %s]' \
  49                      "$(HTML "$cat")" \
  50                      "$(seq 1 $(pdi_count "$card" CATEGORIES) |while read c; do
  51                        pdi_value "$card" CATEGORIES $c |grep -qxF "$cat" \
  52                        && printf 'checked="checked"' && break
  53                      done)" \
  54                      "$(HTML "$cat")"
  55             done)
  56           ]
  57           [div .control
  58             [select .item name="newfield"
  59               [option value="" disabled="disabled" selected="selected" $(l10n edit_addfieldtext)]
  60               $(for f in NICKNAME EMAIL TEL IMPP ADR URL NOTE; do
  61                 printf '[option value="%s" %s] ' "$f" "$(l10n "$f")"
  62               done)
  63            ][button .item type="submit" name="action" value="addfield" $(l10n edit_addfield)]
  64             [button .item type="submit" name="action" value="update"   $(l10n edit_update)]
  65             [input type="checkbox" #delete] [label .item for="delete" $(l10n edit_delete)]
  66               [button .item type="submit" name="action" value="delete"]
  67             [button .item type="submit" name="action" value="cancel"   $(l10n edit_cancel)]
  68           ]
  69           [input type="hidden" name="UID" value="$(pdi_value "$card" UID |HTML)"]
  70           [input type="hidden" name="card" value="${cardfile##*/}"]
  71         ]
  72         EOF
  73   fi
  74 }
  75
  76 print_course(){
  77   local coursefile="$1"
  78   local course="$(pdi_load "$coursefile")"
  79   cat <<-EOF
  80     [div .course #${coursefile##*/}
  81       [div .section .basic &shy;$(
  82         cal_item "$course" SUMMARY DTSTART RRULE
  83       )]
  84       [div .section .COMMENT   &shy;$(cal_item "$course" COMMENT)]
  85       [div .section .attendance [h3 $(l10n course_attendance) ] [ul &shy;
  86         $(grep -F "     ${cardfile##*/}" "$_DATA/mappings/attendance" |while read each discard; do
  87           printf '[li [a .item .attendance href="/courses#%s" &shy;%s]]' \
  88                  "$each" \
  89                  "$(pdi_value "$(pdi_load "$_DATA/ical/$each")" SUMMARY |unescape |HTML)"
  90         done)]
  91         $(cal_item "$card" CATEGORIES)
  92       ]
  93       [div .control
  94         [a .item href="" $(l10n edit)]
  95       ]
  96     ]
  97         EOF
  98 }
  99
 100 print_courses(){
 101   local calfile cachefile date size name ldate=0 lsize lname
 102
 103   while read calfile; do
 104     cachefile="${_DATA}/cache/${calfile##*/}.cache"
 105     if [ -s "$cachefile" -a "$cachefile" -nt "$calfile" ]; then
 106       cat "$cachefile"
 107     else
 108       print_course "$calfile" |tee "$cachefile"
 109     fi
 110   done
 111 }
 112
 113 order_courses() {
 114   local calfile course
 115
 116   while read calfile; do
 117     icstime="$(pdi_value "$(pdi_load "$calfile")" DTSTART |cal_date)"
 118     case $order in
 119       DOW) printf '%s   %s\n' "$(date -d "$icstime" "+%u %H:%M:%S")" "$calfile";;
 120       TOD) printf '%s   %s\n' "$(date -d "$icstime" "+%H:%M:%S")" "$calfile";;
 121     esac
 122   done \
 123   | sort \
 124   | sed -E 's;^.*\t;;g'
 125 }
 126
 127 list_courses(){
 128   printf '%s\n' ${_DATA}/courses/*.ics \
 129   | order_courses \
 130   | print_courses
 131 }