| | 1 | ;;; Zone file for distorted.org.uk |
| | 2 | |
| | 3 | (load "hosts.lisp" :verbose nil) |
| | 4 | |
| | 5 | ;;;-------------------------------------------------------------------------- |
| | 6 | ;;; Anycast services. |
| | 7 | |
| | 8 | (defvar *anycast-routable-families* (list :ipv6)) |
| | 9 | |
| | 10 | (defzoneparse :anycast (name data rec :prefix prefix :zname zname) |
| | 11 | (destructuring-bind (any-provider default-provider &rest other-providers) |
| | 12 | data |
| | 13 | |
| | 14 | ;; First, the default address. If the anycast network is preferred then |
| | 15 | ;; this is easy; otherwise we have something complicated to do because |
| | 16 | ;; IPv6 anycast addresses are globally routable, while IPv4 ones aren't. |
| | 17 | (if (zone-preferred-subnet-p (car any-provider)) |
| | 18 | (zone-set-address #'rec (cdr any-provider) :make-ptr-p t) |
| | 19 | (do-host (addr (cdr any-provider)) |
| | 20 | (let ((family (ipaddr-family addr))) |
| | 21 | (if (member family *anycast-routable-families*) |
| | 22 | (zone-set-address #'rec addr |
| | 23 | :family family :make-ptr-p t) |
| | 24 | (zone-set-address #'rec (cdr default-provider) |
| | 25 | :family family :make-ptr-p nil))))) |
| | 26 | |
| | 27 | ;; Now for all of the others. |
| | 28 | (dolist (provider (list* any-provider default-provider other-providers)) |
| | 29 | (zone-set-address #'rec (cdr provider) |
| | 30 | :make-ptr-p (eq provider any-provider) |
| | 31 | :name (domain-name-concat prefix |
| | 32 | (zone-parse-host |
| | 33 | (car provider) |
| | 34 | zname)))))) |
| | 35 | |
| | 36 | ;;;-------------------------------------------------------------------------- |
| | 37 | ;;; Other definitions. |
| | 38 | |
| | 39 | (setf *default-zone-admin* "hostmaster@distorted.org.uk") |
| | 40 | |
| | 41 | (setf *default-zone-source* 'radius.distorted.org.uk.) |
| | 42 | |
| | 43 | ;;;-------------------------------------------------------------------------- |
| | 44 | ;;; Main zone definition. |
| | 45 | |
| | 46 | (defzone distorted.org.uk |
| | 47 | |
| | 48 | ;; Nameservers. |
| | 49 | :ns #+view/inside ((radius.ns :ip radius) |
| | 50 | (precision.ns :ip precision) |
| | 51 | (telecaster.ns :ip telecaster) |
| | 52 | (vampire.ns :ip vampire)) |
| | 53 | #-view/inside ((radius.ns :ip radius) |
| | 54 | (precision.ns :ip precision) |
| | 55 | (telecaster.ns :ip telecaster) |
| | 56 | (mythic-beasts-1.ns :ip mythic-ns1) |
| | 57 | (mythic-beasts-2.ns :ip mythic-ns2) |
| | 58 | (chiark.ns :ip chiark.greenend.org.uk)) |
| | 59 | |
| | 60 | ;; Mail servers. |
| | 61 | ((@ mail blackhole) |
| | 62 | :mx mail |
| | 63 | :srv ((:smtp mail))) |
| | 64 | ((lists bugs cryptomail) |
| | 65 | :ttl 300 |
| | 66 | :mx mail |
| | 67 | :srv ((:smtp old-mail))) |
| | 68 | |
| | 69 | (stratocaster.20140403._domainkey |
| | 70 | :dkim ("stratocaster-20140403" |
| | 71 | :v "DKIM1" :k "rsa" :h "sha256" :s "email")) |
| | 72 | |
| | 73 | ;; Anycast services. |
| | 74 | (dns0 :anycast ((any dns0.any) |
| | 75 | (jump precision.jump) |
| | 76 | (colo precision.colo) |
| | 77 | (dmz radius.dmz) |
| | 78 | (unsafe radius.unsafe))) |
| | 79 | (dns1 :anycast ((any dns1.any) |
| | 80 | (jump telecaster.jump) |
| | 81 | (dmz vampire.dmz) |
| | 82 | (unsafe vampire.unsafe) |
| | 83 | (colo telecaster.colo))) |
| | 84 | (dns :cname dns0) |
| | 85 | |
| | 86 | (ntp0 :anycast ((any ntp0.any) |
| | 87 | (jump fender.jump) |
| | 88 | (dmz ibanez.dmz) |
| | 89 | (unsafe ibanez.unsafe) |
| | 90 | (colo fender.colo))) |
| | 91 | (ntp1 :anycast ((any ntp1.any) |
| | 92 | (dmz vampire.dmz) |
| | 93 | (unsafe vampire.unsafe))) |
| | 94 | (ntp :cname ntp0) |
| | 95 | |
| | 96 | (www-cache :anycast ((any www-cache.any) |
| | 97 | (jump telecaster.jump) |
| | 98 | (dmz roadstar.dmz) |
| | 99 | (unsafe roadstar.unsafe) |
| | 100 | (colo telecaster.colo))) |
| | 101 | (wpad :cname www-cache) |
| | 102 | |
| | 103 | (_kerberos :txt "DISTORTED.ORG.UK") |
| | 104 | (krb0 :anycast ((any krb0.any) |
| | 105 | (jump precision.jump) |
| | 106 | (dmz radius.dmz) |
| | 107 | (unsafe radius.unsafe) |
| | 108 | (colo precision.colo))) |
| | 109 | (krb1 :anycast ((any krb1.any) |
| | 110 | (dmz vampire.dmz) |
| | 111 | (unsafe vampire.unsafe))) |
| | 112 | (krb-master (unsafe :svc radius.unsafe) |
| | 113 | (dmz :svc radius.dmz)) |
| | 114 | :srv (((:kerberos :protocol :udp) |
| | 115 | krb0 |
| | 116 | (krb1 :prio 100)) |
| | 117 | ((:kerberos-master :protocol :udp :port 88) krb-master) |
| | 118 | (:kerberos-adm krb-master) |
| | 119 | ((:kpasswd :protocol :udp) krb-master)) |
| | 120 | (krb :cname krb0) |
| | 121 | |
| | 122 | ;; Other services. |
| | 123 | :srv ((:http www) |
| | 124 | (:ftp ftp)) |
| | 125 | |
| | 126 | ;; Entry is via little router box. |
| | 127 | (dmz :net dmz) |
| | 128 | (guvnor (dmz :addr guvnor.dmz)) |
| | 129 | (nat (dmz :addr nat.dmz)) |
| | 130 | |
| | 131 | ;; Wireless gateway. |
| | 132 | (wireless :net wireless) |
| | 133 | (evolution (safe :addr evolution.safe)) |
| | 134 | (evolution :alias evo) |
| | 135 | |
| | 136 | ;; Colocated services. |
| | 137 | ((irc vox) (colo :svc jazz.colo :sshfp "jazz") |
| | 138 | (jump :svc jazz.jump :sshfp "jazz")) |
| | 139 | ((git www mail) (colo :svc stratocaster.colo :sshfp "stratocaster") |
| | 140 | (jump :svc stratocaster.jump :sshfp "stratocaster")) |
| | 141 | ((www @) :tlsa (:https (:service-certificate-constraint |
| | 142 | :certificate :sha-256 #p"http-server-www#1"))) |
| | 143 | (git :tlsa (:https (:trust-anchor-assertion |
| | 144 | :certificate :sha-256 #p"distorted-ca"))) |
| | 145 | (www-cache :tlsa (3127 (:trust-anchor-assertion |
| | 146 | :certificate :sha-256 #p"distorted-ca"))) |
| | 147 | (mail :tlsa ((:smtp :submission :imap) |
| | 148 | (:trust-anchor-assertion |
| | 149 | :certificate :sha-256 #p"distorted-ca"))) |
| | 150 | :svc #+view/inside stratocaster.colo |
| | 151 | #-view/inside stratocaster.jump |
| | 152 | (cabal :svc stratocaster.colo :sshfp "stratocaster") |
| | 153 | ((db ftp) (colo :svc telecaster.colo :sshfp "telecaster") |
| | 154 | (jump :svc telecaster.jump :sshfp "telecaster")) |
| | 155 | (dyndns :svc telecaster.jump :sshfp "telecaster") |
| | 156 | |
| | 157 | ;; Local services. |
| | 158 | ((rawk pifi) (unsafe :svc artist.unsafe) |
| | 159 | (dmz :svc artist.dmz)) |
| | 160 | (mirror (dmz :svc roadstar.dmz :sshfp "roadstar") |
| | 161 | (unsafe :svc roadstar.unsafe :sshfp "roadstar")) |
| | 162 | ((wiki bugs old-mail i2p) :svc vampire :sshfp "vampire") |
| | 163 | |
| | 164 | ;; Internal services. |
| | 165 | #+view/inside ((news lpr) :svc vampire.unsafe :sshfp "vampire") |
| | 166 | |
| | 167 | ;; Anonymity services. |
| | 168 | (anon (colo :svc jazz.colo) |
| | 169 | (unsafe :svc vampire.unsafe) |
| | 170 | (jump :addr anon.jump) |
| | 171 | (dmz :addr anon.dmz)) |
| | 172 | |
| | 173 | ;; Fancy connectivity. |
| | 174 | (iodine (jump :svc jazz.jump)) |
| | 175 | |
| | 176 | ;; Colocated hosts. |
| | 177 | (colo :net colo) |
| | 178 | (jump :net jump) |
| | 179 | (gate (jump :addr gate.jump :sshfp "precision")) |
| | 180 | (fender (colo :addr fender.colo :sshfp "fender") |
| | 181 | (jump :addr fender.jump :sshfp "fender")) |
| | 182 | (precision (colo :addr precision.colo :sshfp "precision") |
| | 183 | (jump :addr precision.jump :sshfp "precision")) |
| | 184 | (telecaster (colo :addr telecaster.colo :sshfp "telecaster") |
| | 185 | (jump :addr telecaster.jump :sshfp "telecaster")) |
| | 186 | (telecaster :alias tele) |
| | 187 | (stratocaster (colo :addr stratocaster.colo :sshfp "stratocaster") |
| | 188 | (jump :addr stratocaster.jump :sshfp "stratocaster")) |
| | 189 | (stratocaster :alias strat) |
| | 190 | (jazz (colo :addr jazz.colo :sshfp "jazz") |
| | 191 | (jump :addr jazz.jump :sshfp "jazz") |
| | 192 | (iodine :addr jazz.iodine :sshfp "jazz")) |
| | 193 | |
| | 194 | ;; Media server (on loan to Good Technology HSTG). |
| | 195 | (jaguar (jump :addr jaguar.jump :sshfp "jaguar")) |
| | 196 | |
| | 197 | ;; Nicko's server. |
| | 198 | (richmond (jump :svc richmond.jump)) |
| | 199 | |
| | 200 | ;; Wired ethernet. |
| | 201 | (unsafe :net unsafe) |
| | 202 | (safe :net safe) |
| | 203 | (untrusted :net untrusted) |
| | 204 | (vampire (unsafe :addr vampire.unsafe :sshfp "vampire") |
| | 205 | (dmz :addr vampire.dmz :sshfp "vampire") |
| | 206 | (safe :addr vampire.safe :sshfp "vampire") |
| | 207 | (untrusted :addr vampire.untrusted :sshfp "vampire")) |
| | 208 | (ibanez (unsafe :addr ibanez.unsafe :sshfp "ibanez") |
| | 209 | (dmz :addr ibanez.dmz :sshfp "ibanez")) |
| | 210 | (radius (unsafe :addr radius.unsafe :sshfp "radius") |
| | 211 | (dmz :addr radius.dmz :sshfp "radius") |
| | 212 | (safe :addr radius.safe :sshfp "radius") |
| | 213 | (untrusted :addr radius.untrusted :sshfp "radius")) |
| | 214 | (roadstar (unsafe :addr roadstar.unsafe :sshfp "roadstar") |
| | 215 | (dmz :addr roadstar.dmz :sshfp "roadstar")) |
| | 216 | (jem (unsafe :addr jem.unsafe :sshfp "jem") |
| | 217 | (dmz :addr jem.dmz :sshfp "jem")) |
| | 218 | (artist (unsafe :addr artist.unsafe :sshfp "artist") |
| | 219 | (dmz :addr artist.dmz :sshfp "artist") |
| | 220 | (untrusted :addr artist.untrusted :sshfp "artist")) |
| | 221 | |
| | 222 | ;; DHCP hosts. |
| | 223 | (gibson :cname gibson.dhcp) |
| | 224 | (lespaul :cname lespaul.dhcp) |
| | 225 | (firebird :cname firebird.dhcp) |
| | 226 | (marauder :cname marauder.dhcp) |
| | 227 | (invader :cname invader.dhcp) |
| | 228 | |
| | 229 | ;; Virtual network. |
| | 230 | (vpn :net vpn) |
| | 231 | (crybaby (vpn :addr crybaby.vpn :sshfp "crybaby")) |
| | 232 | (terror (vpn :addr terror.vpn :sshfp "terror")) |
| | 233 | (orange (vpn :addr orange.vpn :sshfp "orange")) |
| | 234 | (haze (vpn :addr haze.vpn :sshfp "haze")) |
| | 235 | (iodine :net iodine) |
| | 236 | |
| | 237 | ;; ITS. |
| | 238 | (its :net its) |
| | 239 | (gw (its :addr gw.its)) |
| | 240 | (mz (its :addr mz.its)) |
| | 241 | |
| | 242 | ;; Strange things. |
| | 243 | (blackhole (jump :addr blackhole.jump)) |
| | 244 | |
| | 245 | ;; Delegations. |
| | 246 | (dhcp :ns ((radius.ns.dhcp :ip radius) |
| | 247 | (precision.ns.dhcp :ip precision) |
| | 248 | (telecaster.ns.dhcp :ip telecaster) |
| | 249 | (vampire.ns.dhcp :ip vampire))) |
| | 250 | (dyn :ns ((radius.ns.dyn :ip radius) |
| | 251 | (precision.ns.dyn :ip precision) |
| | 252 | (telecaster.ns.dyn :ip telecaster) |
| | 253 | (vampire.ns.dyn :ip vampire))) |
| | 254 | (dnserr :ns ((radius.ns.dnserr :ip radius.dmz) |
| | 255 | (precision.ns.dnserr :ip precision.jump) |
| | 256 | (telecaster.ns.dnserr :ip telecaster) |
| | 257 | (vampire.ns.dnserr :ip vampire.dmz))) |
| | 258 | (io :ns ((ns.io :ip jazz.jump)))) |
| | 259 | |
| | 260 | ;;;-------------------------------------------------------------------------- |
| | 261 | ;;; Other subsidiary zones. |
| | 262 | |
| | 263 | (defzone dhcp.distorted.org.uk |
| | 264 | (gibson :addr gibson.unsafe) |
| | 265 | (lespaul :addr lespaul.safe) |
| | 266 | (invader :addr invader.safe) |
| | 267 | (marauder :addr marauder.safe)) |
| | 268 | |
| | 269 | (defzone nicko.org |
| | 270 | (richmond :addr richmond.jump)) |
| | 271 | |
| | 272 | (defrevzone trusted |
| | 273 | :ns (radius.distorted.org.uk. |
| | 274 | precision.distorted.org.uk. |
| | 275 | telecaster.distorted.org.uk. |
| | 276 | vampire.distorted.org.uk.) |
| | 277 | :reverse unsafe |
| | 278 | :reverse vpn |
| | 279 | :reverse colo |
| | 280 | :reverse its |
| | 281 | :reverse any |
| | 282 | (dhcp :ns (radius.distorted.org.uk. |
| | 283 | precision.distorted.org.uk. |
| | 284 | telecaster.distorted.org.uk. |
| | 285 | vampire.distorted.org.uk.)) |
| | 286 | :multi (((dhcp safe) :family :ipv4 :suffix "199.29.172.dhcp") :cname *)) |
| | 287 | |
| | 288 | (defrevzone (dmz :family :ipv6) |
| | 289 | :ns (radius.distorted.org.uk. |
| | 290 | precision.distorted.org.uk. |
| | 291 | telecaster.distorted.org.uk. |
| | 292 | vampire.distorted.org.uk.) |
| | 293 | :reverse dmz) |
| | 294 | |
| | 295 | (defrevzone (dmz :family :ipv4) |
| | 296 | (144-159 :ns (radius.distorted.org.uk. |
| | 297 | precision.distorted.org.uk. |
| | 298 | telecaster.distorted.org.uk. |
| | 299 | vampire.distorted.org.uk.)) |
| | 300 | :multi ((dmz :suffix "144-159") :cname *)) |
| | 301 | |
| | 302 | (defzone 144-159.204.49.62.in-addr.arpa |
| | 303 | :ns (radius.distorted.org.uk. |
| | 304 | precision.distorted.org.uk. |
| | 305 | telecaster.distorted.org.uk. |
| | 306 | vampire.distorted.org.uk.) |
| | 307 | :reverse ((((:ipv4 dmz))))) |
| | 308 | |
| | 309 | (defrevzone (jump :family :ipv6) |
| | 310 | :ns (radius.distorted.org.uk. |
| | 311 | precision.distorted.org.uk. |
| | 312 | telecaster.distorted.org.uk. |
| | 313 | vampire.distorted.org.uk.) |
| | 314 | :reverse jump) |
| | 315 | |
| | 316 | (defrevzone (jump :family :ipv4) |
| | 317 | (64-79 :ns (radius.distorted.org.uk. |
| | 318 | precision.distorted.org.uk. |
| | 319 | telecaster.distorted.org.uk. |
| | 320 | vampire.distorted.org.uk.)) |
| | 321 | :multi ((jump :suffix "64-79") :cname *)) |
| | 322 | |
| | 323 | (defzone 64-79.198.13.212.in-addr.arpa |
| | 324 | :ns (radius.distorted.org.uk. |
| | 325 | precision.distorted.org.uk. |
| | 326 | telecaster.distorted.org.uk. |
| | 327 | vampire.distorted.org.uk.) |
| | 328 | :reverse ((((:ipv4 jump))))) |
| | 329 | |
| | 330 | (defrevzone distorted.org.uk-he |
| | 331 | :ns (radius.distorted.org.uk. |
| | 332 | precision.distorted.org.uk. |
| | 333 | telecaster.distorted.org.uk. |
| | 334 | vampire.distorted.org.uk.) |
| | 335 | :reverse distorted.org.uk-he) |
| | 336 | |
| | 337 | (defrevzone distorted.org.uk-jump |
| | 338 | :ns (radius.distorted.org.uk. |
| | 339 | precision.distorted.org.uk. |
| | 340 | telecaster.distorted.org.uk. |
| | 341 | vampire.distorted.org.uk.) |
| | 342 | :reverse distorted.org.uk-jump) |
| | 343 | |
| | 344 | (defzone io.distorted.org.uk |
| | 345 | :ns ((ns :ip jazz.jump)) |
| | 346 | (about :txt "Fake zone used for IP-over-DNS tunnelling.")) |
| | 347 | |
| | 348 | ;;;----- That's all, folks -------------------------------------------------- |
~mdw / zones / blame_incremental