SVN: toys/stbr/stbr.tcl
shadzik
shadzik at pld-linux.org
Tue Aug 31 10:27:51 CEST 2010
Author: shadzik
Date: Tue Aug 31 10:27:50 2010
New Revision: 11794
Modified:
toys/stbr/stbr.tcl
Log:
- add support for ti-dev
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Tue Aug 31 10:27:50 2010
@@ -12,7 +12,7 @@
set back &
set cntr 0
set cvsroot ":pserver:cvs at cvs.pld-linux.org:/cvsroot"
-set usage "Usage: !stbr \[help\] \[url\] \[version\] th\|ti \[no\]upgrade spec1\[:BRANCH\]\[/\[+bcond+...\]\[-bcond-...\]\[%kernel%...\]\] spec2\[:BRANCH\]\[/\[+bcond+...\]\[-bcond-...\]\[%kernel%...\]\] ..."
+set usage "Usage: !stbr \[help\] \[url\] \[version\] th\|ti\|ti-dev \[no\]upgrade spec1\[:BRANCH\]\[/\[+bcond+...\]\[-bcond-...\]\[%kernel%...\]\] spec2\[:BRANCH\]\[/\[+bcond+...\]\[-bcond-...\]\[%kernel%...\]\] ..."
set nickpass "stbr-bot"
set cmdtxt "./scripts/cmd.txt"
set maintenance "./scripts/maintenance.txt"
@@ -60,6 +60,7 @@
putlog "STBR: Searching for status..."
putqueue ac
putqueue ti
+ putqueue ti-dev
putqueue th
putqueue aidath
}
@@ -121,6 +122,9 @@
proc sendto {dist spec branch} {
global cvsroot
+if {([string match ti-dev $dist])} {
+ set dist "ti"
+}
set reqbook "./scripts/requesters-${dist}.txt"
if {([string match HEAD $branch])} {set cmd "-N"} {set cmd "-r$branch"}
set splited [split $spec "."]
@@ -303,7 +307,7 @@
if {([string match dzieki $first]) || ([string match dziekuje $first]) || ([string match thx $first]) || ([string match tx $first]) || ([string match thnx $first]) || ([string match dzięki $first]) || ([string match dziękuję $first])} {
set answ [rthx]; putserv "privmsg $chan :$nick: $answ"; return 0
}
-if {!([string match th $first] || [string match ti $first])} {
+if {!([string match th $first] || [string match ti $first] || [string match ti-dev $first])} {
putserv "privmsg $chan :$nick: $usage"; return 0
}
set dist $first
@@ -400,7 +404,6 @@
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 == 0)} {putserv "privmsg $chan :$nick: $spec is banned from being STBRed."; return 0}
-if {$cntr<1} {incr cntr} {utimer 10 "set cntr 0"; putserv "privmsg $chan :$nick: I reached my STBR time limit (10sec). Please try later."; return 0}
if {($bconds_with == "") && ($bconds_without == "") && ($defines == "")} {
lappend rspecs $spec; append rspecs ":$branch (to $towho)"
lappend tspecs $spec; append tspecs ":$branch"
More information about the pld-cvs-commit
mailing list