SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Wed May 16 01:33:45 2007
New Revision: 8556

Modified:
   toys/stbr/stbr.tcl
Log:
- add help procedure


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Wed May 16 01:33:45 2007
@@ -7,7 +7,7 @@
 set cntr 0
 set towho "./scripts/sent.txt"
 set cvsroot ":pserver:cvs at cvs.pld-linux.org:/cvsroot"
-set usage "Usage: !stbr th-{ready|test} spec1\[:BRANCH\] spec2\[:BRANCH\] ..."
+set usage "Usage: !stbr \[help\] th-{ready|test} spec1\[:BRANCH\] spec2\[:BRANCH\] ..."
 
 proc cvs {spec branch} {
 	global cvsroot
@@ -17,6 +17,10 @@
 return 1
 }
 
+proc help {chan nick} {
+	putserv "privmsg $chan :$nick: Most importand is that you understand what the difference between th-test and th-ready is. When you call a th-test build it's going to be just an test-build. When you call a th-ready build the package is going to be upgraded on builders and ftp."
+}
+
 bind pub * !stbr pub:stbr
 bind pub * stbr: pub:stbr
 bind pub * stbr, pub:stbr
@@ -25,6 +29,7 @@
 global file back cntr logfile towho 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}
 set second [lindex $arg 1]
 set specs ""; append specs $second; append specs " "; append specs [lrange $arg 2 end]
 set rspecs ""