distorted.lisp: Announce an IRC server.

diff --git a/distorted.lisp b/distorted.lisp
index 7e397e2..601897a 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -68,6 +68,10 @@
   (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 efb0e7f..e575fde 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -111,10 +111,12 @@
   ((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 --------------------------------------------------