SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sun Feb 22 15:36:11 2009
New Revision: 10143

Modified:
   toys/stbr/stbr.tcl
Log:
- fix obvious bug


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sun Feb 22 15:36:11 2009
@@ -83,9 +83,7 @@
 close $file
 foreach bspec $lista {
 	if {([string match $spec $bspec])} {
-		return true
-	} else {
-		return false
+		return 0
 	}
 }
 }
@@ -161,7 +159,7 @@
 set towho [sendto $dist $spec $branch]
 if {($towho == 0)} {putserv "privmsg $chan :$nick: There is no such spec ($spec) on branch $branch in PLD's repository."; return 0}
 set isbanned [banned_spec $spec]
-if {($isbanned == "true")} {putserv "privmsg $chan :$nick: $spec is banned from being STBRed."; return 0}
+if {($isbanned == 0)} {putserv "privmsg $chan :$nick: $spec is banned from being STBRed."; return 0}
 lappend rspecs $spec; append rspecs ":$branch (to $towho)"
 lappend tspecs $spec; append tspecs ":$branch"
 if {([string match test-build $second])} {