--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Munin::Plugin::Pgsql;
+
+my $pg = Munin::Plugin::Pgsql->new(
+ title => 'PostgreSQL replication delay',
+ info => 'Replication delay',
+ vlabel => 'Seconds',
+ basequery =>
+ "SELECT
+ CASE
+ WHEN pg_last_xlog_receive_location() = pg_last_xlog_replay_location() THEN 0::int
+ ELSE (extract(epoch FROM now()) - extract(epoch FROM pg_last_xact_replay_timestamp()))::int
+ END AS delay",
+ pivotquery => 1,
+ configquery =>
+ "VALUES ('delay','Replication delay')"
+);
+
+$pg->Process();