]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Link to the log files in case of a failure.
authordeal <deal@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 2 May 2002 17:46:03 +0000 (17:46 +0000)
committerdeal <deal@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 2 May 2002 17:46:03 +0000 (17:46 +0000)
Give tool-tips if you hover over a pic indicating which system, which compiler, date, and time.

git-svn-id: https://svn.dealii.org/trunk@5799 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/common/scripts/report-build-tests.pl

index 6cfeef892cf2cc12ca45618cd7ff45050e8c7f9a..4025c42b6abfe3a0ead258ee4d33925f2ac2a4ca 100644 (file)
@@ -1,4 +1,8 @@
 ############################################################
+$compiler_table{"gcc295"} = "gcc 2.95";
+$compiler_table{"gcc30"} = "gcc 3.0";
+$compiler_table{"icc50"} = "Intel ICC 5.0";
+
 # first read in list of test results
 while (<>)
 {
@@ -11,17 +15,30 @@ while (<>)
 
        $total_testcases{$date}++;
 
+       # first extract from the data an alternative text, so that if you hover
+       # over the image with the mouse you'll see a text describing which
+       # compiler was used, which date and time.
+       $system = $name;   $system =~ s/\+.*//g;
+       $compiler = $name; $compiler =~ s/.*\+//g;
+       $alt = "System=$system; Compiler=$compiler_table{$compiler}; Date=$date; Time=$time";
+
        if ($result eq '+') {
            $results{$date}{$name} 
-           = '<img src="pictures/ok.gif" size="1">';
+           = "<img src=\"pictures/ok.gif\" size=\"1\" alt=\"$alt\">";
        }
        else
        {
-           # TODO: the result is actually the name of a file with logs
-           # in it. Use that and cross-link to that file so that
-           # one can see what has gone wrong
+           # $result contains the minus to indicate failure, but then also filename
+           # in which the logs are stored of that failed build. Cross-link with
+           # the red cross symbol to a copy of that file. For this, get filename only
+           $result =~ s/^- //;
+           $result =~ s#.*/##g;
            $results{$date}{$name}
-           = '<img src="pictures/fail.gif" size="1">';
+           = '<a href="build-reports/' . 
+             $result . 
+             '" target="_top"><img src="pictures/fail.gif" size="1"' . 
+             " alt=\"$alt\"" .
+             '></a>';
            $failed_testcases{$date}++;
        };
     }
@@ -235,9 +252,6 @@ foreach $name (sort keys %testcase) {
     $test_system   =~ s/\+.*//;
     $test_compiler = $name;
     $test_compiler =~ s/.*\+//g;
-    $compiler_table{"gcc295"} = "gcc 2.95";
-    $compiler_table{"gcc30"} = "gcc 3.0";
-    $compiler_table{"icc50"} = "Intel ICC 5.0";
     if (defined $compiler_table{$test_compiler} ) {
        $test_compiler = $compiler_table{$test_compiler};
     }

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.