binswood.lisp, hosts.lisp: Move network definition to specific file.

diff --git a/binswood.lisp b/binswood.lisp
index 767e1785e0d7de858c3fb1a8c44d1da2f09dd749..63af0607cf0cf44ec6fb085b07228226ccb4b386 100644 (file)
--- a/binswood.lisp
+++ b/binswood.lisp
@@ -4,6 +4,14 @@ (load "hosts.lisp" :verbose nil)
 (setf *default-zone-admin* "hostmaster@distorted.org.uk")
 (setf *default-zone-source* 'radius.distorted.org.uk.)
 
+;; Binswood.  Address range retroactively claimed from Cambridge G-RIN.
+(defnet binswood.org.uk 10.165.27.0/24
+  (binswood 256))
+(defhost netgear.binswood (binswood 1))
+(defhost linksys.binswood (binswood 2))
+(defhost mango.binswood (binswood 3))
+(defhost hplaser.binswood (binswood 4))
+
 (defzone binswood.org.uk
 
   ;; Nameservers

diff --git a/hosts.lisp b/hosts.lisp
index d4805f7e854f46430fe8bd7dcb22607e86b44773..67b207c46d3689a20be1b33d3b809c48bfa9bb5e 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -107,17 +107,6 @@ (defhost www-cache.any (any 4))
 (defhost krb0.any (any 5))
 (defhost krb1.any (any 6))
 
-;;;--------------------------------------------------------------------------
-;;; Satellite networks.
-
-;; Binswood.  Address range retroactively claimed from Cambridge G-RIN.
-(defnet binswood.org.uk 10.165.27.0/24
-  (binswood 256))
-(defhost netgear.binswood (binswood 1))
-(defhost linksys.binswood (binswood 2))
-(defhost mango.binswood (binswood 3))
-(defhost hplaser.binswood (binswood 4))
-
 ;;;--------------------------------------------------------------------------
 ;;; Host switch.