hosts.lisp, distorted.lisp: New `blackhole' address.

All IP packets to this address will be dropped silently.  Useful for
strange testing.

diff --git a/distorted.lisp b/distorted.lisp
index 892daab411988d6f9621ad97b91f1c5e5f17d36b..01fc902707391fd3d02f0f399629f0afe7962b9c 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -138,6 +138,9 @@ (defzone distorted.org.uk
   (gw (its :a gw.its))
   (mz (its :a mz.its))
 
   (gw (its :a gw.its))
   (mz (its :a mz.its))
 

+  ;; Strange things.
+  (blackhole (jump :a blackhole.jump))
+

   ;; Delegations.
   (dhcp :ns (radius.ns vampire.ns))
   (io :ns ((ns.io :ip iodine.dmz))))
   ;; Delegations.
   (dhcp :ns (radius.ns vampire.ns))
   (io :ns ((ns.io :ip iodine.dmz))))

diff --git a/hosts.lisp b/hosts.lisp
index d62cc5e12dc296123200adde19875849c21426f1..003fe5ef6e58426d1965832b1aaa818f826407ae 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -58,6 +58,7 @@ (defhost precision.jump (jump 6))
 (defhost telecaster.jump (jump 7))
 (defhost stratocaster.jump (jump 8))
 (defhost jazz.jump (jump 9))
 (defhost telecaster.jump (jump 7))
 (defhost stratocaster.jump (jump 8))
 (defhost jazz.jump (jump 9))

+(defhost blackhole.jump (jump 14))

 
 ;; Unsafe network.
 (defhost radius.unsafe (unsafe 1))
 
 ;; Unsafe network.
 (defhost radius.unsafe (unsafe 1))