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])} {
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
