#!/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";
}