+#!/usr/bin/perl -s\r
+use strict;\r
+\r
+my $keyWord_standby = "standby";\r
+my $keyWord_active = "active";\r
+my $keyWord_true = "true";\r
+my $keyWord_false = "false";\r
+my $keyWord_success = "success";\r
+my $keyWord_failure = "failure";\r
+my $file_cluster = "sdnc.cluster";\r
+my $file_switchVoting = "switchVoting.sh";\r
+my $file_isPrimaryCluster = "sdnc.isPrimaryCluster";\r
+\r
+if ((!(-e $file_cluster)) || (!(-e $file_switchVoting))|| (!(-e $file_isPrimaryCluster))) {\r
+ # file not exist.\r
+ print qq|$keyWord_failure\n|;\r
+ exit 1;\r
+}\r
+\r
+my $roleRes = qx("./$file_isPrimaryCluster");\r
+my $clusterRes = qx("./$file_cluster");\r
+\r
+if ( index ($clusterRes, $keyWord_standby) != -1) {\r
+ # We are at standby side\r
+ if ( index ($roleRes, $keyWord_false) != -1) {\r
+ # We are at Secondary cluster\r
+ sub_activate_secondary();\r
+ } elsif ( index ($roleRes, $keyWord_true) != -1) {\r
+ # We are at Primary cluster\r
+ sub_activate_primary();\r
+ } else {\r
+ # Error.\r
+ print qq|$keyWord_failure\n|;\r
+ exit 1; \r
+ } \r
+} elsif ( index ($clusterRes, $keyWord_active) != -1) {\r
+ # We are at active side \r
+ if ( index ($roleRes, $keyWord_false) != -1) {\r
+ # We are at Secondary cluster\r
+ sub_activate_primary();\r
+ } elsif ( index ($roleRes, $keyWord_true) != -1) {\r
+ # We are at Primary cluster\r
+ sub_activate_secondary();\r
+ } else {\r
+ # Error.\r
+ print qq|$keyWord_failure\n|;\r
+ exit 1; \r
+ } \r
+} else {\r
+ # Error.\r
+ print qq|$keyWord_failure\n|;\r
+ exit 1; \r
+}\r
+\r
+sub sub_activate_primary {\r
+ #Switching voting in Primary cluster \r
+ system("./$file_switchVoting primary");\r
+ print qq|$keyWord_success\n|;\r
+}\r
+\r
+sub sub_activate_secondary {\r
+ #Switching voting in secondary cluster\r
+ system("./$file_switchVoting secondary");\r
+ print qq|$keyWord_success\n|;\r
+}\r