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