X-Git-Url: https://git.distorted.org.uk/~mdw/ca/blobdiff_plain/69ab55f79b5b6109be503ff8d61fba82b1468360..1f46e0424b4431efa6b2521d82dc8ed371bb10d2:/bin/update

diff --git a/bin/update b/bin/update
index 7031c25..a0a96e5 100755
--- a/bin/update
+++ b/bin/update
@@ -1,4 +1,4 @@
-#! /usr/bin/tclsh8.5
+#! /usr/bin/tclsh
 ### -*-tcl-*-
 ###
 ### Run periodic maintenance on the certificate database
@@ -30,6 +30,9 @@ sqlite3 db "$CERTROOT/state/ca.db"
 db nullvalue nil
 cd "$CERTROOT"
 
+## Refresh the database's idea of request profiles.
+sync-profiles
+
 ## Reissue certificates for requests which need it.
 set now [now]
 set now_db [time-db $now]
@@ -50,6 +53,10 @@ archive-certificates
 exec openssl ca -config "etc/openssl.conf" -updatedb 2>@1
 
 ## Generate a CRL.
-exec openssl ca -config "etc/openssl.conf" -gencrl -out "crl" 2>@1
+exec openssl ca -config "etc/openssl.conf" -gencrl | \
+    openssl crl -text -out "crl" 2>@1
+
+## Call the user hook.
+update-hook
 
 ###----- That's all, folks --------------------------------------------------