| 1 | ;;; Zone file for distorted.org.uk |
| 2 | |
| 3 | (load "hosts.lisp" :verbose nil) |
| 4 | |
| 5 | ;;;-------------------------------------------------------------------------- |
| 6 | ;;; Other definitions. |
| 7 | |
| 8 | (setf *default-zone-admin* "hostmaster@distorted.org.uk") |
| 9 | |
| 10 | (setf *default-zone-source* 'radius.distorted.org.uk.) |
| 11 | |
| 12 | ;;;-------------------------------------------------------------------------- |
| 13 | ;;; Main zone definition. |
| 14 | |
| 15 | (defzone distorted.org.uk |
| 16 | |
| 17 | ;; Nameservers. |
| 18 | :ns #+view/inside ((radius.ns :ip radius) |
| 19 | (vampire.ns :ip vampire)) |
| 20 | #-view/inside ((radius.ns :ip radius) |
| 21 | (vampire.ns :ip vampire) |
| 22 | (mythic-beasts-1.ns :ip mythic-ns1) |
| 23 | (mythic-beasts-2.ns :ip mythic-ns2) |
| 24 | (chiark.ns :ip chiark.greenend.org.uk)) |
| 25 | |
| 26 | ;; Mail servers. |
| 27 | ((@ mail lists bugs cryptomail) |
| 28 | :mx mail |
| 29 | :srv ((:smtp mail))) |
| 30 | |
| 31 | ;; Kerberos. |
| 32 | (_kerberos :txt "DISTORTED.ORG.UK") |
| 33 | :srv (((:kerberos :protocol :udp) krb) |
| 34 | ((:kerberos-master :protocol :udp :port 88) krb) |
| 35 | (:kerberos-adm krb) |
| 36 | ((:kpasswd :protocol :udp) krb)) |
| 37 | |
| 38 | ;; Other services. |
| 39 | :srv ((:http www) |
| 40 | (:ftp ftp)) |
| 41 | |
| 42 | ;; Entry is via little router box. |
| 43 | (dmz :net dmz) |
| 44 | (guvnor (inside :svc gate.dmz) (dmz :a guvnor.dmz)) |
| 45 | (anon (dmz :a anon.dmz)) |
| 46 | (gate (dmz :a gate.dmz)) |
| 47 | (nat (dmz :a nat.dmz)) |
| 48 | |
| 49 | ;; Wireless gateway. |
| 50 | (wireless :net wireless) |
| 51 | (evolution (untrusted :a evolution.untrusted)) |
| 52 | |
| 53 | ;; Local services. |
| 54 | :svc vampire |
| 55 | ((www krb ftp rsync wiki git bugs mail db i2p rawk vox www-cache) |
| 56 | :svc vampire) |
| 57 | |
| 58 | ;; Internal services. |
| 59 | #+view/inside ((ntp) :svc ibanez.unsafe) |
| 60 | #+view/inside ((wpad ntp1 news) :svc vampire.unsafe) |
| 61 | |
| 62 | ;; Anonymity services. |
| 63 | (tor :svc #+view/inside vampire.unsafe |
| 64 | #-view/inside anon.dmz) |
| 65 | |
| 66 | ;; Wired ethernet. |
| 67 | (wired :net wired) |
| 68 | (vampire (unsafe :a vampire.unsafe) |
| 69 | (dmz :a vampire.dmz) |
| 70 | (untrusted :a vampire.untrusted) |
| 71 | (iodine :a vampire.iodine)) |
| 72 | (obsidian (safe :a obsidian.safe)) |
| 73 | (ibanez (unsafe :a ibanez.unsafe) |
| 74 | (dmz :a ibanez.dmz)) |
| 75 | (radius (unsafe :a radius.unsafe) |
| 76 | (dmz :a radius.dmz) |
| 77 | (untrusted :a radius.untrusted)) |
| 78 | (roadstar (unsafe :a roadstar.unsafe) |
| 79 | (dmz :a roadstar.dmz)) |
| 80 | (jem (unsafe :a jem.unsafe) |
| 81 | (dmz :a jem.dmz)) |
| 82 | (artist (unsafe :a artist.unsafe) |
| 83 | (dmz :a artist.dmz)) |
| 84 | |
| 85 | ;; DHCP hosts. |
| 86 | (gibson :cname gibson.dhcp) |
| 87 | (lespaul :cname lespaul.dhcp) |
| 88 | (firebird :cname firebird.dhcp) |
| 89 | (marauder :cname marauder.dhcp) |
| 90 | (invader :cname invader.dhcp) |
| 91 | |
| 92 | ;; Virtual network. |
| 93 | (virtual :net virtual) |
| 94 | (crybaby (virtual :a crybaby.virtual)) |
| 95 | (terror (virtual :a terror.virtual)) |
| 96 | (iodine :net iodine) |
| 97 | |
| 98 | ;; ITS. |
| 99 | (its :net its) |
| 100 | (gw (its :a gw.its)) |
| 101 | (mz (its :a mz.its)) |
| 102 | |
| 103 | ;; Delegations. |
| 104 | #+view/inside (dhcp :ns (radius.ns vampire.ns)) |
| 105 | (io :ns ((ns.io :ip vampire)))) |
| 106 | |
| 107 | ;;;-------------------------------------------------------------------------- |
| 108 | ;;; Other subsidiary zones. |
| 109 | |
| 110 | (defrevzone trusted |
| 111 | :ns ((radius.ns :ip radius) |
| 112 | (vampire.ns :ip vampire)) |
| 113 | :reverse trusted |
| 114 | (dhcp :ns (radius.ns vampire.ns)) |
| 115 | (@ :cidr-delegation |
| 116 | (dhcp (dhcp 199.29.172.dhcp.199.29.172.in-addr.arpa)))) |
| 117 | |
| 118 | (defrevzone dmz |
| 119 | :ns ((radius.ns :ip radius) |
| 120 | (vampire.ns :ip vampire)) |
| 121 | :reverse dmz) |
| 122 | |
| 123 | (defzone io.distorted.org.uk |
| 124 | :ns ((ns :ip vampire)) |
| 125 | (about :txt "Fake zone used for IP-over-DNS tunnelling.")) |
| 126 | |
| 127 | ;;;----- That's all, folks -------------------------------------------------- |