chiark
/
gitweb
/
~mdw
/
zones
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
distorted.lisp: New zone for dynamic DNS service.
[zones]
/
distorted.lisp
diff --git
a/distorted.lisp
b/distorted.lisp
index ea59424749aa628b0be204601ecc2fa4453e5dd4..acf66c62290295c338e9e791e1207283d401054e 100644
(file)
--- a/
distorted.lisp
+++ b/
distorted.lisp
@@
-97,14
+97,18
@@
(defzone distorted.org.uk
;; Colocated services.
(irc (colo :svc jazz.colo)
(jump :svc jazz.jump))
;; Colocated services.
(irc (colo :svc jazz.colo)
(jump :svc jazz.jump))
- (git (colo :svc stratocaster.colo)
- (jump :svc stratocaster.jump))
+ ((git www) (colo :svc stratocaster.colo)
+ (jump :svc stratocaster.jump))
+ :svc #+view/inside stratocaster.colo
+ #-view/inside stratocaster.jump
(cabal :svc stratocaster.colo)
;; Local services.
(rawk (unsafe :svc artist.unsafe)
(dmz :svc artist.dmz))
(cabal :svc stratocaster.colo)
;; Local services.
(rawk (unsafe :svc artist.unsafe)
(dmz :svc artist.dmz))
- ((@ www ftp rsync wiki bugs mail db i2p vox) :svc vampire)
+ (pifi (vpn :svc orange.vpn)
+ (dmz :svc artist.dmz))
+ ((ftp rsync wiki bugs mail db i2p vox) :svc vampire)
;; Internal services.
#+view/inside ((news lpr) :svc vampire.unsafe)
;; Internal services.
#+view/inside ((news lpr) :svc vampire.unsafe)
@@
-184,6
+188,9
@@
(defzone distorted.org.uk
(dhcp :ns ((radius.ns.dhcp :ip radius)
(precision.ns.dhcp :ip precision)
(vampire.ns.dhcp :ip vampire)))
(dhcp :ns ((radius.ns.dhcp :ip radius)
(precision.ns.dhcp :ip precision)
(vampire.ns.dhcp :ip vampire)))
+ (dyn :ns ((radius.ns.dyn :ip radius)
+ (precision.ns.dyn :ip precision)
+ (vampire.ns.dyn :ip vampire)))
(dnserr :ns ((radius.ns.dnserr :ip radius.dmz)
(precision.ns.dnserr :ip precision.jump)
(vampire.ns.dnserr :ip vampire.dmz)))
(dnserr :ns ((radius.ns.dnserr :ip radius.dmz)
(precision.ns.dnserr :ip precision.jump)
(vampire.ns.dnserr :ip vampire.dmz)))