-#! /usr/bin/tclsh8.5
+#! /usr/bin/tclsh
### -*-tcl-*-
###
### Revoke a certificate request
## 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