bin/*: Use plain `/usr/bin/tclsh' in shebang lines.

[ca] / bin / withdraw

diff --git a/bin/withdraw b/bin/withdraw
index ed6e740..fbbb75c 100755 (executable)
--- a/bin/withdraw
+++ b/bin/withdraw
@@ -1,4 +1,4 @@
-#! /usr/bin/tclsh8.5
+#! /usr/bin/tclsh
 ### -*-tcl-*-
 ###
 ### Revoke a certificate request
@@ -25,9 +25,14 @@
 ## Find the common utilities.
 source [file join [file dirname $argv0] "../lib/func.tcl"]
 
+## Open the database
+sqlite3 db "$CERTROOT/state/ca.db"
+db nullvalue nil
+cd "$CERTROOT"
+
 ## Get the list of requests.
 if {[llength $argv] != 1} {
-  puts stderr "Usage: $QUIS REQID"
+  puts stderr "usage: $QUIS REQID"
   exit 1
 }
 lassign $argv reqid