SVN: toys/stbr/stbr.tcl
shadzik
shadzik at pld-linux.org
Fri Jun 22 20:25:20 CEST 2007
Author: shadzik
Date: Fri Jun 22 20:25:19 2007
New Revision: 8647
Modified:
toys/stbr/stbr.tcl
Log:
- on "help" and "url" send private message to user instead of channel
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Fri Jun 22 20:25:19 2007
@@ -8,12 +8,12 @@
set cvsroot ":pserver:cvs at cvs.pld-linux.org:/cvsroot"
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. Visit http://team.pld-linux.org/~stbr/ to see the status of your request. Options in square brackets are optional."
+proc help {nick} {
+ putserv "privmsg $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 url {nick} {
+ putserv "privmsg $nick :Visit http://team.pld-linux.org/~stbr/ to see the status of your request."
}
proc random {} {
@@ -49,8 +49,8 @@
global file back cntr logfile usage
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}
+if {([string match help $first])} {help $nick; return 0}
+if {([string match url $first])} {url $nick; return 0}
set second [lindex $arg 1]
set specs ""; append specs $second; append specs " "; append specs [lrange $arg 2 end]
set rspecs ""
More information about the pld-cvs-commit
mailing list