SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Tue Mar  4 12:59:49 2008
New Revision: 9565

Modified:
   toys/stbr/stbr.tcl
Log:
- fixed for new cvs version


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Tue Mar  4 12:59:49 2008
@@ -57,7 +57,7 @@
 proc sendto {spec branch} {
 	global cvsroot reqbook
 	if {([string match HEAD $branch])} {set cmd "-N"} {set cmd "-r$branch"}
-	if {[catch {exec cvs -d $cvsroot log $cmd SPECS/$spec | awk {/author/{a = $5; sub(/;/, "", a); if (!seen[a]) print a; seen[a] = 1}}} results]} {return 0}
+	if {[catch {exec cvs -d $cvsroot log $cmd SPECS/$spec | awk {/author/{a = $6; sub(/;/, "", a); if (!seen[a]) print a; seen[a] = 1}}} results]} {return 0}
 	set file [open $reqbook r]
 	gets $file lista
 	close $file