From 4c25329e529f718019fde3a67d3790bbcfc14203 Mon Sep 17 00:00:00 2001 Message-Id: <4c25329e529f718019fde3a67d3790bbcfc14203.1713596838.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 30 Jul 2012 01:31:08 +0100 Subject: [PATCH] distorted.lisp: Announce an IRC server. Organization: Straylight/Edgeware From: Mark Wooding --- distorted.lisp | 4 ++++ hosts.lisp | 2 ++ 2 files changed, 6 insertions(+) diff --git a/distorted.lisp b/distorted.lisp index 7e397e2..601897a 100644 --- a/distorted.lisp +++ b/distorted.lisp @@ -68,6 +68,10 @@ (defzone distorted.org.uk (evolution (safe :a evolution.safe)) (evolution :alias evo) + ;; Colocated services. + (irc (colo :svc stratocaster.colo) + (jump :svc stratocaster.jump)) + ;; Local services. :svc vampire ((www krb ftp rsync wiki git bugs mail db i2p rawk vox) diff --git a/hosts.lisp b/hosts.lisp index efb0e7f..e575fde 100644 --- a/hosts.lisp +++ b/hosts.lisp @@ -111,10 +111,12 @@ (preferred-subnet-case ((unsafe colo) (defhost radius radius.unsafe) (defhost precision precision.colo) + (defhost stratocaster stratocaster.colo) (defhost vampire vampire.unsafe)) (t (defhost radius radius.dmz) (defhost precision precision.jump) + (defhost stratocaster stratocaster.jump) (defhost vampire vampire.dmz))) ;;;----- That's all, folks -------------------------------------------------- -- [mdw]