distorted.lisp, hosts.lisp: New virtual host `national'.

Hosted by Linode in Dallas, TX.

diff --git a/distorted.lisp b/distorted.lisp
index 142b047..adc8f24 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -210,6 +210,11 @@
        (vpn :addr jazz.vpn :sshfp "jazz")
        (iodine :addr jazz.iodine :sshfp "jazz"))
 
+  ;; Virtual hosts.
+  (national :abbrev n (linode :abbrev nl) (upn :abbrev ny))
+  (national (linode :addr national.linode)
+           (upn :addr national.upn))
+
   ;; Media server (on loan to Good Technology HSTG).
   (jaguar :abbrev jag)
   (jaguar (jump :addr jaguar.jump :sshfp "jaguar"))

diff --git a/hosts.lisp b/hosts.lisp
index 845e969..78b3b3d 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -80,6 +80,10 @@
 (defhost anon.jump (jump 13))
 (defhost blackhole.jump ((:ipv4 jump 14) (:ipv6 jump "::ffff")))
 
+;; Linode virtual hosts.
+(defhost national.linode ((:ipv4 "45.33.118.239")
+                         (:ipv6 "2600:3c00::f03c:91ff:fe3b:d7c1")))
+
 ;; Unsafe network.
 (defhost radius.unsafe (unsafe 1))
 (defhost roadstar.unsafe (unsafe 2))
@@ -121,6 +125,9 @@
 (defhost jazz.vpn ((:ipv4 vpn 7) (:ipv6 vpn "::7:1")))
 (defhost vampire.vpn ((:ipv4 vpn 8) (:ipv6 vpn "::8:1")))
 
+;; Untrusted private network.
+(defhost national.upn ((:ipv4 upn 1) (:ipv6 upn "::1:1")))
+
 ;; Iodine network.
 (defhost jazz.iodine (iodine 1))