Alexandre Julliard : winetest: Take advantage of the build id being the git commit sha1.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: f96380d247657913f912ce176668c5c387c8ebbe
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=f96380d247657913f912ce176...

Author: Alexandre Julliard <julliard(a)winehq.org>
Date:   Thu Mar 27 19:49:54 2008 +0100

winetest: Take advantage of the build id being the git commit sha1.

---

 winetest/gather |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/winetest/gather b/winetest/gather
index df2d4b6..294ad06 100755
--- a/winetest/gather
+++ b/winetest/gather
@@ -153,12 +153,15 @@ foreach my $file (glob "$datadir/$build/*/summary.txt") {
             $source, $rev) = split;
         my $testname = "$dll:$unit";
 
-	if ($rev =~ /\./) {
-		$alltests{$testname} = "http://cvs.winehq.org/cvsweb/wine/$source" . ($rev ne "-"?"#rev$rev":"")
+        if ($build =~ /^[0-9a-f]{40}$/) {
+		$alltests{$testname} = "http://source.winehq.org/git/wine.git/?a=blob;f=$source;hb=$build"
+		    unless exists $alltests{$testname};
+        } elsif ($rev =~ /\./) {
+		$alltests{$testname} = "http://cvs.winehq.org/cvsweb/wine/$source#rev$rev"
 		    unless exists $alltests{$testname};
 	} else {
 		$alltests{$testname} = "http://source.winehq.org/git/wine.git/?a=blob;f=$source;" .
-					($rev ne "-" ? "h=$rev;" : "hb=master;")
+					($rev ne "-" ? "h=$rev" : "hb=master")
 		    unless exists $alltests{$testname};
 	}