aboutsummaryrefslogtreecommitdiffstats
path: root/kubernetes/sdnc/resources/geo/bin/sdnc.failover
blob: 961a5cb5cfb64c9d44bf385c1c12418e47b0d3b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#!/usr/bin/perl -s
use strict;

my $keyWord_standby = "standby";
my $keyWord_active = "active";
my $keyWord_true = "true";
my $keyWord_false = "false";
my $keyWord_success = "success";
my $keyWord_failure = "failure";
my $file_cluster = "sdnc.cluster";
my $file_switchVoting = "switchVoting.sh";
my $file_isPrimaryCluster = "sdnc.isPrimaryCluster";

if ((!(-e $file_cluster)) || (!(-e $file_switchVoting))|| (!(-e $file_isPrimaryCluster))) {
  # file not exist.
  print qq|$keyWord_failure\n|;
  exit 1;
}

my $roleRes = qx("./$file_isPrimaryCluster");
my $clusterRes = qx("./$file_cluster");

if ( index ($clusterRes, $keyWord_standby) != -1) {
	# We are at standby side
	if ( index ($roleRes, $keyWord_false) != -1) {
	   # We are at Secondary cluster
	   sub_activate_secondary();
    } elsif ( index ($roleRes, $keyWord_true) != -1) {
       # We are at Primary cluster
	   sub_activate_primary();
    } else {
      # Error.
      print qq|$keyWord_failure\n|;
      exit 1;
	}
} elsif ( index ($clusterRes, $keyWord_active) != -1) {
    # We are at active side
	if ( index ($roleRes, $keyWord_false) != -1) {
	   # We are at Secondary cluster
	   sub_activate_primary();
    } elsif ( index ($roleRes, $keyWord_true) != -1)  {
       # We are at Primary cluster
	   sub_activate_secondary();
    } else {
      # Error.
      print qq|$keyWord_failure\n|;
      exit 1;
	}
} else {
   # Error.
  print qq|$keyWord_failure\n|;
  exit 1;
}

sub sub_activate_primary {
		#Switching voting in Primary cluster
        system("./$file_switchVoting primary");
	    print qq|$keyWord_success\n|;
}

sub sub_activate_secondary {
		#Switching voting in secondary cluster
        system("./$file_switchVoting secondary");
	    print qq|$keyWord_success\n|;
}