Improve main index and history tables
authorMans Rullgard <mans@mansr.com>
Sun, 25 Jul 2010 20:00:16 +0000 (21:00 +0100)
committerMans Rullgard <mans@mansr.com>
Sun, 25 Jul 2010 20:00:16 +0000 (21:00 +0100)
history.cgi
index.cgi

index 97fa952..7816824 100755 (executable)
@@ -33,7 +33,7 @@ start 'body';
 h1 "Report history for $slot";
 
 start 'table', id => 'index';
-trowh 'Time', 'Arch', 'OS', 'Compiler', 'Rev', 'Status', 'Tests';
+trowh 'Time', 'Arch', 'OS', 'Compiler', 'Rev', 'Result';
 for my $rep (sort { $b cmp $a } @reps) {
     open R, "$slotdir/$rep/report";
     my @header = split /:/, scalar <R>;
@@ -42,6 +42,8 @@ for my $rep (sort { $b cmp $a } @reps) {
     my ($arch, $subarch, $cpu, $os, $cc) = @config[1..5];
     my $ntest;
     my $npass;
+    my $rtext;
+    my $rclass;
     while (<R>) {
         my @rec = split /:/;
         $rec[1] == 0 and $npass++;
@@ -54,10 +56,16 @@ for my $rep (sort { $b cmp $a } @reps) {
     td $os;
     td $cc;
     td $rev;
-    td $errstr, class => $err? 'fail' : 'pass';
-    start 'td', class => $npass==$ntest? 'pass' : $npass? 'warn' : 'fail';
+    if ($npass) {
+        $rtext  = "$npass / $ntest";
+        $rclass = $npass==$ntest? 'pass' : $npass? 'warn' : 'fail';
+    } else {
+        $rtext  = $errstr;
+        $rclass = 'fail'
+    }
+    start 'td', class => $rclass;
     start 'a', href => "report.cgi?slot=$slot&time=$date";
-    print "$npass / $ntest";
+    print $rtext;
     end 'a';
     end 'td';
     end 'tr';
index 5ac6934..e7340e1 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -29,7 +29,7 @@ start 'body';
 h1 'FATE';
 
 start 'table', id => 'index';
-trowh 'Time', 'Arch', 'OS', 'Compiler', 'Rev', 'Status', 'Tests';
+trowh 'Time', 'Arch', 'OS', 'Compiler', 'Rev', 'Result';
 for my $slot (sort @slots) {
     open R, "$fatedir/$slot/latest/report";
     my @header = split /:/, scalar <R>;
@@ -38,6 +38,8 @@ for my $slot (sort @slots) {
     my ($arch, $subarch, $cpu, $os, $cc) = @config[1..5];
     my $ntest;
     my $npass;
+    my $rtext;
+    my $rclass;
     while (<R>) {
         my @rec = split /:/;
         $rec[1] == 0 and $npass++;
@@ -52,10 +54,16 @@ for my $slot (sort @slots) {
     td $os;
     td $cc;
     td $rev;
-    td $errstr, class => $err? 'fail' : 'pass';
-    start 'td', class => $npass==$ntest? 'pass' : $npass? 'warn' : 'fail';
+    if ($npass) {
+        $rtext  = "$npass / $ntest";
+        $rclass = $npass==$ntest? 'pass' : $npass? 'warn' : 'fail';
+    } else {
+        $rtext  = $errstr;
+        $rclass = 'fail'
+    }
+    start 'td', class => $rclass;
     start 'a', href => "report.cgi?slot=$slot&time=$date";
-    print "$npass / $ntest";
+    print $rtext;
     end 'a';
     end 'td';
     end 'tr';