- 论坛徽章:
- 0
|
大家好,最近搭建mha测试
测试都通过了。
但是当我想运用虚拟ip是出现了问题。
我的app1.cnf如下
- [server default]
- # mysql user and password
- user=root
- password=123456
- ssh_user=root
- # working directory on the manager
- manager_workdir=/var/log/masterha/app1
- # working directory on MySQL servers
- remote_workdir=/var/log/masterha/app1
- ping_interval=1
- shutdown_script=""
- master_ip_failover_script=/usr/local/bin/master_ip_failover
- master_ip_online_change_script=/usr/local/bin/master_ip_online_change_script
- report_script=""
- [server1]
- hostname=192.168.1.42
- candidate_master=1
- [server2]
- hostname=192.168.1.41
- candidate_master=1
- [server3]
- hostname=192.168.1.47
- no_master=1
复制代码 当我在app1.cnf中启用master_ip_failover_script=/usr/local/bin/master_ip_failover这句的时候就出问题。
[error][/usr/lib/perl5/vendor_perl/MHA/MasterMonitor.pm, ln315] Error happend on checking configurations. Can't exec "/usr/local/bin/master_ip_failover": Permission denied at /usr/lib/perl5/vendor_perl/MHA/ManagerUtil.pm line 68.
提示的68行内容: return MHA::NodeUtil::system_rc( system($cmd) );
我的master_ip_failover文件脚本代码如下。来自网络,我只修改了虚拟ip。希望有相关经验的朋友不吝赐教!谢谢。- #!/usr/bin/env perl
- use strict;
- use warnings FATAL => 'all';
- use Getopt::Long;
- my (
- $command, $ssh_user, $orig_master_host, $orig_master_ip,
- $orig_master_port, $new_master_host, $new_master_ip, $new_master_port
- );
- # my $vip = '172.16.21.119/24'; # Virtual IP
- my $vip = '192.168.1.250/24'; # Virtual IP
- my $key = "1";
- my $ssh_start_vip = "/sbin/ifconfig eth0:$key $vip";
- my $ssh_stop_vip = "/sbin/ifconfig eth0:$key down";
- GetOptions(
- 'command=s' => \$command,
- 'ssh_user=s' => \$ssh_user,
- 'orig_master_host=s' => \$orig_master_host,
- 'orig_master_ip=s' => \$orig_master_ip,
- 'orig_master_port=i' => \$orig_master_port,
- 'new_master_host=s' => \$new_master_host,
- 'new_master_ip=s' => \$new_master_ip,
- 'new_master_port=i' => \$new_master_port,
- );
- exit &main();
- sub main {
- print "\n\nIN SCRIPT TEST====$ssh_stop_vip==$ssh_start_vip===\n\n";
- if ( $command eq "stop" || $command eq "stopssh" ) {
- # $orig_master_host, $orig_master_ip, $orig_master_port are passed.
- # If you manage master ip address at global catalog database,
- # invalidate orig_master_ip here.
- my $exit_code = 1;
- eval {
- print "Disabling the VIP on old master: $orig_master_host \n";
- &stop_vip();
- $exit_code = 0;
- };
- if ($@) {
- warn "Got Error: $@\n";
- exit $exit_code;
- }
- exit $exit_code;
- }
- elsif ( $command eq "start" ) {
- # all arguments are passed.
- # If you manage master ip address at global catalog database,
- # activate new_master_ip here.
- # You can also grant write access (create user, set read_only=0, etc) here.
- my $exit_code = 10;
- eval {
- print "Enabling the VIP - $vip on the new master - $new_master_host \n";
- &start_vip();
- $exit_code = 0;
- };
- if ($@) {
- warn $@;
- exit $exit_code;
- }
- exit $exit_code;
- }
- elsif ( $command eq "status" ) {
- print "Checking the Status of the script.. OK \n";
- `ssh $ssh_user\@cluster1 \" $ssh_start_vip \"`;
- exit 0;
- }
- else {
- &usage();
- exit 1;
- }
- }
- # A simple system call that enable the VIP on the new master
- sub start_vip() {
- `ssh $ssh_user\@$new_master_host \" $ssh_start_vip \"`;
- }
- # A simple system call that disable the VIP on the old_master
- sub stop_vip() {
- `ssh $ssh_user\@$orig_master_host \" $ssh_stop_vip \"`;
- }
- sub usage {
- print
- "Usage: master_ip_failover --command=start|stop|stopssh|status --orig_master_host=host --orig_master_ip=ip --orig_master_port=port --new_master_host=host --new_master_ip=ip --new_master_port=port\n";
- }
复制代码 |
|