From 5ade2a3e41b6ee7852facd40118714683f2bc9b8 Mon Sep 17 00:00:00 2001
From: Michael Pirogov <vbnet.ru@gmail.com>
Date: Thu, 19 Oct 2017 14:01:19 +0300
Subject: [PATCH] Support check_hot_standby_delay for PG10

---
 check_postgres.pl | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/check_postgres.pl b/check_postgres.pl
index b7df607d..7f6a527c 100755
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -5111,7 +5111,12 @@ sub check_hot_standby_delay {
     my ($moffset, $s_rec_offset, $s_rep_offset, $time_delta);
 
     ## On slave
-    $SQL = q{SELECT pg_last_xlog_receive_location() AS receive, pg_last_xlog_replay_location() AS replay};
+    if ($version >= 10) {
+        $SQL = q{SELECT pg_last_wal_receive_lsn() AS receive, pg_last_wal_replay_lsn() AS replay};
+    }
+    else {
+        $SQL = q{SELECT pg_last_xlog_receive_location() AS receive, pg_last_xlog_replay_location() AS replay};
+    }
     if ($version >= 9.1) {
         $SQL .= q{, COALESCE(ROUND(EXTRACT(epoch FROM now() - pg_last_xact_replay_timestamp())),0) AS seconds};
     }
@@ -5141,7 +5146,12 @@ sub check_hot_standby_delay {
     }
 
     ## On master
-    $SQL = q{SELECT pg_current_xlog_location() AS location};
+    if ($version >= 10) {
+        $SQL = q{SELECT pg_current_wal_lsn() AS location};
+    }
+    else {
+        $SQL = q{SELECT pg_current_xlog_location() AS location};
+    }
     $info = run_command($SQL, { dbnumber => $master });
     for $db (@{$info->{db}}) {
         my $location = $db->{slurp}[0]{location};