~mdw
/
zones
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
345c0f6
)
distorted.lisp: Fix subnets for anycast service names.
author
Mark Wooding
<mdw@distorted.org.uk>
Mon, 19 Mar 2012 13:59:51 +0000
(13:59 +0000)
committer
Mark Wooding
<mdw@distorted.org.uk>
Mon, 19 Mar 2012 13:59:51 +0000
(13:59 +0000)
distorted.lisp
patch
|
blob
|
blame
|
history
diff --git
a/distorted.lisp
b/distorted.lisp
index
a39ac91
..
85c9338
100644
(file)
--- a/
distorted.lisp
+++ b/
distorted.lisp
@@
-36,16
+36,16
@@
((:kpasswd :protocol :udp) krb))
;; Anycast services. (Currently not implemented.)
((:kpasswd :protocol :udp) krb))
;; Anycast services. (Currently not implemented.)
- (dns0 (
insid
e :svc radius.unsafe)
+ (dns0 (
unsaf
e :svc radius.unsafe)
(any :a dns0.any))
(any :a dns0.any))
- (dns1 (
insid
e :svc vampire.unsafe)
+ (dns1 (
unsaf
e :svc vampire.unsafe)
(any :a dns1.any))
(any :a dns1.any))
- (ntp0 (
insid
e :svc ibanez.unsafe)
+ (ntp0 (
unsaf
e :svc ibanez.unsafe)
(any :a ntp0.any))
(any :a ntp0.any))
- (ntp1 (
insid
e :svc vampire.unsafe)
+ (ntp1 (
unsaf
e :svc vampire.unsafe)
(any :a ntp1.any))
(www-cache (dmz :svc vampire.dmz)
(any :a ntp1.any))
(www-cache (dmz :svc vampire.dmz)
- (
insid
e :svc vampire.unsafe)
+ (
unsaf
e :svc vampire.unsafe)
(any :a www-cache.any))
(dns :cname dns0)
(ntp :cname ntp0)
(any :a www-cache.any))
(dns :cname dns0)
(ntp :cname ntp0)