SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sat Oct 31 04:09:38 2009
New Revision: 10907

Modified:
   toys/stbr/stbr.tcl
Log:
- fixed build status activation


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sat Oct 31 04:09:38 2009
@@ -32,8 +32,10 @@
 	putlog "Sending Identify to NickServ"
 }
 
-if {([string match fu-berlin $server]) || ([string match tu-ilmenau $server])} {
+putlog "STBR: using config $config"
+if {([string match "stbr.conf" $config])} {
 	bind time - "* * * * *" pub:buildstatus
+	putlog "STBR: Buildstatus activated"
 }
 
 proc putqueue {ver} {
@@ -52,6 +54,7 @@
 	putqueue ti
 	putqueue th
 	putqueue aidath
+	putlog "Searched for status"
 }
 
 proc help {nick} {