Jeremy White : winetest: Revise to detect cvs versus git revision ids, and point to the right web tree.

[Alexandre Julliard]

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

Author: Jeremy White <jwhite(a)codeweavers.com>
Date:   Tue Feb  5 11:33:41 2008 -0600

winetest:  Revise to detect cvs versus git revision ids, and point to the right web tree.

---

 winetest/gather |   11 +++++++++--
 1 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/winetest/gather b/winetest/gather
index 8208e19..b0e4d7d 100755
--- a/winetest/gather
+++ b/winetest/gather
@@ -145,8 +145,15 @@ foreach my $file (glob "$datadir/$build/*/summary.txt") {
         } else {
             $report->{results}->{$testname} = [$count, $todo, $error, $skipped];
         }
-        $alltests{$testname} = "http://cvs.winehq.org/cvsweb/wine/$source" . ($rev ne "-"?"#rev$rev":"")
-            unless exists $alltests{$testname};
+	if ($rev =~ /\./) {
+		$alltests{$testname} = "http://cvs.winehq.org/cvsweb/wine/$source" . ($rev ne "-"?"#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;")
+		    unless exists $alltests{$testname};
+	}
         if ($count ne "failed") {
             if (defined $group->{extrema}->{$testname}) {
                 my $extrema = $group->{extrema}->{$testname};