mha中的master_ip_failover脚本

完整脚本内容如下, 只需要改动两处即可.

#!/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 = '192.168.0.106/24';  # 修改这里的ip, 找个空闲的ip, 不能是在用的 
my $key = "1";
my $ssh_start_vip = "/sbin/ifconfig ens32:$key $vip";　　# 这里和下一行需要注意下网卡信息,我是用的虚拟机网卡是ens32, 需修改成机器的网卡信息
my $ssh_stop_vip = "/sbin/ifconfig ens32:$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 "

IN SCRIPT TEST====$ssh_stop_vip==$ssh_start_vip===

";

    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 
";
           &stop_vip();
           $exit_code = 0;
       };
       if ($@) {
           warn "Got Error: $@
";
           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 
";
           &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 
";
       `ssh $ssh_user@$orig_master_host " $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
";
}