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