Import sources from 2011-03-30 iso image - rc

1 files changed, 52 insertions, 0 deletions

diff --git a/rc/bin/delkey b/rc/bin/delkey
new file mode 100755
index 000000000..c80af6a7b
--- /dev/null
+++ b/rc/bin/delkey
@@ -0,0 +1,52 @@
+#!/bin/rc
+
+rfork e
+
+ctl = /mnt/factotum/ctl
+if(test -r /mnt/term/mnt/factotum/ctl)
+	ctl = /mnt/term/mnt/factotum/ctl
+
+fn forceit {
+	switch($force){
+	case no
+		echo -n $* '? [y/n]' > /dev/cons
+		ok = `{read}
+		switch($ok){
+		case y* Y*
+			echo yes
+		case q* Q*
+			exit ''
+		case *
+			echo no
+		}
+	case *
+		echo yes
+	}
+}
+
+fn deleteit {
+	key = `{echo $* | sed 's/ ![0-9a-zA-Z_]+\??/ /g' | sed 's/ +$//'}
+	if(~ `{forceit del$key} yes)
+		if(! echo del$key > $ctl)
+			exit bad
+}
+
+force = no
+
+if(~ $1 '-f'){
+	force = yes
+	shift
+}
+
+ifs='
+'
+
+if(~ $#* 0){
+	for(i in `{cat $ctl})
+		deleteit $i
+	exit ''
+}
+
+for(i in `{grep $"* $ctl})
+	deleteit $i
+exit ''