From 7d7269cd40acbc30e5d2f8a89dd6bac759e6fac5 Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@endpoint.com>
Date: Sat, 2 Jul 2011 22:34:05 -0400
Subject: [PATCH] Set some defaults for archive_ready and wal_files.
 Adjustements welcome. Also make the output for both actions clearer.

---
 check_postgres.pl | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/check_postgres.pl b/check_postgres.pl
index 8c9d5781b..979d875e4 100755
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -330,6 +330,8 @@ our %msg = (
     'version-badmrtg'    => q{Invalid mrtg version argument},
     'version-fail'       => q{version $1, but expected $2},
     'version-ok'         => q{version $1},
+    'wal-numfound'       => q{WAL files found: $1},
+    'wal-numfound2'      => q{WAL "$2" files found: $1},
 },
 'fr' => {
     'address'            => q{adresse},
@@ -566,6 +568,8 @@ our %msg = (
     'version-badmrtg'    => q{Argument invalide pour la version de mrtg},
     'version-fail'       => q{version $1, alors que la version attendue est $2},
     'version-ok'         => q{version $1},
+'wal-numfound'       => q{WAL files found: $1},
+'wal-numfound2'      => q{WAL "$2" files found: $1},
 },
 'af' => {
 },
@@ -3104,7 +3108,7 @@ sub check_archive_ready {
     ## Critical and warning are the number of files
     ## Example: --critical=10
 
-    return check_wal_files('/archive_status', '.ready');
+    return check_wal_files('/archive_status', '.ready', 10, 15);
 
 } ## end of check_archive_ready
 
@@ -7459,7 +7463,18 @@ sub check_wal_files {
     my $subdir = shift || '';
     my $extrabit = shift || '';
 
-    my ($warning, $critical) = validate_range({type => 'positive integer', leastone => 1});
+    my $default_warning = shift || 10;
+    my $default_critical = shift || 15;
+
+    my $arg = {type => 'positive integer', leastone => 1};
+    if ($default_warning) {
+        $arg->{default_warning} = $default_warning;
+    }
+    if ($default_critical) {
+        $arg->{default_critical} = $default_critical;
+    }
+
+    my ($warning, $critical) = validate_range($arg);
 
     ## Figure out where the pg_xlog directory is
     $SQL = qq{SELECT count(*) AS count FROM pg_ls_dir('pg_xlog$subdir') WHERE pg_ls_dir ~ E'^[0-9A-F]{24}$extrabit\$'}; ## no critic (RequireInterpolationOfMetachars)
@@ -7473,7 +7488,8 @@ sub check_wal_files {
         if ($MRTG) {
             do_mrtg({one => $numfiles});
         }
-        my $msg = qq{$numfiles};
+        my $msg = $extrabit ? msg('wal-numfound2', $numfiles, $extrabit)
+            : msg('wal-numfound', $numfiles);
         $db->{perf} .= sprintf '%s=%s;%s;%s',
             perfname(msg('files')), $numfiles, $warning, $critical;
         if (length $critical and $numfiles > $critical) {
-- 
2.30.2