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

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 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 3fbdb427e6..321d025e72 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>"
     }