SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sat Nov  7 22:06:07 2009
New Revision: 10960

Modified:
   toys/stbr/stbr.tcl
Log:
- default branch is HEAD in pub:stat


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sat Nov  7 22:06:07 2009
@@ -173,9 +173,12 @@
 	putserv "privmsg $chan :$nick: I'm now in maintenance mode (reason: $reason). Only owners may perform real actions."
 	return 0
 	}
-if {[llength [lrange $arg 0 end]] < 2} {putserv "privmsg $chan :$nick: Usage: !stat spec branch";return 0}
+if {[llength [lrange $arg 0 end]] < 2} {putserv "privmsg $chan :$nick: Usage: !stat spec \[BRANCH\]";return 0}
 set spec [lindex $arg 0]
 set branch [lindex $arg 1]
+if {[string length $branch]==0} {
+	set branch "HEAD"
+}
 if {!([string match *.spec $spec])} { 
 	set pkg $spec
 	append spec ".spec"