MHA master_ip_failover

点击(此处)折叠或打开

1. #!/usr/bin/env perl
   
2. 
   
3. 
   
4. 
   
5.     ## Note: This is a sample script and is not complete. Modify the script based on your environment.
   
6. 
   
7.     use strict;
   
8.     use warnings FATAL => 'all';
   
9. 
   
10.     use Getopt::Long;
    
11.     use MHA::DBHelper;
    
12. 
    
13. 
    
14.     my (
    
15.       $command, $ssh_user, $orig_master_host,
    
16.       $orig_master_ip, $orig_master_port, $new_master_host,
    
17.       $new_master_ip, $new_master_port
    
18.     );
    
19. 
    
20.     my $vip = '10.0.0.10/24'; #virtual ip
    
21.     my $key = "2";
    
22.     my $ssh_start_vip = "/sbin/ifconfig eth0:$key $vip";
    
23.     my $ssh_stop_vip = "/sbin/ifconfig eth0:$key down";
    
24. 
    
25. 
    
26.     GetOptions(
    
27.       'command=s' => \$command,
    
28.       'ssh_user=s' => \$ssh_user,
    
29.       'orig_master_host=s' => \$orig_master_host,
    
30.       'orig_master_ip=s' => \$orig_master_ip,
    
31.       'orig_master_port=i' => \$orig_master_port,
    
32.       'new_master_host=s' => \$new_master_host,
    
33.       'new_master_ip=s' => \$new_master_ip,
    
34.       'new_master_port=i' => \$new_master_port,
    
35.       );
    
36.     exit &main();
    
37. 
    
38.     sub main {
    
39.       if ( $command eq "stop" || $command eq "stopssh" ) {
    
40. 
    
41.         # $orig_master_host, $orig_master_ip, $orig_master_port are passed.
    
42.         # If you manage master ip address at global catalog database,
    
43.         # invalidate orig_master_ip here.
    
44.         my $exit_code = 1;
    
45.         eval {
    
46.           print "Disabling the VIP on old master: $orig_master_host \n";
    
47.               &stop_vip();
    
48.           $exit_code = 0;
    
49.               # updating global catalog, etc
    
50. 
    
51.         };
    
52.         if ($@) {
    
53.           warn "Got Error: $@\n";
    
54.           exit $exit_code;
    
55.         }
    
56.         exit $exit_code;
    
57.       }
    
58.       elsif ( $command eq "start" ) {
    
59. 
    
60.         # all arguments are passed.
    
61.         # If you manage master ip address at global catalog database,
    
62.         # activate new_master_ip here.
    
63.         # You can also grant write access (create user, set read_only=0, etc) here.
    
64.         my $exit_code = 10;
    
65.         eval {
    
66.           print "Enabling the VIP - $vip on old master: $new_master_host \n";
    
67.               &start_vip();
    
68.           $exit_code = 0;
    
69.         };
    
70.         if ($@) {
    
71.           warn $@;
    
72. 
    
73.           # If you want to continue failover, exit 10.
    
74.           exit $exit_code;
    
75.         }
    
76.         exit $exit_code;
    
77.       }
    
78.       elsif ( $command eq "status" ) {
    
79. 
    
80.         # do nothing
    
81.         exit 0;
    
82.       }
    
83.       else {
    
84.         &usage();
    
85.         exit 1;
    
86.       }
    
87.     }
    
88. 
    
89.     # Enable the VIP on the new_master
    
90.     sub start_vip() {
    
91.         `ssh $ssh_user\@$new_master_host \" $ssh_start_vip \"`;
    
92.     }
    
93. 
    
94.     # Disable the VIP on the old_master
    
95. 
    
96.     sub stop_vip() {
    
97.     my $ssh_user = "root";
    
98.         `ssh $ssh_user\@$orig_master_host \" $ssh_stop_vip \"`;
    
99.     }
    
100. 
     
101.     sub usage {
     
102.       print
     
103.     "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";
     
104.     }

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/26735168/viewspace-2096305/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/26735168/viewspace-2096305/