diff options
-rwxr-xr-x | utils/NightlyTest.pl | 24 | ||||
-rw-r--r-- | utils/NightlyTestTemplate.html | 10 |
2 files changed, 25 insertions, 9 deletions
diff --git a/utils/NightlyTest.pl b/utils/NightlyTest.pl index db61914cdd..f2a8de0bc5 100755 --- a/utils/NightlyTest.pl +++ b/utils/NightlyTest.pl @@ -151,7 +151,21 @@ sub AddRecord { sub AddPreTag { # Add pre tags around nonempty list, or convert to "none" $_ = shift; - if (length) { return "<ul><tt>$_</tt></ul>"; } else { "<b>none</b><br>"; } + if (length) { return "<pre>$_</pre>"; } else { "<b>none</b><br>"; } +} + +sub ArrayToList { # Add <li> tags around nonempty list or convert to "none" + my $result = ""; + if (scalar @_) { + $result = "<ul>"; + foreach $item (@_) { + $result .= "<li><tt>$item</tt></li>"; + } + $result .= "</ul>"; + } else { + $result = "<p><b>none</b></p>"; + } + return $result; } sub ChangeDir { # directory, logical name @@ -528,7 +542,7 @@ foreach $Warning (@Warn) { } } my $WarningsFile = join "\n", @Warnings; -my $WarningsList = AddPreTag $WarningsFile; +my $WarningsList = ArrayToList @Warnings; $WarningsFile =~ s/:[0-9]+:/::/g; # Emit the warnings file, so we can diff... @@ -539,8 +553,10 @@ my ($WarningsAdded, $WarningsRemoved) = DiffFiles "-Warnings.txt"; print "ADDED WARNINGS:\n$WarningsAdded\n\n" if (length $WarningsAdded); print "REMOVED WARNINGS:\n$WarningsRemoved\n\n" if (length $WarningsRemoved); -$WarningsAdded = AddPreTag $WarningsAdded; -$WarningsRemoved = AddPreTag $WarningsRemoved; +my @TmpWarningsAdded = split "\n", $WarningsAdded; +my @TmpWarningsRemoved = split "\n", $WarningsRemoved; +$WarningsAdded = ArrayToList @TmpWarningsAdded; +$WarningsRemoved = ArrayToList @TmpWarningsRemoved; # # Get some statistics about CVS commits over the current day... diff --git a/utils/NightlyTestTemplate.html b/utils/NightlyTestTemplate.html index 5312ebb426..c38bb2e776 100644 --- a/utils/NightlyTestTemplate.html +++ b/utils/NightlyTestTemplate.html @@ -77,7 +77,7 @@ </ul> <h2>Warnings during the build:</h2> -<p>$WarningsList</p> +$WarningsList <br><br><center> <table border="0" cellspacing="0" cellpadding="2"><tr><td bgcolor="#000000"> @@ -95,10 +95,10 @@ </ul><p> <h2>Changes to Warnings:</h2> -<ul> -<li>Warnings Added: $WarningsAdded -<li>Warnings Removed: $WarningsRemoved -</ul><p> +<p>Warnings Added:</p> +$WarningsAdded +<p>Warnings Removed:</p> +$WarningsRemoved <h2>Changes in the test suite:</h2> <ul> |