chiark / gitweb /
distorted.lisp: Announce an IRC server.
[zones] / hosts.lisp
CommitLineData
ff6c53ad
MW
1;;; -*-lisp-*-
2;;;
3;;; distorted.org.uk hosts and networks, and other useful addresses.
4
5;;;--------------------------------------------------------------------------
6;;; External hosts.
e80b4c2d 7
e80b4c2d 8(defhost boyle.nsict.org 85.158.42.162)
7605ad5e 9(defhost chiark.greenend.org.uk 212.13.197.229)
e80b4c2d 10(defhost mccoy.flatline.org.uk 80.74.241.31)
3dfd711e
MW
11(defhost mythic-ns1 69.56.173.190)
12(defhost mythic-ns2 93.93.128.67)
ff6c53ad
MW
13
14;;;--------------------------------------------------------------------------
15;;; Internal addresses.
16
17;; Externally routable DMZ.
18(defnet dmz 62.49.204.144/28)
19
38c2de7c
MW
20;; Externally routed colo range.
21(defnet jump 212.13.198.66/28)
22
ff6c53ad
MW
23;; (RFC1918 addresses are allocated from Cambridge G-RIN.)
24(defnet distorted.org.uk 172.29.198.0/23
25 (untrusted 256
26 (wireless 128)
27 (iodine 16))
28 (trusted 256
29 (wired 128
30 (unsafe 32)
9dc37b96 31 (dhcp 32))
374be896 32 (vpn 32)
9dc37b96 33 (nil 16
38c2de7c 34 (its 4))
9dc37b96 35 (colo 16)
72976fde
MW
36 (safe 32)
37 (any 32)))
ff6c53ad
MW
38
39;;;--------------------------------------------------------------------------
40;;; Host allocations
41
42;; External addresses.
43(defhost guvnor.dmz (dmz 1))
44(defhost radius.dmz (dmz 2))
45(defhost roadstar.dmz (dmz 3))
46(defhost jem.dmz (dmz 4))
47(defhost artist.dmz (dmz 5))
48(defhost vampire.dmz (dmz 6))
49(defhost ibanez.dmz (dmz 9))
85a3496c 50(defhost iodine.dmz (dmz 11))
04db9729 51(defhost anon.dmz (dmz 12))
ff6c53ad
MW
52(defhost gate.dmz (dmz 13))
53(defhost nat.dmz (dmz 14))
54
38c2de7c
MW
55;; Colocated addresses.
56(defhost fender.jump (jump 5))
57(defhost precision.jump (jump 6))
58(defhost telecaster.jump (jump 7))
59(defhost stratocaster.jump (jump 8))
60(defhost jazz.jump (jump 9))
c2118713 61(defhost blackhole.jump (jump 14))
38c2de7c 62
ff6c53ad
MW
63;; Unsafe network.
64(defhost radius.unsafe (unsafe 1))
65(defhost roadstar.unsafe (unsafe 2))
66(defhost jem.unsafe (unsafe 3))
67(defhost artist.unsafe (unsafe 4))
68(defhost vampire.unsafe (unsafe 5))
69(defhost ibanez.unsafe (unsafe 14))
70
71;; Safe network.
d8536712
MW
72(defhost radius.safe (safe 1))
73(defhost vampire.safe (safe 2))
74(defhost evolution.safe (safe 3))
ff6c53ad
MW
75
76;; Wireless network.
77(defhost radius.untrusted (untrusted 1))
78(defhost evolution.untrusted (untrusted 2))
79(defhost vampire.untrusted (untrusted 3))
80
81;; Virtual private network.
374be896
MW
82(defhost crybaby.vpn (vpn 1))
83(defhost terror.vpn (vpn 2))
ff6c53ad
MW
84
85;; Iodine network.
86(defhost vampire.iodine (iodine 1))
87
88;; Special network for ITS.
89;; It doesn't understand point-to-point links, so we need a little net.
90(defhost gw.its (its 1))
91(defhost mz.its (its 2))
92
38c2de7c
MW
93;; Internal (VPN) addresses for colocated services.
94(defhost fender.colo (colo 1))
95(defhost precision.colo (colo 2))
96(defhost telecaster.colo (colo 3))
97(defhost stratocaster.colo (colo 4))
98(defhost jazz.colo (colo 5))
99
345c0f69
MW
100;; Anycast addresses for services.
101(defhost dns0.any (any 0))
102(defhost dns1.any (any 1))
103(defhost ntp0.any (any 2))
104(defhost ntp1.any (any 3))
105(defhost www-cache.any (any 4))
106
ff6c53ad
MW
107;;;--------------------------------------------------------------------------
108;;; Host switch.
109
110(preferred-subnet-case
c0430253 111 ((unsafe colo)
ff6c53ad 112 (defhost radius radius.unsafe)
f0209b9c 113 (defhost precision precision.colo)
4c25329e 114 (defhost stratocaster stratocaster.colo)
c0430253
MW
115 (defhost vampire vampire.unsafe))
116 (t
117 (defhost radius radius.dmz)
f0209b9c 118 (defhost precision precision.jump)
4c25329e 119 (defhost stratocaster stratocaster.jump)
c0430253 120 (defhost vampire vampire.dmz)))
ff6c53ad
MW
121
122;;;----- That's all, folks --------------------------------------------------