Mysql cluster slave server的自动检测与修复
上一篇 / 下一篇 2005-01-05 17:52:36 / 个人分类:其他
需要DBIX及Mail等perl模块木铎校园 BBS 社区n#n IJW,o3e}
注意,虽然能够自动修复,但是可能造成slave的数据条目少于master的条目!使用的时候自己注意些好了
7M8M_f i}0本脚本是修改版,原作者是Jeremy Zawodny
dOd6OQd0
}n V~0z!V0代码:
Y"~x2P&u9Yv;^*?0[code]木铎校园 BBS 社区 J5X$sJ@(c2A0z
#!/usr/local/bin/perl -w木铎校园 BBS 社区M&gz;|M[bY x
# chunshengsterATgmail.com木铎校园 BBS 社区 Iw c3zJq,[v'x2b
# fix mysql replication if it encounters a problem木铎校园 BBS 社区 e2u$Q:e_|6|'T
# Useage:perl fix_repl.pl ip1 ip2 ip3
,vg8Zs9]2?pxtl4k0木铎校园 BBS 社区)HU:h,BISEl)C h
$&line;=1; # unbuffer stdout木铎校园 BBS 社区S1`'i5l:Jj9G\:Q
use strict;
\2Q]`7|,aEw0 use DBIx::DWIW;木铎校园 BBS 社区2sai}G5A
use Mail::Mailer;木铎校园 BBS 社区d$a3XQ,UH(D
my $ip;木铎校园 BBS 社区`Z}"Q9z-{
foreach $ip (@ARGV) &leftsign;木铎校园 BBS 社区/o5}*kB;{2[\9n.|#n qz
&fixdb($ip);木铎校园 BBS 社区6EV3m/]%MI
&rightsign;
*oM0b'z+Mt4~)a0
!ROT.x^G!s^%z0exit;
w&pqP-O0
_f8{j#tj\Y1M0sub fixdb()
&k#O#l H&m;Y8Qx8l(Pe0&leftsign;木铎校园 BBS 社区6]z,E }\-g
my $host = shift &line;&line; \'localhost\';
注意,虽然能够自动修复,但是可能造成slave的数据条目少于master的条目!使用的时候自己注意些好了
7M8M_f i}0本脚本是修改版,原作者是Jeremy Zawodny
dOd6OQd0
}n V~0z!V0代码:
Y"~x2P&u9Yv;^*?0[code]木铎校园 BBS 社区 J5X$sJ@(c2A0z
#!/usr/local/bin/perl -w木铎校园 BBS 社区M&gz;|M[bY x
# chunshengsterATgmail.com木铎校园 BBS 社区 Iw c3zJq,[v'x2b
# fix mysql replication if it encounters a problem木铎校园 BBS 社区 e2u$Q:e_|6|'T
# Useage:perl fix_repl.pl ip1 ip2 ip3
,vg8Zs9]2?pxtl4k0木铎校园 BBS 社区)HU:h,BISEl)C h
$&line;=1; # unbuffer stdout木铎校园 BBS 社区S1`'i5l:Jj9G\:Q
use strict;
\2Q]`7|,aEw0 use DBIx::DWIW;木铎校园 BBS 社区2sai}G5A
use Mail::Mailer;木铎校园 BBS 社区d$a3XQ,UH(D
my $ip;木铎校园 BBS 社区`Z}"Q9z-{
foreach $ip (@ARGV) &leftsign;木铎校园 BBS 社区/o5}*kB;{2[\9n.|#n qz
&fixdb($ip);木铎校园 BBS 社区6EV3m/]%MI
&rightsign;
*oM0b'z+Mt4~)a0
!ROT.x^G!s^%z0exit;
w&pqP-O0
_f8{j#tj\Y1M0sub fixdb()
&k#O#l H&m;Y8Qx8l(Pe0&leftsign;木铎校园 BBS 社区6]z,E }\-g
my $host = shift &line;&line; \'localhost\';
