hosts.lisp, distorted.lisp: Include better entries for the scanner.

The stupid thing can't be configured with a static IPv6 address, so
we'll have to make do with the SLAAC address.

diff --git a/distorted.lisp b/distorted.lisp
index d32bba5e400f7b78def8f33610e67996b3e237a2..2269c98833f60d0fc97ffe9cf8afab1093c2f0bf 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -443,6 +443,7 @@ (defrevzone trusted
        national.distorted.org.uk.
        eggle.distorted.org.uk.)
   :reverse unsafe
+  :reverse safe
   :reverse vpn
   :reverse its
   :reverse any

diff --git a/hosts.lisp b/hosts.lisp
index 182989c258f8a12c3175c8906c3eece8895926ef..ceb3ae77e100a832ec78641f7c71a0de3a4dfbe8 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -115,6 +115,7 @@ (defhost gretsch.unsafe ((:ipv6 unsafe "3a2c:4aff:fe6d:e768")))
 (defhost spirit.unsafe ((:ipv6 unsafe "568d:5aff:fed9:18b8")))
 (defhost invader.safe ((:ipv6 safe "a00:27ff:fe94:a5d7")))
 (defhost marauder.safe ((:ipv6 safe "a00:27ff:fe6a:7846")))
+(defhost unicorn.safe ((:ipv6 safe "20e:c6ff:fe90:a926")))
 
 ;; Safe network.
 (defhost radius.safe (safe 1))
@@ -126,7 +127,7 @@ (defhost tritan.safe (safe 6))
 (defhost kitkat.safe (safe 7))
 (defhost lunch.safe (safe 8))
 (defhost burntaxe.safe (safe 9))
-(defhost unicorn.safe (safe 10))
+(defhost unicorn.safe ((:ipv4 safe 10)))
 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))