~mdw
/
zones
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d9fb283
)
distorted.lisp: Abbreviate the certificate pathnames.
author
Mark Wooding
<mdw@distorted.org.uk>
Tue, 23 Dec 2014 11:58:20 +0000
(11:58 +0000)
committer
Mark Wooding
<mdw@distorted.org.uk>
Tue, 23 Dec 2014 11:58:20 +0000
(11:58 +0000)
distorted.lisp
patch
|
blob
|
blame
|
history
diff --git
a/distorted.lisp
b/distorted.lisp
index
5dde19a
..
5ab6be1
100644
(file)
--- a/
distorted.lisp
+++ b/
distorted.lisp
@@
-139,17
+139,14
@@
((git www mail) (colo :svc stratocaster.colo :sshfp "stratocaster")
(jump :svc stratocaster.jump :sshfp "stratocaster"))
((www @) :tlsa (:https (:service-certificate-constraint
((git www mail) (colo :svc stratocaster.colo :sshfp "stratocaster")
(jump :svc stratocaster.jump :sshfp "stratocaster"))
((www @) :tlsa (:https (:service-certificate-constraint
- :certificate :sha-256
- #p"certs/http-server-www#1.cert")))
+ :certificate :sha-256 #p"http-server-www#1")))
(git :tlsa (:https (:trust-anchor-assertion
(git :tlsa (:https (:trust-anchor-assertion
- :certificate :sha-256
- #p"certs/distorted-ca.cert")))
+ :certificate :sha-256 #p"distorted-ca")))
(www-cache :tlsa (3127 (:trust-anchor-assertion
(www-cache :tlsa (3127 (:trust-anchor-assertion
- :certificate :sha-256
- #p"certs/distorted-ca.cert")))
- (mail :tlsa ((:smtp :submission :imap) (:trust-anchor-assertion
- :certificate :sha-256
- #p"certs/distorted-ca.cert")))
+ :certificate :sha-256 #p"distorted-ca")))
+ (mail :tlsa ((:smtp :submission :imap)
+ (:trust-anchor-assertion
+ :certificate :sha-256 #p"distorted-ca")))
:svc #+view/inside stratocaster.colo
#-view/inside stratocaster.jump
(cabal :svc stratocaster.colo :sshfp "stratocaster")
:svc #+view/inside stratocaster.colo
#-view/inside stratocaster.jump
(cabal :svc stratocaster.colo :sshfp "stratocaster")