#!/bin/rc
# pim/calendars -- name every mounted calendar, one per line.
#
# rc globs only metacharacters written literally in the source, so a
# pattern held in a variable will not expand.  Every tool that works
# across calendars enumerates them through here instead.
rfork e

mtpt=/mnt/pim
long=()
while(~ $1 -*){
	switch($1){
	case -m
		mtpt=$2; shift
	case -l
		long=1
	case *
		echo 'usage: calendars [-m mtpt] [-l]' >[1=2]
		exit usage
	}
	shift
}
# mntgen leaves the directory behind when a server goes away, so an
# empty name is not a calendar. A live one answers for ctl.
for(c in `{ls -p $mtpt/calendars >[2]/dev/null})
	if(test -f $mtpt/calendars/$c/ctl){
		if(~ $#long 0)
			echo $c
		if(! ~ $#long 0){
			# caps says what the backend can do: a published .ics is
			# read-only, with no iMIP path and nothing to write to
			caps=`{sed -n 's/^caps //p' $mtpt/calendars/$c/ctl}
			if(~ $#caps 0)
				caps=unknown
			echo $c^'	'^$"caps
		}
	}
exit 0