[check_postgres] [commit] User version.rss file to get Postgres revision information, per suggestion from Guillaume Lelarge
check_postgres at bucardo.org
check_postgres at bucardo.org
Wed Apr 8 18:08:50 UTC 2009
Committed by Greg Sabino Mullane <greg at endpoint.com>
User version.rss file to get Postgres revision information, per suggestion from Guillaume Lelarge
---
check_postgres.pl | 14 ++++----------
1 files changed, 4 insertions(+), 10 deletions(-)
diff --git a/check_postgres.pl b/check_postgres.pl
index 220e84d..b0a96f0 100755
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -1663,7 +1663,7 @@ sub verify_version {
## We almost always need the version, so just grab it for any limitation
$SQL = q{SELECT setting FROM pg_settings WHERE name = 'server_version'};
my $oldslurp = $db->{slurp} || '';
- $info = run_command($SQL, {noverify => 1});
+ my $info = run_command($SQL, {noverify => 1});
if (defined $info->{db}[0]
and exists $info->{db}[0]{error}
and defined $info->{db}[0]{error}
@@ -4434,10 +4434,8 @@ sub check_new_version_pg {
## Note that we only check the revision
## This also depends highly on the web page at postgresql.org not changing format
- my $site = 'www.postgresql.org';
- my $url = "http://$site/";
- my $versionre1 = qr{/docs/\d+\.\d+/static/release-(\d+)\-(\d+)\-(\d+)};
- my $versionre2 = qr{/docs/\d+\.\d+/static/release\.html#RELEASE-(\d+)\-(\d+)\-(\d+)};
+ my $url = 'http://www.postgresql.org/versions.rss';
+ my $versionre = qr{<title>(\d+)\.(\d+)\.(\d+)</title>};
my $timeout = 30;
my @get_methods = (
@@ -4454,11 +4452,7 @@ sub check_new_version_pg {
my $COM = "$meth $url";
$VERBOSE >= 1 and warn "TRYING: $COM\n";
my $info = qx{$COM 2>/dev/null};
- while ($info =~ /$versionre1/g) {
- my ($maj,$min,$rev) = ($1,$2,$3);
- $newver{"$maj.$min"} = $rev;
- }
- while ($info =~ /$versionre2/g) {
+ while ($info =~ /$versionre/g) {
my ($maj,$min,$rev) = ($1,$2,$3);
$newver{"$maj.$min"} = $rev;
}
--
1.6.0.5
More information about the Check_postgres
mailing list