Author: shadzik
Date: Tue May 29 16:06:02 2007
New Revision: 8629
Modified:
toys/stbr/stbr.tcl
Log:
- !stbr url - now available
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Tue May 29 16:06:02 2007
@@ -6,10 +6,14 @@
set back &
set cntr 0
set cvsroot ":pserver:[EMAIL PROTECTED]:/cvsroot"
-set usage "Usage: !stbr \[help\] \[no\]upgrade spec1\[:BRANCH\]
spec2\[:BRANCH\] ..."
+set usage "Usage: !stbr \[help\] \[url\] \[no\]upgrade spec1\[:BRANCH\]
spec2\[:BRANCH\] ..."
proc help {chan nick} {
- 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."
+ 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. Visit
http://team.pld-linux.org/~stbr/ to see the status of your request. Options in
square brackets are optional."
+}
+
+proc url {chan nick} {
+ putserv "privmsg $chan :$nick: Visit http://team.pld-linux.org/~stbr/
to see the status of your request."
}
proc random {} {
@@ -46,6 +50,7 @@
putcmdlog "#$hand# Noticed Send To Build Request Mail command";
set first [lindex $arg 0]
if {([string match help $first])} {help $chan $nick; return 0}
+if {([string match url $first])} {url $chan $nick; return 0}
set second [lindex $arg 1]
set specs ""; append specs $second; append specs " "; append specs [lrange
$arg 2 end]
set rspecs ""
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
