SVN: toys/stbr/stbr.tcl

shadzik shadzik at pld-linux.org
Sat Nov 7 22:32:37 CET 2009


Author: shadzik
Date: Sat Nov  7 22:32:37 2009
New Revision: 10963

Modified:
   toys/stbr/stbr.tcl
Log:
- enhanced help, show only esentials by default the user decides whether he want's to see 'more' 


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sat Nov  7 22:32:37 2009
@@ -70,7 +70,12 @@
 	putserv "privmsg $nick :!stbr help - shows this help"
 	putserv "privmsg $nick :!stbr url - shows main URL on private chat"
 	putserv "privmsg $nick :!stbr version - shows version on public channel"
-	putserv "privmsg $nick :Options in square brackets are optional."
+	putserv "privmsg $nick :Type 'more' for more help and examples"
+}
+
+bind msg - more msg:more_help
+
+proc msg:more_help {nick uhost hand text} {
 	putserv "privmsg $nick :Examples:"
 	putserv "privmsg $nick :!stbr th upgrade spec1 spec2:DEVEL - sends upgrade request for spec1 on branch HEAD and spec2 on branch DEVEL to TH developers"
 	putserv "privmsg $nick :!stbr ti noupgrade spec1 - sends noupgrade request for spec1 on branch HEAD directly to Titanium builders"


More information about the pld-cvs-commit mailing list