SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Fri Oct 30 16:33:43 2009
New Revision: 10890

Modified:
   toys/stbr/stbr.tcl
Log:
- prevent running pub:buildstatus when not connected to IN


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Fri Oct 30 16:33:43 2009
@@ -32,7 +32,9 @@
 	putlog "Sending Identify to NickServ"
 }
 
-bind time - "* * * * *" pub:buildstatus
+if {([string match fu-berlin $server]) || ([string match tu-ilmenau $server])} {
+	bind time - "* * * * *" pub:buildstatus
+}
 
 proc pub:buildstatus {nick host hand chan arg} {
 	global queueparser