#!/usr/bin/perl -w
# $Id: check_mysql_proxy 212 2016-03-01 09:51:31Z sanders $
use strict;

if (-e "/etc/keepalived/state.BACKUP") {
    print "OK - Backup\n";
    exit 0;
}

if (-e "/etc/keepalived/state.MASTER") {
    my $vrrp_ip = `/sbin/ip ad sh`;
    if ($vrrp_ip !~ m#10\.0\.0\.245#) {
        print "ERROR - VRRP master but IP not bound?\n";
        exit 2;
    }

    my $proxy_pid = `/bin/pidof mysql-proxy`;
    if ($proxy_pid !~ m#^[\s\d]+$#) {
        print "ERROR - MySQL Proxy is not running on VRRP Master\n";
        exit 2;
    }

    print "OK - VRRP IP and MySQL proxy, situation seems normal\n";
    exit 0;
}

print "ERROR - No state files? Keepalived not running?\n";
exit 2;

