5075c9aab473439013f042415c618d846fe13722
[buildd-scripts.git] / bin / analyze_results
1 #! /usr/bin/perl
2 #
3 # analyze_results
4 #
5 # Script to analyze failed build logs. Look for specific regexps to
6 # classify things
7 #
8 #
9 # (c) 2018 Steve McIntyre <steve@einval.com> GPL v2+
10
11 use strict;
12 use warnings;
13 use POSIX qw(strftime);
14 use Data::Dumper;
15 use Getopt::Std;
16 use HTTP::Tiny;
17 use URI::Encode qw(uri_encode uri_decode);
18
19 my $name = "analyze_results";
20 my $repo = "https://git.einval.com/cgi-bin/gitweb.cgi?p=buildd-scripts.git";
21 my $hostname;
22 my $date;
23 my $time_start = time();
24 my $time_end;
25 my $time_taken;
26 my $num_fail = 0;
27 my $awaiting_analysis = 0;
28 my $lines_read = 0;
29 my $existing_bugs = 0;
30 my $buildd_base_url="https://buildd.debian.org/status/package.php?p=";
31
32 use constant {
33     ERR_ARCH_MISMATCH      => 1,
34     ERR_NO_SOURCE          => 2,
35     ERR_INFRA              => 3,
36     ERR_BD_PROBLEM         => 4,
37     ERR_DETECT_WRONG_ARCH  => 5,
38     ERR_CRASH              => 6,
39     ERR_BUILD_PROBLEM      => 7,
40     ERR_TEST_PROBLEM       => 8,
41     ERR_BUILD_TIMEOUT      => 9,
42 };
43
44 my @err_descriptions;
45 $err_descriptions [ERR_ARCH_MISMATCH]     = "Architecture mismatches";
46 $err_descriptions [ERR_NO_SOURCE]         = "No source found";
47 $err_descriptions [ERR_INFRA]             = "Infrastructure errors";
48 $err_descriptions [ERR_BD_PROBLEM]        = "Problems with build-deps";
49 $err_descriptions [ERR_DETECT_WRONG_ARCH] = "Builds detected wrong architecture";
50 $err_descriptions [ERR_CRASH]             = "Crashes detected";
51 $err_descriptions [ERR_BUILD_PROBLEM]     = "Problems detected during build phase";
52 $err_descriptions [ERR_TEST_PROBLEM]      = "Problems detected during test phase";
53 $err_descriptions [ERR_BUILD_TIMEOUT]     = "Package builds timed out";
54
55 # Known failure modes to look for
56 my @logcheck = (
57     {
58         # "rchitecture mismatch" -> should never build on this arch
59         # Stop working on this log at this point
60         string   => 'rchitecture mismatch',
61         message  => 'Architecture mismatch',
62         check    => 1,
63         stop     => 1,
64         analyze  => 0,
65         type     => ERR_ARCH_MISMATCH,
66     },
67     {
68         string   => 'not in arch list or does not match any',
69         message  => 'Architecture mismatch',
70         check    => 1,
71         stop     => 1,
72         analyze  => 0,
73         type     => ERR_ARCH_MISMATCH,
74     },
75     {
76         # "binary build with no binary artifacts found" -> no packages
77         # built. Why not picked up already above?.
78         # Stop working on this log at this point
79         string   => 'binary build with no binary artifacts found',
80         message  => 'No binaries built',
81         check    => 1,
82         stop     => 1,
83         analyze  => 1,
84         type     => ERR_ARCH_MISMATCH,
85     },
86     {
87         string   => 'E: Can not find version \S+ of package',
88         message  => 'Could not find specified source package',
89         check    => 1,
90         stop     => 1,
91         analyze  => 0,
92         type     => ERR_NO_SOURCE,
93     },
94     {
95         string   => 'schroot.*File is not owned by user root',
96         message  => 'Schroot setup failure',
97         check    => 1,
98         stop     => 1,
99         analyze  => 0,
100         type     => ERR_INFRA,
101     },
102     {
103         string   => 'No space left on device',
104         message  => 'Build ran out of disk space',
105         check    => 1,
106         stop     => 1,
107         analyze  => 0,
108         type     => ERR_INFRA,
109     },
110     {
111         string   => 'The system has no more ptys',
112         message  => 'Build ran out of ptys',
113         check    => 1,
114         stop     => 1,
115         analyze  => 0,
116         type     => ERR_INFRA,
117     },
118     {
119         string   => 'aarch64-unknown-linux-gnu',
120         message  => 'Wrong arch detected',
121         check    => 1,
122         stop     => 1,
123         analyze  => 1,
124         type     => ERR_DETECT_WRONG_ARCH,
125     },
126     {
127         string   => 'binutils-aarch64',
128         message  => 'Wrong arch detected',
129         check    => 0,
130         stop     => 1,
131         analyze  => 1,
132         type     => ERR_DETECT_WRONG_ARCH,
133     },
134     {
135         string   => 'lib.linux-aarch64',
136         message  => 'Wrong arch detected',
137         check    => 1,
138         stop     => 1,
139         analyze  => 1,
140         type     => ERR_DETECT_WRONG_ARCH,
141     },
142     {
143         # "Bus error" -> alignment bug
144         string   => 'Bus error',
145         message  => 'Alignment problem',
146         check    => 1,
147         stop     => 1,
148         analyze  => 1,
149         type     => ERR_CRASH,
150     },
151     {
152         # "Segmentation fault" -> code problem
153         string   => 'Segmentation fault',
154         pstring  => 'Setting up (\S+)',
155         message  => 'Segmentation fault when installing RESULT',
156         check    => 1,
157         stop     => 1,
158         analyze  => 1,
159         type     => ERR_CRASH,
160     },
161     {
162         # "Segmentation fault" -> code problem
163         string   => 'Segmentation fault',
164         message  => 'Segmentation fault',
165         check    => 1,
166         stop     => 1,
167         analyze  => 1,
168         type     => ERR_CRASH,
169     },
170     {
171         # "Illegal instruction" -> bad build target?
172         string   => 'Illegal instruction',
173         pstring  => 'Setting up (\S+)',
174         message  => 'Illegal instruction when installing RESULT',
175         check    => 1,
176         stop     => 1,
177         analyze  => 1,
178         type     => ERR_CRASH,
179     },
180     {
181         # "Illegal instruction" -> bad build target?
182         string   => 'Illegal instruction',
183         message  => 'Illegal instruction',
184         check    => 1,
185         stop     => 1,
186         analyze  => 1,
187         type     => ERR_CRASH,
188     },
189     {
190         # Installing build-deps failed
191         string   => 'dpkg: error processing package (\S+)',
192         message  => 'Build-dep failed to install (RESULT)',
193         check    => 1,
194         stop     => 0,
195         analyze  => 0,
196         type     => ERR_BD_PROBLEM,
197     },
198     {
199         # Installing build-deps failed
200         string   => 'E: pbuilder-satisfydepends failed.',
201         message  => 'Pbuilder build-deps failed',
202         check    => 1,
203         stop     => 1,
204         analyze  => 0,
205         type     => ERR_BD_PROBLEM,
206     },
207     {
208         # Installing build-deps failed
209         string   => 'E: Unmet dependencies',
210         message  => 'Build-deps failed',
211         check    => 1,
212         stop     => 1,
213         analyze  => 0,
214         type     => ERR_BD_PROBLEM,
215     },
216     {
217         # Installing build-deps failed
218         string   => 'unsat-dependency: (\S+)',
219         message  => 'Missing build-dep (RESULT)',
220         check    => 1,
221         stop     => 1,
222         analyze  => 0,
223         type     => ERR_BD_PROBLEM,
224     },
225     {
226         # Installing build-deps failed
227         string   => 'unsat-conflict: (\S+)',
228         message  => 'Unsatisfiable build-dep conflict (RESULT)',
229         check    => 1,
230         stop     => 1,
231         analyze  => 0,
232         type     => ERR_BD_PROBLEM,
233     },
234     {
235         # Build failed - missing build-dep?
236         string   => 'build dependencies/conflicts unsatisfied',
237         message  => 'Build-deps not satisfiable',
238         check    => 1,
239         stop     => 1,
240         analyze  => 0,
241         type     => ERR_BD_PROBLEM,
242     },
243     {
244         # Build failed
245         string   => 'dpkg-source: error: unrepresentable changes to source',
246         message  => 'dpkg-source failure',
247         check    => 1,
248         stop     => 1,
249         analyze  => 0,
250         type     => ERR_BUILD_PROBLEM,
251     },
252     {
253         # Build failed - missing build-dep?
254         string   => 'ld: cannot find',
255         message  => 'Build failure: missing library - missing build-dep?',
256         check    => 1,
257         stop     => 1,
258         analyze  => 0,
259         type     => ERR_BUILD_PROBLEM,
260     },
261     {
262         # Build failed - missing build-dep?
263         string   => 'fatal error:.*No such file or directory',
264         message  => 'Build failure: missing header - missing build-dep?',
265         check    => 1,
266         stop     => 1,
267         analyze  => 0,
268         type     => ERR_BUILD_PROBLEM,
269     },
270     {
271         # Build failed - missing build-dep?
272         string   => 'SEVERE: Cannot resolve dependencies',
273         message  => 'Build failure - missing build-dep?',
274         check    => 1,
275         stop     => 1,
276         analyze  => 0,
277         type     => ERR_BUILD_PROBLEM,
278     },
279     {
280         # Build failed - can't exec something...
281         string   => 'error trying to exec.*execvp: No',
282         message  => 'Build failure (missing binary)',
283         check    => 1,
284         stop     => 1,
285         analyze  => 1,
286         type     => ERR_BUILD_PROBLEM,
287     },
288     {
289         # Build failed
290         string   => 'BUILD FAIL',
291         message  => 'Build failure (java/javadoc)',
292         check    => 1,
293         stop     => 1,
294         analyze  => 0,
295         type     => ERR_BUILD_PROBLEM,
296     },
297     {
298         # Build failed
299         string   => '^make.*\*\*\*.* \[debian/rules.*Error \d+$',
300         message  => 'Build failure (other)',
301         check    => 1,
302         stop     => 1,
303         analyze  => 1,
304         type     => ERR_BUILD_PROBLEM,
305     },
306     {
307         # Build failed
308         string   => 'make.*returned exit code',
309         message  => 'Build failure (other)',
310         check    => 1,
311         stop     => 0,
312         analyze  => 1,
313         type     => ERR_BUILD_PROBLEM,
314     },
315     {
316         # Build failure
317         string   => 'dh_auto_build:.*returned exit code \d+',
318         message  => 'Build failure (other)',
319         check    => 1,
320         stop     => 1,
321         analyze  => 1,
322         type     => ERR_BUILD_PROBLEM,
323     },
324     {
325         # Build failure
326         string   => 'dh_auto_clean:.*returned exit code \d+',
327         message  => 'Build failure (clean failed)',
328         check    => 1,
329         stop     => 1,
330         analyze  => 0,
331         type     => ERR_BUILD_PROBLEM,
332     },
333     {
334         # Build failure
335         string   => 'dh_auto_install:.*returned exit code \d+',
336         message  => 'Build failure (install failed)',
337         check    => 1,
338         stop     => 1,
339         analyze  => 1,
340         type     => ERR_BUILD_PROBLEM,
341     },
342     {
343         # Build failure
344         string   => 'dh_auto_configure:.*returned exit code \d+',
345         message  => 'Build failure (configure failed)',
346         check    => 1,
347         stop     => 1,
348         analyze  => 1,
349         type     => ERR_BUILD_PROBLEM,
350     },
351     {
352         # Build failed
353         string   => '^debian/.*recipe for target (\S+) failed',
354         message  => 'Build failure (RESULT)',
355         check    => 1,
356         stop     => 1,
357         analyze  => 1,
358         type     => ERR_BUILD_PROBLEM,
359     },
360     {
361         # Build failed
362         string   => '^debian/.*\*\*\* (.*).  Stop.',
363         message  => 'Build error (RESULT)',
364         check    => 1,
365         stop     => 1,
366         analyze  => 1,
367         type     => ERR_BUILD_PROBLEM,
368     },
369     {
370         # Build failed
371         string   => 'dpkg-buildpackage: error:.*(debian/rules \S+) subprocess returned exit status 2',
372         message  => 'Build error (RESULT)',
373         check    => 1,
374         stop     => 1,
375         analyze  => 1,
376         type     => ERR_BUILD_PROBLEM,
377     },
378     {
379         # Build failed
380         string   => 'fakeroot debian/rules binary',
381         message  => 'Build failure (other)',
382         check    => 0,
383         stop     => 1,
384         analyze  => 1,
385         type     => ERR_BUILD_PROBLEM,
386     },
387     {
388         # Build failure
389         string   => 'constant \d+ overflows.*int',
390         message  => 'Go 32-bit integer overflow',
391         check    => 1,
392         stop     => 0,
393         analyze  => 1,
394         type     => ERR_BUILD_PROBLEM,
395     },
396     {
397         # Test failure
398         string   => 'OSError: \[Errno 13\] Permission denied',
399         message  => 'Python EPERM test failure',
400         check    => 1,
401         stop     => 1,
402         analyze  => 1,
403         type     => ERR_TEST_PROBLEM,
404     },
405     {
406         # Test failure
407         string   => 'dh_auto_test:.*returned exit code \d+',
408         message  => 'Test failure',
409         check    => 1,
410         stop     => 1,
411         analyze  => 1,
412         type     => ERR_TEST_PROBLEM,
413     },
414     {
415         # Timeout. pbuilder is too dumb to do this properly :-(
416         string   => 'I: Terminating build process due to timeout',
417         message  => 'Pbuilder build timeout',
418         check    => 1,
419         stop     => 1,
420         analyze  => 0,
421         type     => ERR_BUILD_TIMEOUT,
422     },
423     {
424         # Timeout from sbuild
425         string   => 'Build killed with signal TERM after \d+ minutes of inactivity',
426         message  => 'Sbuild build timeout',
427         check    => 1,
428         stop     => 1,
429         analyze  => 0,
430         type     => ERR_BUILD_TIMEOUT,
431     },
432 );
433
434 my %log_results;
435 my %udd;
436
437 #foreach my $checktmp (@logcheck) {
438 #    my %check = %$checktmp;
439 #    print "looking for \"$check{string}\"\n";
440 #    print "  with log message \"$check{message}\"\n";
441 #    print "  check this regexp: $check{check}\n";
442 #    print "  stop if found: $check{stop}\n";
443 #}
444
445 print "<html>\n";
446 print "<head>\n";
447 print "<title>Build log analysis</title>\n";
448 print "</head>\n";
449 print "<body>\n";
450 print "<h1>Build log analysis</h1>\n";
451 print "<p><a href=\"#summary\">Summary</a></p>\n";
452 print "<h2>Packages</h2>\n";
453 print "<ol>\n";
454
455 my $line;
456
457 our($opt_u);
458 getopts('u:') or die "getopts failure\n";
459
460 if (defined $opt_u) {
461     open (UDD, "< $opt_u") or die "Can't open UDD list file $opt_u for reading\n";
462     while (defined ($line = <UDD>)) {
463         chomp $line;
464         my ($pkg, $bugno, $bugsubj) = split (/ /, $line, 3);
465         my @buglist;
466         my $tmp = $udd{"$pkg"};
467         if ($tmp) {
468             @buglist = @$tmp;
469         }
470         push (@buglist, "$bugno: $bugsubj");
471         $udd{"$pkg"} = \@buglist;
472     }
473     close UDD;
474
475 #    foreach my $key (keys %udd) {
476 #       my $tmp = $udd{$key};
477 #       my $num = scalar (@$tmp);
478 #       print "$key has $num bugs:\n";
479 #       foreach my $entry (@$tmp) {
480 #           print "  $entry\n";
481 #       }
482 #    }
483 }
484
485 sub check_buildd_status {
486     my $pkg = shift;
487     my $version = shift;
488     my $arch = shift;
489
490     my $url = "$buildd_base_url$pkg";
491
492 #    print "Looking at URL $url\n";
493
494     my $built_on_arches = "";
495     my $built_my_arch = 0;
496     my $ftbfs_my_arch = 0;
497     my $not_my_arch = 0;
498     my $current_version = "";
499
500 #    print "Checking buildd data for package $pkg, arch $arch\n";
501
502     my $response = HTTP::Tiny->new->get($url);
503
504     if ($response->{success}) {
505 #       print "$response->{status} $response->{reason}\n";
506         my $content = $response->{content};
507 #       print "$content\n";
508
509         # Split the content up into lines
510         my @lines = split("\n", $content);
511
512         # Now look for two things:
513         # 1. how many arches have built this package?
514         # 2. has *our* arch built it?
515 #       print "we tried $version on arch $arch\n";
516         foreach my $line (@lines) {
517             chomp $line;
518             $line = uri_decode($line);
519             if ($line =~ /https:\/\/buildd.debian.org\/stats\/graph/) {
520                 my @info = split (/<\/td>/, $line);
521                 # Grab the info from our fields
522                 my $this_arch = "";
523                 if ($info[0] =~ /architecture.php\?a=([^&]*)&amp/) {
524                     $this_arch = $1;
525 #                   print "Found entry for arch $this_arch\n";
526                 } else {
527                     print "  <li>FAILED TO PARSE $url\n";
528                 }
529                 $current_version = $info[1];
530                 $current_version =~ s/^<td>//;
531 #               print "current_version for $this_arch is $current_version, we tried $version\n";
532                 my $status = "";
533                 if ($info[2] =~ /class="status status-([a-z]*)/) {
534                     $status = $1;
535 #                   print "Found status $status\n";
536                 } else {
537                     print "  <li>FAILED TO PARSE $url\n";
538                 }
539 #               foreach my $field(@info) {
540 #                   print "$field\n";
541 #               }
542 #               print "  On $this_arch we have version $current_version, status $status\n";
543                 if ($arch =~ /^\Q$this_arch\E$/) {
544                     if ($status =~ /installed/) {
545                         $built_my_arch++;
546                     } else {
547                         $ftbfs_my_arch++;
548                     }
549                 }
550                 if ($status =~ /installed/) {
551                     $built_on_arches .= "$this_arch ";
552                 }
553             }
554
555             if ($line =~ /$arch is not present in the architecture list set by the maintainer/) {
556                 $not_my_arch++;
557             }
558             if ($line =~ /No entry in $arch database/) {
559                 $not_my_arch++;
560             }
561         }
562         print "  <li>Built on this arch: $built_my_arch\n";
563         print "  <li>Built on arches: $built_on_arches\n";
564         if ($not_my_arch) {
565             print "  <li>Not set to build on $arch\n";
566         }
567         if ($ftbfs_my_arch) {
568             print "  <li>Already seen to FTBFS on $arch\n";
569         }
570         if (length($current_version) < 2) {
571             print "  <li>No current version found - has this been removed\n";
572         } elsif (! ($current_version =~ /\Q$version\E/)) {
573             print "  <li><strong>New version $current_version available - retry?</strong>\n";
574         }
575     } else {
576         print "  <LI>FAILED TO RETRIEVE buildd URL $url\n";
577     }
578 }
579     
580
581 foreach my $input (@ARGV) {
582     open (IN, "< $input") or die "Can't read $input: $!\n";
583     $num_fail++;
584     my $stop = 0;
585     my $lineno = 0;
586     my $errors = 0;
587     my $errors_need_analysis = 0;
588     my $oldline = "";
589     my %file_results;
590     my $pav;
591     my $pkg;
592     my $arch;
593     my $version;
594
595     $pav = $input;
596     $pav =~ s,^.*/,,g;
597     $pav =~ s,\.log,,g;
598     ($pkg, $version, $arch) = split (/_/, $pav);
599
600     print "<li>Looking at <a href=\"$input\">$pkg version $version on arch $arch</a>:\n";
601     print "<ul>\n";
602     while (defined ($line = <IN>) and !$stop) {
603         $lineno++;
604         $lines_read++;
605         foreach my $checktmp (@logcheck) {
606             my %check = %$checktmp;
607             if ($check{check}) {
608                 if (!$stop
609                     and ($line =~ m/$check{string}/)
610                     and (!$check{pstring} or $oldline =~ m/$check{pstring}/)) {
611 #                   print "  Line $lineno: found \"$check{string}\"\n";
612                     my $match = $1;
613                     my $message = $check{message};
614                     $message =~ s,RESULT,$match,g;
615                     $file_results{$message} = $check{type};
616                     if (($check{type} == ERR_BUILD_TIMEOUT) and ($errors == 0)) {
617                         print "  <li>Line $lineno: $message\n";
618                         print "  <li>Build killed by timeout before any errors at line $lineno\n";
619                     } else {
620                         print "  <li>Line $lineno: $message\n";
621                         $errors++;
622                     }
623                     if ($check{analyze}) {
624                         $errors_need_analysis++;
625                     }
626                     if ($check{stop}) {
627 #                       print "  stopping processing\n";
628                         $stop = 1;
629                     }
630                 }
631             }
632         }
633         $oldline = $line;
634     }
635     close IN;
636     # End of checking this package
637     print "  <li><strong>Found errors: $errors</strong>\n";
638     if (!$errors) {
639         print " (maybe just timed out during build?)\n";
640     }
641
642     # Look for a note for manually-added logfile analysis
643     my $note = $input;
644     $note =~ s,\.log$,.note,;
645     if (-f $note) {
646         open (IN, "< $note") or die "Can't open $note for reading: $!\n";
647         while (defined (my $line = <IN>)) {
648             chomp $line;
649             if ($line =~ m,#(\d+),) {
650                 my $bugno = $1;
651                 $existing_bugs++;
652                 $line =~ s,#(\d+),<a href="https://bugs.debian.org/$1">#$1</a>,g;
653             }
654             print "  <li>$line\n";
655         }
656         close IN;
657     } else {
658         if ($errors_need_analysis) {
659             print "  <li><strong>Needs analysis</strong>\n";
660             if ($udd{$pkg}) {
661                 my $tmp = $udd{$pkg};
662                 my $num = scalar (@$tmp);
663                 print "  <li>$num reported FTBFS bugs:\n";
664                 print "  <ul>\n";
665                 foreach my $entry (@$tmp) {
666                     print "    <li>#$entry\n";
667                 }
668                 print "  </ul>\n";
669             }
670             check_buildd_status($pkg, $version, $arch);
671             $awaiting_analysis++;
672         }
673     }
674
675     print "</ul>\n";
676     foreach my $key (keys %file_results) {
677         $log_results{$file_results{$key}}{$key} += 1;
678 #       print "now have $log_results{$key} for \"$key\"\n";
679     }
680 }
681 print "</ol>\n";
682
683 print "<a name=\"summary\"</a>\n";
684 print "<h2>Summary of results from $num_fail failed builds:</h2>\n";
685 print "<p>$awaiting_analysis logs still need analysis</p>\n";
686 print "<ul>\n";
687 print "  <li>Linked to $existing_bugs bugs in the Debian BTS</li>\n";
688 foreach my $type (sort keys %log_results) {
689     print "  <h3>$err_descriptions[$type]</h3>\n";
690     my $tmp = $log_results{$type};
691     my %result = %$tmp;
692     foreach my $key (sort { $result{$b} <=> $result{$a} }keys %result) {
693         print "  <li>Found $result{$key} log(s) showing $key\n";
694     }
695 }
696 print "</ul>\n";
697
698 $time_end = time();
699 $time_taken = $time_end - $time_start;
700 $date = strftime "%a %b %e %H:%M:%S %Z %Y", localtime;
701 $hostname = `hostname`;
702 chomp $hostname;
703
704 print "<hr>\n";
705 print "<p>Log analysis generated on $hostname, $date.\n";
706 print "<br>Output from $name - see <a href=\"$repo\">$repo</a> for source.\n";
707 print "<br>Read $lines_read lines of logs and took $time_taken seconds to complete.\n";
708
709 print "</body>\n";
710 print "</html>\n";