SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Wed Apr 29 23:18:18 2009
New Revision: 10344

Modified:
   toys/stbr/stbr.tcl
Log:
- fixed log issues
- removed TODO


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Wed Apr 29 23:18:18 2009
@@ -1,6 +1,4 @@
 # Send To Builder Request TCL by shadzik at pld-linux.org
-# TODO
-# use rlog instead of log in cvs (gets faster info then get && log)
 
 set cmdbook "./scripts/cmdbook.txt"
 set logfile "/home/users/stbr/db/stbrlog.db"
@@ -75,8 +73,7 @@
 if {([string match HEAD $branch])} {set cmd "-N"} {set cmd "-r$branch"}
 set splited [split $spec "."]
 set pkg [lindex $splited 0]
-exec cvs -d $cvsroot get $cmd packages/$pkg/$spec &
-if {[catch {exec cvs -d $cvsroot log $cmd packages/$pkg/$spec | awk {/author/{a = $5; sub(/;/, "", a); if (!seen[a]) print a; seen[a] = 1}}} results]} {return 0}
+if {[catch {exec cvs -d $cvsroot rlog $cmd packages/$pkg/$spec | awk {/author/{a = $5; sub(/;/, "", a); if (!seen[a]) print a; seen[a] = 1}}} results]} {return 0}
 set file [open $reqbook r]
 gets $file lista
 close $file
@@ -103,8 +100,7 @@
 set branch [lindex $arg 1]
 if {!([string match *.spec $spec])} { set pkg $spec;append spec ".spec" } else { set splited [split $spec "."]; set pkg [lindex $splited 0] }
 if {([string match HEAD $branch])} {set cmd "-N"} else {set cmd "-r$branch"}
-exec cvs -d $cvsroot get $cmd packages/$pkg/$spec &
-if {![file exists packages/$pkg/$spec]} {
+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."
 	return 0
 }