distorted.lisp: Announce an IRC server.

diff --git a/distorted.lisp b/distorted.lisp
index 7e397e24b50c1240b80dd3eea0f669b3511366bb..601897adc9f0645970fdc3812df927afc0f48b5b 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -68,6 +68,10 @@ (defzone distorted.org.uk
   (evolution (safe :a evolution.safe))
   (evolution :alias evo)
 
   (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)
   ;; 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 efb0e7fff84bb773b96fcc1cae61b1a810867bd2..e575fdef536077a30622dd37cf4bdefacfc2da6b 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -111,10 +111,12 @@ (preferred-subnet-case
   ((unsafe colo)
    (defhost radius radius.unsafe)
    (defhost precision precision.colo)
   ((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 vampire vampire.unsafe))
   (t
    (defhost radius radius.dmz)
    (defhost precision precision.jump)

+   (defhost stratocaster stratocaster.jump)

    (defhost vampire vampire.dmz)))
 
 ;;;----- That's all, folks --------------------------------------------------
    (defhost vampire vampire.dmz)))
 
 ;;;----- That's all, folks --------------------------------------------------