/usr/share/perl5/MHA/ManagerConst.pm is in mha4mysql-manager 0.53-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | #!/usr/bin/env perl
# Copyright (C) 2011 DeNA Co.,Ltd.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
package MHA::ManagerConst;
use strict;
use warnings FATAL => 'all';
use MHA::NodeConst;
our $VERSION = '0.53';
our $NODE_MIN_VERSION = '0.21';
our @ALIVE_ERROR_CODES = (
1040, # ER_CON_COUNT_ERROR
1042, # ER_BAD_HOST_ERROR
1043, # ER_HANDSHAKE_ERROR
1044, # ER_DBACCESS_DENIED_ERROR
1045, # ER_ACCESS_DENIED_ERROR
1129, # ER_HOST_IS_BLOCKED
1130, # ER_HOST_NOT_PRIVILEGED
1203, # ER_TOO_MANY_USER_CONNECTIONS
1226, # ER_USER_LIMIT_REACHED
1251, # ER_NOT_SUPPORTED_AUTH_MODE
1275, # ER_SERVER_IS_IN_SECURE_AUTH_MODE
);
our $MASTER_DEAD_RC = 20;
our $MYSQL_DEAD_RC = 10;
# Manager status
our $ST_RUNNING = 0;
our $ST_NOT_RUNNING = 2;
our $ST_PARTIALLY_RUNNING = 3;
our $ST_NOT_FOUND = 4;
our $ST_INITIALIZING_MONITOR = 10;
our $ST_PING_FAILING = 20;
our $ST_PING_FAILED = 21;
our $ST_RETRYING_MONITOR = 30;
our $ST_CONFIG_ERROR = 31;
our $ST_TIMESTAMP_OLD = 32;
our $ST_FAILOVER_RUNNING = 50;
our $ST_FAILOVER_ERROR = 51;
our $ST_RUNNING_S = "$ST_RUNNING:PING_OK";
our $ST_NOT_RUNNING_S = "$ST_NOT_RUNNING:NOT_RUNNING";
our $ST_PARTIALLY_RUNNING_S = "$ST_PARTIALLY_RUNNING:PARTIALLY_RUNNING";
our $ST_NOT_FOUND_S = "$ST_NOT_FOUND:NOT_FOUND";
our $ST_INITIALIZING_MONITOR_S =
"$ST_INITIALIZING_MONITOR:INITIALIZING_MONITOR";
our $ST_PING_FAILING_S = "$ST_PING_FAILING:PING_FAILING";
our $ST_PING_FAILED_S = "$ST_PING_FAILED:PING_FAILED";
our $ST_RETRYING_MONITOR_S = "$ST_RETRYING_MONITOR:RETRYING_MONITOR";
our $ST_CONFIG_ERROR_S = "$ST_CONFIG_ERROR:CONFIG_ERROR";
our $ST_TIMESTAMP_OLD_S = "$ST_TIMESTAMP_OLD:TIMESTAMP_OLD";
our $ST_FAILOVER_RUNNING_S = "$ST_FAILOVER_RUNNING:FAILOVER_RUNNING";
our $ST_FAILOVER_ERROR_S = "$ST_FAILOVER_ERROR:FAILOVER_ERROR";
our $USE_SSH_OPTIONS = 0;
our $SSH_OPT_ALIVE = $MHA::NodeConst::SSH_OPT_ALIVE;
our $SSH_OPT_CHECK =
"-o StrictHostKeyChecking=no -o ConnectTimeout=4 -o PasswordAuthentication=no";
our $SSH_OPT_ALIVE_DEFAULT = $SSH_OPT_ALIVE;
our $SSH_OPT_CHECK_DEFAULT = $SSH_OPT_CHECK;
our $PING_TYPE_CONNECT = "CONNECT";
our $PING_TYPE_SELECT = "SELECT";
our $DEFAULT_GLOBAL_CONF = "/etc/masterha_default.cnf";
our $log_fmt = sub {
my %args = @_;
my $msg = $args{message};
$msg = "" unless(defined($msg));
chomp $msg;
if ( $args{level} eq "error" ) {
my ( $ln, $script ) = ( caller(4) )[ 2, 1 ];
$script =~ s/.*:://;
return sprintf( "[%s][%s, ln%d] %s\n", $args{level}, $script, $ln, $msg );
}
return sprintf( "[%s] %s\n", $args{level}, $msg );
};
our $add_timestamp = sub {
my %p = @_;
sprintf "%s - %s", scalar(localtime), $p{message};
};
1;
|