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