chiark / gitweb /
distorted.lisp: Announce an IRC server.
authorMark Wooding <mdw@distorted.org.uk>
Mon, 30 Jul 2012 00:31:08 +0000 (01:31 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Mon, 30 Jul 2012 00:31:08 +0000 (01:31 +0100)
distorted.lisp
hosts.lisp

index 7e397e2..601897a 100644 (file)
@@ -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)
index efb0e7f..e575fde 100644 (file)
@@ -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 --------------------------------------------------