chiark - git - mdw - zones/blob - hosts.lisp

   1 ;;; -*-lisp-*-
   2 ;;;
   3 ;;; distorted.org.uk hosts and networks, and other useful addresses.
   4
   5 ;;;--------------------------------------------------------------------------
   6 ;;; External hosts.
   7
   8 (defhost boyle.nsict.org 85.158.42.162)
   9 (defhost chiark.greenend.org.uk 212.13.197.229)
  10 (defhost mccoy.flatline.org.uk 80.74.241.31)
  11 (defhost mythic-ns1 69.56.173.190)
  12 (defhost mythic-ns2 93.93.128.67)
  13
  14 ;;;--------------------------------------------------------------------------
  15 ;;; Internal addresses.
  16
  17 ;; Externally routable DMZ.
  18 (defnet dmz 62.49.204.144/28)
  19
  20 ;; (RFC1918 addresses are allocated from Cambridge G-RIN.)
  21 (defnet distorted.org.uk 172.29.198.0/23
  22   (untrusted 256
  23     (wireless 128)
  24     (iodine 16))
  25   (trusted 256
  26     (wired 128
  27       (unsafe 32)
  28       (dhcp 32)
  29       (safe 32))
  30     (virtual 32)
  31     (its 4)))
  32
  33 ;;;--------------------------------------------------------------------------
  34 ;;; Host allocations
  35
  36 ;; External addresses.
  37 (defhost guvnor.dmz (dmz 1))
  38 (defhost radius.dmz (dmz 2))
  39 (defhost roadstar.dmz (dmz 3))
  40 (defhost jem.dmz (dmz 4))
  41 (defhost artist.dmz (dmz 5))
  42 (defhost vampire.dmz (dmz 6))
  43 (defhost ibanez.dmz (dmz 9))
  44 (defhost anon.dmz (dmz 12))
  45 (defhost gate.dmz (dmz 13))
  46 (defhost nat.dmz (dmz 14))
  47
  48 ;; Unsafe network.
  49 (defhost radius.unsafe (unsafe 1))
  50 (defhost roadstar.unsafe (unsafe 2))
  51 (defhost jem.unsafe (unsafe 3))
  52 (defhost artist.unsafe (unsafe 4))
  53 (defhost vampire.unsafe (unsafe 5))
  54 (defhost ibanez.unsafe (unsafe 14))
  55
  56 ;; Safe network.
  57 (defhost tubescreamer.safe (safe 1))
  58 (defhost obsidian.safe (safe 2))
  59
  60 ;; Wireless network.
  61 (defhost radius.untrusted (untrusted 1))
  62 (defhost evolution.untrusted (untrusted 2))
  63 (defhost vampire.untrusted (untrusted 3))
  64
  65 ;; Virtual private network.
  66 (defhost crybaby.virtual (virtual 1))
  67 (defhost terror.virtual (virtual 2))
  68
  69 ;; Iodine network.
  70 (defhost vampire.iodine (iodine 1))
  71
  72 ;; Special network for ITS.
  73 ;; It doesn't understand point-to-point links, so we need a little net.
  74 (defhost gw.its (its 1))
  75 (defhost mz.its (its 2))
  76
  77 ;;;--------------------------------------------------------------------------
  78 ;;; Host switch.
  79
  80 (preferred-subnet-case
  81   (dmz
  82    (defhost radius radius.dmz)
  83    (defhost vampire vampire.dmz))
  84   (t
  85    (defhost radius radius.unsafe)
  86    (defhost vampire vampire.unsafe)))
  87
  88 ;;;----- That's all, folks --------------------------------------------------