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