diff options
author | Michael Meeks <michael.meeks@collabora.com> | 2013-11-12 13:28:36 +0000 |
---|---|---|
committer | Michael Meeks <michael.meeks@collabora.com> | 2013-11-12 13:28:36 +0000 |
commit | 973de2a358b44e68115dc4ea9fc5453781dfaf4a (patch) | |
tree | 234f25d750a108a2c51204c2ad066e896003f13d | |
parent | a26bb7cc3f76968290c378b8406c9692cc5a63c3 (diff) |
cleanup output & hide a few names.
-rwxr-xr-x | scripts/esc-bug-stats.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/scripts/esc-bug-stats.pl b/scripts/esc-bug-stats.pl index c8210b0a..0b739ff7 100755 --- a/scripts/esc-bug-stats.pl +++ b/scripts/esc-bug-stats.pl @@ -10,6 +10,9 @@ my %sadly_non_libreoffice = ( 'Søren Sandmann Pedersen' => 1, 'Daniel Vetter' => 1, 'Sergey V. Udaltsov' => 1, + 'Marek Olšák' => 1, + 'Emil Velikov' => 1, + 'ajax at nwnk dot net' => 1, ); # use me for testing XML pretty printing etc. @@ -134,7 +137,7 @@ sub crunch_bugstat_lines(@) } elsif ($region eq 'top-closer-name' && $line =~ m/<span class=".*">(.*)<\/span>/) { $closer_name = $1; - print "$closer_name\n"; +# print "$closer_name\n"; $region = 'top-closer-count'; } elsif ($region eq 'top-closer-count' && $line =~ m/">([0-9]+)<\/a><\/td>/) { @@ -146,7 +149,7 @@ sub crunch_bugstat_lines(@) $region eq 'end' || die "Failed to parse weekly bug summary - in region '$region'"; - print STDERR " many thanks to the top five bug squashers:\n"; + print STDERR " many thanks to the top bug squashers:\n"; for my $name (sort { $closed_stats{$b} <=> $closed_stats{$a} } keys %closed_stats) { next if (defined $sadly_non_libreoffice{$name}); printf STDERR " %-20s%2s\n", $name, $closed_stats{$name}; |