SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sat Oct 31 04:39:56 2009
New Revision: 10911

Modified:
   toys/stbr/stbr.tcl
Log:
- enhanced pub:stat to show link if spec exists


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sat Oct 31 04:39:56 2009
@@ -157,10 +157,11 @@
 }
 if {([string match HEAD $branch])} {set cmd "-N"} else {set cmd "-r$branch"}
 if {[catch {exec cvs -d $cvsroot rlog $cmd packages/$pkg/$spec} results]} {
-	putserv "privmsg $chan :$nick: There is no such spec ($spec) on branch $branch in PLD's repository."
+	putserv "privmsg $chan :$nick: ${spec}@${branch} doesn't exist in PLD's repository."
 	return 0
 }
-	putserv "privmsg $chan :$nick: Spec ($spec) exists on branch $branch in PLD's repository."
+	set link "http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/$pkg/$spec?only_with_tag=$branch"
+	putserv "privmsg $chan :$nick: ${spec}@${branch} exists in PLD's repository. Go see it at $link"
 	return 0
 }