#!/bin/rc
#
#	fact is a tool to manage factotum. 
#

rfork e

usage='usage: fact [-nadl]'

fn chkctl {
	if(~ $#* 0){
		echo 'you don''t have permition'
		exit
	}
}

fn addkey {
	chkctl $1
	echo adding to $1
	cat $1
	echo '# put data and ctl-D'
	read -m > $1
}

fn delkey {
	chkctl $1
	echo deleting from $1
	sed 's/key/delkey/g;s/!.*?//g;s/ *$//g' < $1
	echo '# put data and ctl-D'
	read -m > $1
}

ctl=()
f=(/mnt /mnt/term/mnt)^/factotum/ctl
if(test -w $f(1)) ctl=$f(1)

while(~ $1 -*){
	switch($1){
	case -d
		delkey $ctl
		exit
	case -a
		addkey $ctl
		exit
	case -l
		f=(/mnt /mnt/term/mnt)^/factotum
		for (x in $f)
			if(test -e $x) ls -l $x
		exit
	case -n
		auth/factotum -n
		shift
	case -n*
		auth/factotum -n
		*=-^`{echo $1 | sed 's/-n//'}
	case -*
		echo $usage
		exit usage
	}	
}

for (x in $f)
	if(test -w $x){
		echo -n '# ' && ls -l  $x
		cat $x
	}