ZONESETS += distorted
-distorted_VIEWS = inet fretwank
-distorted_inet_NETS = inet
-distorted_fretwank_NETS = fretwank
+distorted_VIEWS = inside outside
+distorted_outside_NETS = inet
+distorted_inside_NETS = fretwank
distorted_all_ZONES = distorted.org.uk io.distorted.org.uk
-distorted_fretwank_ZONES = 199.29.172.in-addr.arpa
+distorted_inside_ZONES = 199.29.172.in-addr.arpa
###--------------------------------------------------------------------------
### The harlequin.org.uk zones.
ZONESETS += harlequin
-harlequin_VIEWS = inet fretwank
-harlequin_inet_NETS = inet
-harlequin_fretwank_NETS = fretwank
+harlequin_VIEWS = inside outside
+harlequin_outside_NETS = inet
+harlequin_inside_NETS = fretwank
harlequin_all_ZONES = harlequin.org.uk
(setf *default-zone-source* 'vampire.distorted.org.uk.)
(preferred-subnet-case
- (fretwank
+ (internal
(defhost www-frontend vampire)
(defhost dns-frontend vampire))
(t
(defzone distorted.org.uk
;;
;; Nameservers.
- :ns #+view/fretwank ((vampire.ns :ip vampire))
- #-view/fretwank ((mythic-beasts-1.ns :ip mythic-ns1)
- (mythic-beasts-2.ns :ip mythic-ns2)
- (chiark.ns :ip chiark.greenend.org.uk)
- (radius.ns :ip radius.inet)
- (vampire.ns :ip vampire.inet))
+ :ns #+view/inside ((vampire.ns :ip vampire))
+ #-view/inside ((mythic-beasts-1.ns :ip mythic-ns1)
+ (mythic-beasts-2.ns :ip mythic-ns2)
+ (chiark.ns :ip chiark.greenend.org.uk)
+ (radius.ns :ip radius.inet)
+ (vampire.ns :ip vampire.inet))
;;
;; Mail servers.
((@ mail lists bugs cryptomail)
;;
;; Entry is via little router box.
(inet :net inet)
- (guvnor (inet :a guvnor.inet) (fretwank :svc gate.inet))
+ (guvnor (inet :a guvnor.inet) (internal :svc gate.inet))
(gate (inet :a gate.inet))
(nat (inet :a nat.inet))
;;
:svc www-frontend
((www ftp wiki git bugs mail db tor i2p rawk vox www-cache)
(inet :svc vampire.inet)
- (fretwank :svc vampire))
+ (internal :svc vampire))
;;
;; Internal services.
- ((ntp) (fretwank :svc ibanez))
- ((wpad ntp1 news) (fretwank :svc vampire))
+ ((ntp) (internal :svc ibanez))
+ ((wpad ntp1 news) (internal :svc vampire))
;;
;; Wired ethernet.
- (fretwank :net fretwank)
- (vampire (fretwank :a vampire)
+ (internal :net fretwank)
+ (vampire (internal :a vampire)
(inet :a vampire.inet)
(untrusted :a vampire.untrusted)
(iodine :a vampire.iodine))
- (obsidian (fretwank :a obsidian))
- (ibanez (fretwank :a ibanez)
+ (obsidian (internal :a obsidian))
+ (ibanez (internal :a ibanez)
(inet :a ibanez.inet))
- (radius (fretwank :a radius)
+ (radius (internal :a radius)
(inet :a radius.inet)
(untrusted :a radius.untrusted))
- (roadstar (fretwank :a roadstar)
+ (roadstar (internal :a roadstar)
(inet :a roadstar.inet))
- (jem (fretwank :a jem)
+ (jem (internal :a jem)
(inet :a jem.inet))
- (artist (fretwank :a artist)
+ (artist (internal :a artist)
(inet :a artist.inet))
(gibson :cname gibson.dhcp)
(lespaul :cname lespaul.dhcp)
(mz (its :a mz))
;;
;; Delegations.
- #+view/fretwank (dhcp :ns (vampire.ns))
+ #+view/inside (dhcp :ns (vampire.ns))
(io :ns ((ns.io :ip dns-frontend))))
;;;--------------------------------------------------------------------------
(defrevzone trusted
:ns ((vampire.ns :ip vampire))
:reverse trusted
- #+view/fretwank (dhcp :ns (metalzone.ns vampire.ns))
- #+view/fretwank (@ :cidr-delegation
- (dhcp
- (dhcp 199.29.172.dhcp.199.29.172.in-addr.arpa))))
+ #+view/inside (dhcp :ns (metalzone.ns vampire.ns))
+ #+view/inside (@ :cidr-delegation
+ (dhcp
+ (dhcp 199.29.172.dhcp.199.29.172.in-addr.arpa))))
(defrevzone untrusted
:ns ((vampire.ns :ip vampire))
(setf *default-zone-source* 'vampire.distorted.org.uk.)
(preferred-subnet-case
- (fretwank
- (defhost mail vampire.fretwank)
- (defhost bloghost vampire.fretwank))
+ (internal
+ (defhost mail vampire)
+ (defhost bloghost vampire))
(t
(defhost mail vampire.demon)
(defhost bloghost vampire.demon)))
(defzone harlequin.org.uk
;;
;; Nameservers
- :ns #+view/fretwank ((vampire.ns :ip vampire))
- #-view/fretwank ((mythic-beasts-1.ns :ip mythic-ns1)
- (mythic-beasts-2.ns :ip mythic-ns2)
- (radius.ns :ip radius.demon)
- (vampire.ns :ip vampire.demon))
+ :ns #+view/inside ((vampire.ns :ip vampire))
+ #-view/inside ((mythic-beasts-1.ns :ip mythic-ns1)
+ (mythic-beasts-2.ns :ip mythic-ns2)
+ (radius.ns :ip radius.demon)
+ (vampire.ns :ip vampire.demon))
;;
;; Mail servers
:mx ((mail :ip mail))