(nil 16
(its 4))
(colo 16)
- (safe 32)))
+ (safe 32)
+ (any 32)))
;;;--------------------------------------------------------------------------
;;; Host allocations
(defhost stratocaster.colo (colo 4))
(defhost jazz.colo (colo 5))
+;; Anycast addresses for services.
+(defhost dns0.any (any 0))
+(defhost dns1.any (any 1))
+(defhost ntp0.any (any 2))
+(defhost ntp1.any (any 3))
+(defhost www-cache.any (any 4))
+
;;;--------------------------------------------------------------------------
;;; Host switch.
(preferred-subnet-case
- (dmz
- (defhost radius radius.dmz)
- (defhost vampire vampire.dmz))
- (t
+ ((unsafe colo)
(defhost radius radius.unsafe)
- (defhost vampire vampire.unsafe)))
+ (defhost vampire vampire.unsafe))
+ (t
+ (defhost radius radius.dmz)
+ (defhost vampire vampire.dmz)))
;;;----- That's all, folks --------------------------------------------------