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|;
}
|
