From 356bfe73b9b25c9cdf86dd9e125f411824db74fc Mon Sep 17 00:00:00 2001 From: Dylan William Hardison Date: Wed, 19 Apr 2017 09:50:38 -0400 Subject: Bug 1357809 - Add endpoints for future cloud-services integration --- heartbeat.cgi | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 heartbeat.cgi (limited to 'heartbeat.cgi') diff --git a/heartbeat.cgi b/heartbeat.cgi new file mode 100644 index 000000000..47f3d59a2 --- /dev/null +++ b/heartbeat.cgi @@ -0,0 +1,45 @@ +#!/usr/bin/perl -T +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# +# This Source Code Form is "Incompatible With Secondary Licenses", as +# defined by the Mozilla Public License, v. 2.0. + +use 5.10.1; +use strict; +use warnings; + +use lib qw(. lib local/lib/perl5); + +use Bugzilla; +use Bugzilla::Constants; +use Bugzilla::Error; +use Bugzilla::Update; + +my $ok = eval { + # Ensure that any Throw*Error calls just use die, rather than trying to return html... + Bugzilla->error_mode(ERROR_MODE_DIE); + my $memcached = Bugzilla->memcached; + my $dbh = Bugzilla->dbh; + my $database_ok = $dbh->ping; + my $versions = $memcached->{memcached}->server_versions; + my $memcached_ok = keys %$versions; + + die "database not available" unless $database_ok; + die "memcached server(s) not available" unless $memcached_ok; + die "mod_perl not configured?" unless $ENV{MOD_PERL}; + 1; +}; +warn "heartbeat error: $@" if !$ok && $@; + +my $cgi = Bugzilla->cgi; +print $cgi->header(-type => 'text/plain', -status => $ok ? '200 OK' : '500 Internal Server Error'); +print $ok ? "Bugzilla OK\n" : "Bugzilla NOT OK\n"; + +if ($ENV{MOD_PERL}) { + my $r = $cgi->r; + # doing this supresses the error document, but does not change the http response code. + $r->rflush; + $r->status(200); +} -- cgit v1.2.3-24-g4f1b