Re: [9front] delkey(1)

[arisawa <arisawa@ar.aichi-u.ac.jp>]

Hello

> 2015/09/30 7:21、Julius Schmidt <aiju@phicode.de> のメール：
> 
> delkey(1) strikes me as stupid.
> it should be more like
> 
> % delkey
> echo 'delkey proto=hj user=dicks' >/mnt/factotum/ctl
> echo 'delkey proto=p9sk1 user=glenda' > /mnt/factotum/ctl
> etc
> 
> instead of the silly yes/no prompting.

I love the script below.

hebe% cat /usr/local/bin/rc/fact
#!/bin/rc
#
#	fact is a tool to manage factotum. 
#

rfork e

usage='usage: fact [-adl]'
fn addkey {
	echo adding to $1
	cat $1
	echo '# put data and RETURN'
	awk '/^$/{exit} /.+/{print}' | read -m >/$1
#	awk '/^$/{exit} /.+/{print}' >/$1
}

fn delkey {
	echo deleting from $1
	#sed s/key/delkey/g < $1
	sed 's/key/delkey/g;s/!.*?//g' < $1
	echo '# send and RETURN'
	awk '/^$/{exit} /.+/{print}' | read -m > $1
#	awk '/^$/{exit} /.+/{print}' > $1
}

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

while(~ $1 -*){
	switch($1){
	case	-d
		delkey $ctl
		exit
	case	-d1
		delkey $f(1)
		exit
	case	-d2
		delkey $f(2)
		exit
	case -a
		addkey $ctl
		exit
	case -a1
		addkey $f(1)
		exit
	case -a2
		addkey $f(2)
		exit
	case -l
		f=(/mnt /mnt/term/mnt)^/factotum
		for (x in $f)
			if(test -e $x) ls -l $x
		exit
	case -*
		echo $usage
		exit usage
	}	
	shift
}

for (x in $f)
	if(test -w $x){
		ls -l $x
		cat $x
	}
hebe%