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"
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
