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: Fix which network ranges are announced.
[zones]
/
distorted.lisp
diff --git
a/distorted.lisp
b/distorted.lisp
index e9ac72890f7b4656406ca3bab2a09cc0a3993195..86c0e3a78cbfcca29b711c5a2c86d3922f1f8aea 100644
(file)
--- a/
distorted.lisp
+++ b/
distorted.lisp
@@
-80,7
+80,9
@@
(defzone distorted.org.uk
(jump :a jazz.jump))
;; Wired ethernet.
(jump :a jazz.jump))
;; Wired ethernet.
- (wired :net wired)
+ (unsafe :net unsafe)
+ (safe :net safe)
+ (untrusted :net untrusted)
(vampire (unsafe :a vampire.unsafe)
(dmz :a vampire.dmz)
(untrusted :a vampire.untrusted)
(vampire (unsafe :a vampire.unsafe)
(dmz :a vampire.dmz)
(untrusted :a vampire.untrusted)
@@
-128,8
+130,8
@@
(defrevzone trusted
(vampire.ns :ip vampire))
:reverse trusted
(dhcp :ns (radius.ns vampire.ns))
(vampire.ns :ip vampire))
:reverse trusted
(dhcp :ns (radius.ns vampire.ns))
-
(@
:cidr-delegation
-
(dhcp (dhcp 199.29.172.dhcp.199.29.172.in-addr.arpa)
)))
+ :cidr-delegation
+
(trusted ((dhcp safe) 199.29.172.dhcp.199.29.172.in-addr.arpa
)))
(defrevzone dmz
:ns ((radius.ns :ip radius)
(defrevzone dmz
:ns ((radius.ns :ip radius)