etc/config.tcl: New (better?) upload arrangements.

diff --git a/etc/config.tcl b/etc/config.tcl
index 1c0a16c6463effd06246420d4bd4487192dc8594..ee8dd31c70f3b48161108327261c8c9f3b2cd361 100644 (file)
--- a/etc/config.tcl
+++ b/etc/config.tcl
@@ -34,6 +34,10 @@ set P(tls-server-longterm) {
 }
 
 proc update-hook {} {
 }
 
 proc update-hook {} {

-  exec 2>@stderr rsync -av --delete-after ca.cert crl cert req publish/
-  exec 2>@stderr userv root publish-ca
+  global env
+  if {![info exists env(CA_BODGE)]} {
+    exec 2>@stderr rsync -rtv --delete-delay \
+       ca.cert crl cert req archive \
+       sysupl-ca@stratocaster.distorted.org.uk:files/
+  }

 }
 }