点击(此处)折叠或打开
-
#!/usr/bin/env perl
-
-
-
-
## Note: This is a sample script and is not complete. Modify the script based on your environment.
-
-
use strict;
-
use warnings FATAL => 'all';
-
-
use Getopt::Long;
-
use MHA::DBHelper;
-
-
-
my (
-
$command, $ssh_user, $orig_master_host,
-
$orig_master_ip, $orig_master_port, $new_master_host,
-
$new_master_ip, $new_master_port
-
);
-
-
my $vip = '10.0.0.10/24'; #virtual ip
-
my $key = "2";
-
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 {
-
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;
-
# updating global catalog, etc
-
-
};
-
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 old master: $new_master_host \n";
-
&start_vip();
-
$exit_code = 0;
-
};
-
if ($@) {
-
warn $@;
-
-
# If you want to continue failover, exit 10.
-
exit $exit_code;
-
}
-
exit $exit_code;
-
}
-
elsif ( $command eq "status" ) {
-
-
# do nothing
-
exit 0;
-
}
-
else {
-
&usage();
-
exit 1;
-
}
-
}
-
-
# Enable the VIP on the new_master
-
sub start_vip() {
-
`ssh $ssh_user\@$new_master_host \" $ssh_start_vip \"`;
-
}
-
-
# Disable the VIP on the old_master
-
-
sub stop_vip() {
-
my $ssh_user = "root";
-
`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";
- }
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/26735168/viewspace-2096305/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/26735168/viewspace-2096305/