~mdw
/
zones
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
distorted.lisp, hosts.lisp: Assign VPN addresses to VPN hubs.
[zones]
/
hosts.lisp
diff --git
a/hosts.lisp
b/hosts.lisp
index
e8f253e
..
d28b0e7
100644
(file)
--- a/
hosts.lisp
+++ b/
hosts.lisp
@@
-96,7
+96,7
@@
;; Safe network.
(defhost radius.safe (safe 1))
(defhost vampire.safe (safe 2))
;; Safe network.
(defhost radius.safe (safe 1))
(defhost vampire.safe (safe 2))
-(defhost evolution.safe (
(:ipv4 safe 3)
))
+(defhost evolution.safe (
safe 3
))
(defhost tp0.safe (safe 4))
(defhost tp1.safe (safe 5))
(defhost tp2.safe (safe 6))
(defhost tp0.safe (safe 4))
(defhost tp1.safe (safe 5))
(defhost tp2.safe (safe 6))
@@
-111,6
+111,10
@@
(defhost terror.vpn ((:ipv4 vpn 2)))
(defhost orange.vpn ((:ipv4 vpn 3) (:ipv6 vpn "::3:1")))
(defhost haze.vpn ((:ipv4 vpn 4) (:ipv6 vpn "::4:1")))
(defhost terror.vpn ((:ipv4 vpn 2)))
(defhost orange.vpn ((:ipv4 vpn 3) (:ipv6 vpn "::3:1")))
(defhost haze.vpn ((:ipv4 vpn 4) (:ipv6 vpn "::4:1")))
+(defhost radius.vpn ((:ipv4 vpn 5) (:ipv6 vpn "::5:1")))
+(defhost precision.vpn ((:ipv4 vpn 6) (:ipv6 vpn "::6:1")))
+(defhost jazz.vpn ((:ipv4 vpn 7) (:ipv6 vpn "::7:1")))
+(defhost vampire.vpn ((:ipv4 vpn 8) (:ipv6 vpn "::8:1")))
;; Iodine network.
(defhost jazz.iodine (iodine 1))
;; Iodine network.
(defhost jazz.iodine (iodine 1))