Francois Gouget : testbot/web: Add links to the first and last new untracked failures.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 8f9b52478dc31b7883447a83e7ca9862439bd4cf
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=8f9b52478dc31b7883447a83...

Author: Francois Gouget 
Date:   Fri Jul  8 15:34:42 2022 +0200

testbot/web: Add links to the first and last new untracked failures.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/web/JobDetails.pl | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index 3fbdb427..321d025e 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -437,8 +437,13 @@ sub GenerateFullLog($$$$$)
           }
         }
       }
-      $LogBugs{-1} ||= [$LineNo, ""];
-      $LogBugs{9999999} = [$LineNo, ""];
+      $LogBugs{-2} ||= [$LineNo, "First failure"];
+      if ($ErrCategory{$LineNo} eq "fullnew" and !$ErrFailures{$LineNo})
+      {
+        $LogBugs{-1} ||= [$LineNo, "First untracked new failure"];
+        $LogBugs{10000000} = [$LineNo, "Last untracked new failure"];
+      }
+      $LogBugs{10000001} = [$LineNo, "Last failure"];
     }
   }
   if (%LogBugs)
@@ -447,7 +452,11 @@ sub GenerateFullLog($$$$$)
     foreach my $Label (sort { $a <=> $b } keys %LogBugs)
     {
       my ($LineNo, $Title) = @{$LogBugs{$Label}};
-      $Label = $Label < 0 ? "First" : $Label == 9999999 ? "Last" : $Label;
+      $Label = $Label == -2 ? "First" :
+               $Label == -1 ? "new" :
+               $Label == 10000000 ? "new" :
+               $Label == 10000001 ? "Last" :
+               $Label;
       $Title = " title='". $self->escapeHTML($Title) ."'" if ($Title);
       print " <a href='#k${LogId}L$LineNo'$Title>$Label</a>"
     }