From 2e44c19f45a7019e5d581b8e5e1e44c86e7f729f Mon Sep 17 00:00:00 2001
From: cricket <cricket@template_etch_i386.(none)>
Date: Wed, 3 Mar 2010 05:06:38 +0100
Subject: [PATCH] add are you sure check in revoke

---
 door/isvalid.lua |  2 +-
 door/revoke.lua  | 10 ++++++++--
 www/opendoor     |  2 +-
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/door/isvalid.lua b/door/isvalid.lua
index d9d7474..18ff2a8 100644
--- a/door/isvalid.lua
+++ b/door/isvalid.lua
@@ -36,7 +36,7 @@ end
 
 tokencount = tonumber(tokencount)
 if tokencount == 0 then
-    print "mo token found in database."
+    print "token not found in database."
   elseif tokencount == 1 then
     print "token found. token is valid."
   else
diff --git a/door/revoke.lua b/door/revoke.lua
index 1be063c..76d2995 100644
--- a/door/revoke.lua
+++ b/door/revoke.lua
@@ -33,9 +33,15 @@ if 0 == con:execute("select ttl from tokens where prefix='"..prefix.."';"):numro
   exit(env,con)
 end
 
-assert(con:execute("delete from tokens where prefix='"..prefix.."';"))
+io.stdout:write("are you sure you want to delete all tokens with prefix '" .. prefix .. "': [yes|no] ")
+answer = io.stdin:read()
+if answer == "yes" then
+  assert(con:execute("delete from tokens where prefix='"..prefix.."'; delete from graveyard where prefix='"..prefix.."';"))
+  print "* token removed"
+  exit(env,con)
+end
 
-print "* token removed"
+print "* action canceled"
 
 exit(env,con)
 
diff --git a/www/opendoor b/www/opendoor
index 07cb95b..90cc98a 100644
--- a/www/opendoor
+++ b/www/opendoor
@@ -1,7 +1,7 @@
 #!/bin/sh
 echo "* try to open tronlab's moleflap"
 
-HOST='moleflap'
+HOST='moleflap.hq.c3d2.de'
 STORE=~/.moletoken.c3d2
 
 if [ -e $STORE ]