mdw@git.distorted.org.uk Git - zones/blob - binswood.lisp

   1 ;;; Zone file for binswood.org.uk
   2
   3 (load "hosts.lisp" :verbose nil)
   4 (setf *default-zone-admin* "hostmaster@distorted.org.uk")
   5 (setf *default-zone-source* 'radius.distorted.org.uk.)
   6
   7 ;; Binswood.  Address range retroactively claimed from Cambridge G-RIN.
   8 (defnet binswood.org.uk 10.165.27.0/24
   9   (binswood 256))
  10 (defhost netgear.binswood (binswood 1))
  11 (defhost linksys.binswood (binswood 2))
  12 (defhost mango.binswood (binswood 3))
  13 (defhost hplaser.binswood (binswood 4))
  14 (defhost wifi-client-1.binswood (binswood 5))
  15 (defhost hplaser2.binswood (binswood 6))
  16
  17 (defzone binswood.org.uk
  18
  19   ;; Nameservers
  20   :ns ((radius.ns :ip radius)
  21        (precision.ns :ip precision)
  22        (telecaster.ns :ip telecaster)
  23        (mythic-beasts-1.ns :ip mythic-ns1)
  24        (mythic-beasts-2.ns :ip mythic-ns2))
  25
  26   ;; Internal hosts.
  27   (netgear :a netgear.binswood)
  28   (linksys :a linksys.binswood)
  29   (mango :a mango.binswood)
  30   (hplaser :a hplaser.binswood)
  31   (hplaser2 :a hplaser2.binswood)
  32   (wifi-client-1 :a wifi-client-1.binswood)
  33
  34   ;; External services.
  35   ;;((@ www) :svc stratocaster)
  36
  37   ;; Dynamic addresses.
  38   (dyn :ns ((radius.ns.dyn :ip radius)
  39             (precision.ns.dyn :ip precision)))
  40   (ext :cname ext.dyn))
  41
  42 (defrevzone binswood
  43   :ns ((radius.ns :ip radius)
  44        (precision.ns :ip precision))
  45   :reverse binswood)