SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Tue Nov 27 20:25:58 2007
New Revision: 9113

Modified:
   toys/stbr/stbr.tcl
Log:
- a much better help


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Tue Nov 27 20:25:58 2007
@@ -27,7 +27,17 @@
 
 
 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://stbr.pld-linux.org/ to see the status of your request. Options in square brackets are optional."
+	global usage
+	putserv "privmsg $nick :$usage"
+	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." 
+	putserv "privmsg $nick :Visit http://stbr.pld-linux.org/ to see the status of your request."
+	putserv "privmsg $nick :Options in square brackets are optional."
+	putserv "privmsg $nick :Options:"
+	putserv "privmsg $nick :!stbr help - shows this help"
+	putserv "privmsg $nick :!stbr url - shows main URL on private chat"
+	putserv "privmsg $nick :Examples:"
+	putserv "privmsg $nick :!stbr upgrade spec1 spec2:DEVEL - sends upgrade request for spec1 on branch HEAD and spec2 on branch DEVEL to developers"
+	putserv "privmsg $nick :!stbr noupgrade spec1 - sends noupgrade request for spec1 on branch HEAD directly to builders"
 }
 
 proc url {nick} {