MHA 구성 init

DBMS/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,
+        $new_master_user,
+        $new_master_password
+);
+
+my $vip = '180.180.180.239';
+my $netmask = '255.255.255.0';
+my $broadcast = '180.180.180.255';
+my $key = "0";
+my $ssh_start_vip   = "sudo /usr/sbin/ifconfig eth1:$key $vip netmask $netmask broadcast $broadcast up";
+my $ssh_stop_vip    = "sudo /usr/sbin/ifconfig eth1:$key down";
+my $ssh_mac_refresh = "sudo /usr/sbin/arping -c 4 -A -I eth1:$key $vip";
+
+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,
+        'new_master_user=s'  => \$new_master_user,
+        'new_master_password=s' => \$new_master_password
+);
+
+exit &main();
+
+sub main {
+
+ print "\n\nIN SCRIPT TEST====$ssh_stop_vip==$ssh_start_vip===\n\n";
+
+ if ( $command eq "stop" || $command eq "stopssh" ) {
+
+        print $command;
+
+     # $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 -p 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 -p ssh_포트번호 $ssh_user\@$new_master_host \" $ssh_start_vip \"`;
+        `ssh -p ssh_포트번호 $ssh_user\@$new_master_host \" $ssh_mac_refresh\"`;
+}
+# A simple system call that disable the VIP on the old_master
+sub stop_vip() {
+        `ssh -p 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";
+}