From 7e0f58bf390f14e3ff92dd4d260b57bd45715643 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 5 Apr 2015 15:09:03 +0100
Subject: [PATCH] etc/config.tcl: New (better?) upload arrangements.

---
 etc/config.tcl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/etc/config.tcl b/etc/config.tcl
index 1c0a16c..ee8dd31 100644
--- a/etc/config.tcl
+++ b/etc/config.tcl
@@ -34,6 +34,10 @@ set P(tls-server-longterm) {
 }
 
 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/
+  }
 }
-- 
2.11.0