Two new reports: VACUUM/ANALYZE per table

diff --git a/pgbadger b/pgbadger
index ebdc58b4311d80f9923ff0b4955106e0de8e69da..0a4ea7e1a3c19f3345f8f458470f1ee97b50992e 100755 (executable)
--- a/pgbadger
+++ b/pgbadger
@@ -22,6 +22,7 @@
 #  log_disconnections = on
 #  log_lock_waits = on
 #  log_temp_files = 0
+#  log_autovacuum_min_duration = 0
 #------------------------------------------------------------------------------
 use vars qw($VERSION);
 
@@ -89,6 +90,7 @@ my $disable_connection      = 0;
 my $disable_lock            = 0;
 my $disable_temporary       = 0;
 my $disable_checkpoint      = 0;
+my $disable_autovacuum      = 0;
 my $avg_minutes             = 5;
 my $last_parsed             = '';
 my $report_title            = 'PgBadger: PostgreSQL log analyzer';
@@ -169,6 +171,7 @@ my $result = GetOptions(
        "disable-lock!"            => \$disable_lock,
        "disable-temporary!"       => \$disable_temporary,
        "disable-checkpoint!"      => \$disable_checkpoint,
+       "disable-autovacuum!"      => \$disable_autovacuum,
        "enable-log_duration!"     => \$enable_log_duration,
        "enable-log_min_duration!" => \$enable_log_min_duration,
        "client=s"                 => \@dbclient2, # Backward compatibility
@@ -531,6 +534,8 @@ my %application_info    = ();
 my %session_info        = ();
 my %conn_received       = ();
 my %checkpoint_info     = ();
+my %autovacuum_info     = ();
+my %autoanalyze_info    = ();
 my @graph_values        = ();
 my %cur_info            = ();
 my $nlines              = 0;
@@ -1033,6 +1038,7 @@ Options:
     --disable-lock         : do not generate lock report.
     --disable-temporary    : do not generate temporary report.
     --disable-checkpoint   : do not generate checkpoint report.
+    --disable-autovacuum   : do not generate autovacuum report.
     --enable-log_duration  : force pgBadger to use log_duration even if
                              log_min_duration_statement format is autodetected.
     --enable-log_min_duration: force pgBadger to use log_min_duration even if
@@ -2115,8 +2121,19 @@ sub dump_as_html
                my $db_count = scalar keys %database_info;
                print $fh qq{
 <li>Total number of databases: $db_count</li>
+};
        }
-}
+       if ($autovacuum_info{count}) {
+               print $fh qq{
+<li>Total number of automatic vacuums: $autovacuum_info{count}</li>
+};
+       }
+       if ($autoanalyze_info{count}) {
+               print $fh qq{
+<li>Total number of automatic analyzes: $autoanalyze_info{count}</li>
+};
+       }
+
        print $fh qq{
 </ul>
 </td></tr></table>
@@ -2593,6 +2610,59 @@ qq{<th>Wrote buffers</th><th>Added</th><th>Removed</th><th>Recycled</th><th>Writ
                                $d1 = '';
                                $d2 = '';
                        }
+
+                       # VACUUM stats per table
+                       if ($autovacuum_info{count} > 0) {
+                               print $fh qq{
+               <h2 id="VacuumByTableReport">VACUUMs by table <a href="#top" title="Back to top">^</a></h2>
+               <table>
+               <tr><td width="500" align="left" valign="top">
+               <table class="SmallTableList">
+                       <tr>
+                               <th>Table</th>
+                               <th>VACUUMs</th>
+                               <th>Index scans</th>
+                       </tr>
+               };
+                               my $total_count   = 0;
+                               my $total_idxscan = 0;
+                               foreach my $t (sort keys %{$autovacuum_info{tables}}) {
+                                       print $fh "<tr class=\"row1\"><td>", $t,
+                                           "</td><td class=\"right\">", $autovacuum_info{tables}{$t}{vacuums},
+                                               "</td><td class=\"right\">", $autovacuum_info{tables}{$t}{idxscans},
+                                               "</td></tr>\n";
+                                       $total_count   += $autovacuum_info{tables}{$t}{vacuums};
+                                       $total_idxscan += $autovacuum_info{tables}{$t}{idxscans};
+                               }
+                               print $fh "<tr class=\"row1\"><td><b>Total</b></td><td class=\"right\">", $total_count,
+                                       "</td><td class=\"right\">", $total_idxscan, "</td></tr>\n";
+                               print $fh "</table></td></tr></table>\n";
+                       }
+
+                       # ANALYZE stats per table
+                       if ($autoanalyze_info{count} > 0) {
+                               print $fh qq{
+               <h2 id="AnalyzeByTableReport">ANALYZEs by table <a href="#top" title="Back to top">^</a></h2>
+               <table>
+               <tr><td width="500" align="left" valign="top">
+               <table class="SmallTableList">
+                       <tr>
+                               <th>Table</th>
+                               <th>ANALYZEs</th>
+                       </tr>
+               };
+                               my $total_count   = 0;
+                               my $total_idxscan = 0;
+                               foreach my $t (sort keys %{$autoanalyze_info{tables}}) {
+                                       print $fh "<tr class=\"row1\"><td>", $t,
+                                           "</td><td class=\"right\">", $autoanalyze_info{tables}{$t}{analyzes},
+                                               "</td></tr>\n";
+                                       $total_count   += $autoanalyze_info{tables}{$t}{analyzes};
+                               }
+                               print $fh "<tr class=\"row1\"><td><b>Total</b></td><td class=\"right\">", $total_count,
+                                       "</td></tr>\n";
+                               print $fh "</table></td></tr></table>\n";
+                       }
                }
        }
 
@@ -4196,6 +4266,31 @@ sub parse_query
                return;
        }
 
+       # Store autovacuum information
+       if (
+               ($prefix_vars{'t_loglevel'} eq 'LOG')
+               && ($prefix_vars{'t_query'} =~
+/automatic vacuum of table "([^\s]+)": index scans: (\d+)/
+                  )
+          )
+       {
+               return if ($disable_autovacuum);
+               $autovacuum_info{count}++;
+               $autovacuum_info{tables}{$1}{vacuums} += 1;
+               $autovacuum_info{tables}{$1}{idxscans} += $2;
+       }
+       if (
+               ($prefix_vars{'t_loglevel'} eq 'LOG')
+               && ($prefix_vars{'t_query'} =~
+/automatic analyze of table "([^\s]+)"/
+                  )
+          )
+       {
+               return if ($disable_autovacuum);
+               $autoanalyze_info{count}++;
+               $autoanalyze_info{tables}{$1}{analyzes} += 1;
+       }
+
        # Store checkpoint information
        if (
                ($prefix_vars{'t_loglevel'} eq 'LOG')