pdflatex="$(where pdflatex |head -n1 || echo false)"
course="${_GET[course]}"
-fromdate=$_GET[fromdate]
-fromdate=$(date -d "$fromdate" +%s)
+fromdate="${_GET[fromdate]}"
+fromdate="$(date -d "$fromdate" +%s)" 2>/dev/null
[ -z "$fromdate" ] && fromdate=$(date +%s)
. ${_EXEC}/pages/courses.sh
list_attendee() { #Parameter: Cardfile
id="$1"
cardfile="$_DATA/vcard/${id}"
- unset key
- declare -A tags
declare -A values
- vcf_parse "$cardfile" |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]="$(tex_clean "$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
- n=$(printf %s "$values[N]" \
- | sed -rn 's:^([^;]*)(;[^;]*)(;[^;]*)?(;[^;]*)?(;[^;]*)?$:4 2 3 1 5:gp' \
- | sed -r 's:,: :;s:;: :g;s: +: :g;s:^ $::;'
- )
- fullname="${n:-${values[FN]:-${values[NICKNAME]}}}"
-
- tel=''
- for n in TEL TEL{0..10}; do if (echo "$values[$n]" |grep -Eq '[0-9]'); then
- [ -n "$tel" ] && tel="$tel\\newline $values[$n]" || tel="$values[$n]"
- fi; done
-
- note=''
- for n in NOTE NOTE{0..10}; do if [ -n "$values[$n]" ]; then
- [ -n "$note" ] && note="$note\\newline $values[$n]" || note="$values[$n]"
- fi; done
- echo -E "$fullname & $values[BDAY] & $tel & $note"
+ if [ -r "$cardfile" ]; then
+ vcf_parse "$cardfile"
+
+ n=$(printf %s "$values[N]" \
+ | sed -rn 's:^([^;]*)(;[^;]*)(;[^;]*)?(;[^;]*)?(;[^;]*)?$:\4 \2 \3 \1 \5:gp' \
+ | sed -r 's:,: :;s:;: :g;s: +: :g;s:^ $::;'
+ )
+ fullname="${n:-${values[FN]:-${values[NICKNAME]}}}"
+
+ tel=''
+ for n in TEL TEL{0..10}; do if (echo "$values[$n]" |grep -Eq '[0-9]'); then
+ [ -n "$tel" ] && tel="$tel\\newline $values[$n]" || tel="$values[$n]"
+ fi; done
+
+ note=''
+ for n in NOTE NOTE{0..10}; do if [ -n "$values[$n]" ]; then
+ [ -n "$note" ] && note="$note\\newline $values[$n]" || note="$values[$n]"
+ fi; done
+ printf '%s & %s & %s & %s\n' "$fullname" "$values[BDAY]" "$tel" "$note" \
+ | sed -r ':X;N;$!bX; s;\n;\\newline ;g'
+ fi
}
get_dates() { #Parameter: Calendarfile
calendarfile="$_DATA/ical/$course"
- 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
- values[$key]="$(tex_clean "$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"
dtstart="$values[DTSTART]"
[ -z "$dtstart" ] && dtstart=$(date +%Y%m%dT%H%M%S)
rrule="$values[RRULE]"
rr_int="$(echo $rrule |sed -rn 's:^.*INTERVAL=([0-9]+)(;.*)?$:\1:p')"
rr_freq="$(echo $rrule |sed -rn 's:^.*FREQ=(YEARLY|MONTHLY|WEEKLY|DAILY)(;.*)?$:\1:p')"
- case "$rr_freq" in;
+ case "$rr_freq" in
YEARLY) rec="$rr_int year";;
MONTHLY) rec="$rr_int month";;
DAILY) rec="$rr_int day";;