Link revision string to gitweb commit
authorMans Rullgard <mans@mansr.com>
Tue, 18 Jan 2011 21:19:16 +0000 (21:19 +0000)
committerMans Rullgard <mans@mansr.com>
Tue, 18 Jan 2011 21:19:16 +0000 (21:19 +0000)
FATE.pm
history.cgi
index.cgi
report.cgi

diff --git a/FATE.pm b/FATE.pm
index 6044de8..12655ef 100644 (file)
--- a/FATE.pm
+++ b/FATE.pm
@@ -13,7 +13,8 @@ BEGIN {
     @EXPORT  = qw/split_header split_config split_rec parse_date agestr
                   split_stats load_summary load_report
                   doctype start end tag h1 span trow trowa trowh th td anchor
-                  fail $fatedir $recent_age $ancient_age $hidden_age href/;
+                  fail $fatedir $recent_age $ancient_age $hidden_age href
+                  $gitweb/;
 }
 
 our $fatedir;
@@ -21,6 +22,7 @@ our $recent_age  = 3600;
 our $ancient_age = 3 * 86400;
 our $hidden_age  = 30 * 86400;
 our $pretty_links = 0;
+our $gitweb;
 
 require "$ENV{FATEWEB_CONFIG}";
 
index 9598b0e..114d9aa 100755 (executable)
@@ -48,7 +48,13 @@ for my $date (sort { $b cmp $a } @reps) {
     td $$rep{subarch} || $$rep{arch};
     td $$rep{os};
     td $$rep{cc};
-    td $$rep{rev};
+    if ($gitweb and $$rep{rev} =~ /git-(.*)/) {
+        start 'td';
+        anchor $$rep{rev}, href => "$gitweb;a=commit;h=$1";
+        end 'td';
+    } else {
+        td $$rep{rev};
+    }
     if ($npass) {
         $rtext  = "$npass / $ntest";
         $rclass = $npass==$ntest? 'pass' : $npass? 'warn' : 'fail';
index 8ef4385..4d0ce8e 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -147,7 +147,13 @@ for my $rep (sort repcmp @reps) {
     td $$rep{subarch};
     td $$rep{os};
     td $$rep{cc};
-    td $$rep{rev};
+    if ($gitweb and $$rep{rev} =~ /git-(.*)/) {
+        start 'td';
+        anchor $$rep{rev}, href => "$gitweb;a=commit;h=$1";
+        end 'td';
+    } else {
+        td $$rep{rev};
+    }
     if ($npass) {
         $rtext  = "$npass / $ntest";
         $rclass = $npass==$ntest? 'pass' : $npass? 'warn' : 'fail';
index 1b71ff5..5934002 100755 (executable)
@@ -97,7 +97,16 @@ trow 'CPU',           $$conf{cpu};
 trow 'OS',            $$conf{os};
 trow 'Compiler',      $$conf{cc};
 trow 'Configuration', $$conf{config};
-trow 'Revision',      $$hdr{rev};
+start 'tr';
+td   'Revision';
+if ($gitweb and $$hdr{rev} =~ /git-(.*)/) {
+    start 'td';
+    anchor $$hdr{rev}, href => "$gitweb;a=commit;h=$1";
+    end 'td';
+} else {
+    td $$hdr{rev};
+}
+end 'tr';
 trow 'Date',          asctime gmtime parse_date $$hdr{date};
 trow 'Status',        $npass? "$npass / $ntest" : "$$hdr{errstr} ($$hdr{status})";
 start 'tr';