From: Darold Gilles Date: Sat, 5 Apr 2014 08:23:58 +0000 (+0200) Subject: Fix pull request 147 to completely remove error example part when --sample is set... X-Git-Tag: v5.1~29 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=c2f72c52c8036630b1d87d252f71fb0c0ede9d97;p=pgbadger Fix pull request 147 to completely remove error example part when --sample is set to 0. --- diff --git a/pgbadger b/pgbadger index cb88c4d..624e970 100755 --- a/pgbadger +++ b/pgbadger @@ -2322,12 +2322,14 @@ sub set_top_sample $normalyzed_info{$norm}{samples}{$dt}{remote} = $remote; $normalyzed_info{$norm}{samples}{$dt}{app} = $app; - my $i = 1; - foreach my $k (sort {$b <=> $a} keys %{$normalyzed_info{$norm}{samples}}) { - if ($i > $sample) { - delete $normalyzed_info{$norm}{samples}{$k}; + if ($sample > 0) { + my $i = 1; + foreach my $k (sort {$b <=> $a} keys %{$normalyzed_info{$norm}{samples}}) { + if ($i > $sample) { + delete $normalyzed_info{$norm}{samples}{$k}; + } + $i++; } - $i++; } } @@ -7208,7 +7210,11 @@ sub show_error_as_html

+}; + print $fh qq{

+} if (($sample > 0) && ($#{$error_info{$k}{date}} >= 0)); + print $fh qq{
@@ -8628,12 +8634,14 @@ sub store_queries $error_info{$normalized_error}{chronos}{"$cur_day_str"}{"$cur_hour_str"}{count}++; # Stores normalized query samples - my $cur_last_log_timestamp = "$cur_info{$t_pid}{year}-$cur_info{$t_pid}{month}-$cur_info{$t_pid}{day} " . - "$cur_info{$t_pid}{hour}:$cur_info{$t_pid}{min}:$cur_info{$t_pid}{sec}"; - &set_top_error_sample( - $normalized_error, $cur_last_log_timestamp, $cur_info{$t_pid}{query}, $cur_info{$t_pid}{detail}, - $cur_info{$t_pid}{context}, $cur_info{$t_pid}{statement}, $cur_info{$t_pid}{hint}, $cur_info{$t_pid}{dbname} - ); + if ($sample > 0) { + my $cur_last_log_timestamp = "$cur_info{$t_pid}{year}-$cur_info{$t_pid}{month}-$cur_info{$t_pid}{day} " . + "$cur_info{$t_pid}{hour}:$cur_info{$t_pid}{min}:$cur_info{$t_pid}{sec}"; + &set_top_error_sample( + $normalized_error, $cur_last_log_timestamp, $cur_info{$t_pid}{query}, $cur_info{$t_pid}{detail}, + $cur_info{$t_pid}{context}, $cur_info{$t_pid}{statement}, $cur_info{$t_pid}{hint}, $cur_info{$t_pid}{dbname} + ); + } } elsif ($cur_info{$t_pid}{loglevel} eq 'LOG') {