SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Tue May 15 05:04:13 2007
New Revision: 8541

Modified:
   toys/stbr/stbr.tcl
Log:
- pass branch to cvslog.sh


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Tue May 15 05:04:13 2007
@@ -39,7 +39,7 @@
 if {!([string match *.spec $spec])} { append spec ".spec"}
 if {([cvs $spec $branch] == 0)} {putserv "privmsg $chan :$nick: There is no such spec ($spec) on branch $branch in PLD's repository."; exec sqlite $logfile "delete from stbr where sender='$nick';"; return 0}
 lappend rspecs $spec; append rspecs ":$branch"
-if {[exec $file $nick $first $spec]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send STBR Mail for $spec."; return 1}
+if {[exec $file $nick $first $spec $branch]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send STBR Mail for $spec."; return 1}
 set tfile [open $towho r]
 gets $tfile person; append rspecs " (to $person)"
 close $tfile