From 2959e1ede0ebc6fdffd7b8660f43c2ce14c9696f Mon Sep 17 00:00:00 2001
From: Taru Karttunen <taruti@taruti.net>
Date: Wed, 30 Mar 2011 17:14:36 +0300
Subject: Import sources from 2011-03-30 iso image - rc

---
 rc/bin/delkey | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100755 rc/bin/delkey

(limited to 'rc/bin/delkey')

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 ''
-- 
cgit v1.2.3