Add support for notes from manual analysis
authorSteve McIntyre <steve@einval.com>
Wed, 24 Oct 2018 16:24:43 +0000 (17:24 +0100)
committerSteve McIntyre <steve@einval.com>
Wed, 24 Oct 2018 16:24:43 +0000 (17:24 +0100)
Look for a .note file to match the .log file
If found, grab the text.
Check for know BTS entries referenced there too

bin/analyze_results

index c4831ea..09d1643 100755 (executable)
@@ -9,6 +9,7 @@ use warnings;
 my $logs = "/home/build/logs";
 my $logs_fail = "$logs/FAIL";
 my $num_fail = 0;
+my $existing_bugs = 0;
 
 # Known failure modes to look for
 my @logcheck = (
@@ -282,6 +283,24 @@ foreach my $input (@ARGV) {
     if (!$errors) {
        print " (maybe just timed out during build?)\n";
     }
+
+    # Look for a note for manually-added logfile analysis
+    my $note = $input;
+    $note =~ s,\.log$,.note,;
+    if (-f $note) {
+       open (IN, "< $note") or die "Can't open $note for reading: $!\n";
+       while (defined (my $line = <IN>)) {
+           chomp $line;
+           if ($line =~ m,#(\d+),) {
+               my $bugno = $1;
+               $existing_bugs++;
+               $line =~ s,#(\d+),<a href="https://bugs.debian.org/$1">#$1</\a>,g;
+           }
+           print "  <li>$line\n";
+       }
+       close IN;
+    }
+
     print "</ul>\n";
     foreach my $key (keys %file_results) {
        $log_results{$key} += 1;
@@ -292,6 +311,7 @@ print "</ol>\n";
 
 print "<h2>Summary of results from $num_fail failed builds:</h2>\n";
 print "<ol>\n";
+print "<li>Found $existing_bugs existing bugs</li>\n";
 foreach my $key (keys %log_results) {
     print "  <li>Found $log_results{$key} logs showing $key\n";
 }