Author: shadzik
Date: Fri May 18 05:39:16 2007
New Revision: 8604
Modified:
toys/stbr/stbr.tcl
Log:
- pick a random developer with stbr rights and send the email to him/her when
neither of the developers mentioned in cvs log have stbr rights
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Fri May 18 05:39:16 2007
@@ -20,6 +20,16 @@
putserv "privmsg $chan :$nick: Most important is that you understand
what the difference between 'upgrade' and 'noupgrade' is. When you call
'noupgrade' it's going to be just an test-build. When you call 'upgrade' the
package is going to be upgraded on builders and ftp."
}
+proc random {} {
+ global reqbook
+ set file [open $reqbook r]
+ gets $file hands
+ set range [llength $hands]
+ close $file
+ set whichone [expr {int(rand()*$range)}]
+ return [lindex $hands $whichone]
+}
+
proc sendto {spec branch} {
global cvsroot reqbook
if {([string match HEAD $branch])} {set cmd "-N"} {set cmd "-r$branch"}
@@ -32,6 +42,7 @@
if {([string match $requester $devil])} {return $devil}
}
}
+random
}
bind pub * !stbr pub:stbr
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
