提供域名，dnspod 账户密码（毕竟dns密码比较重要 不能谁 cat一下都可以看到 需要base64加密），原IP，切换目标IP，
#!/bin/perluse
warnings;
use
MIME::Base64;
use
LWP;
use
Encode;
use
JSON;
use
Data::Dumper;
my
$ChangeDomain=‘linuxjs.com‘;
my
$BeforeIP=‘XXX.XXX.XXX.XXX‘;
my
$ChangeIP=‘XXX.XXX.XXX.XXX‘;
my
$user= decode_base64("加密后的用户名字符串");
my
$passwd= decode_base64("加密后的密码字符串");
chomp($user,$passwd);
sub
GetDomainID{
my
$browser
= LWP::UserAgent->new(agent
=> ‘checkdns.pl/1.0.0(hydezhao@gmail.com)‘);
$response
= $browser->post( $url,
[
login_email
=> $user,
login_password
=> $passwd,
format
=> ‘json‘,
domain
=> $_[0]
]
);
if
($response->is_success != 1)
{
print
"链接失败！\n";
exit;
}
else
{
my
$rs=$response->content;
my
$json_text
= JSON->new->utf8->decode($rs);
if
($json_text->{‘status‘}->{‘code‘} != 1 )
{
print
$json_text->{‘status‘}->{‘message‘}."\n";
exit;
}
else
{
return
$json_text->{‘domain‘}->{‘id‘};
}
}
}sub
GetRecordId{
my
$browser
= LWP::UserAgent->new(agent
=> ‘checkdns.pl/1.0.0(hydezhao@gmail.com)‘);
$response
= $browser->post( $url,
[
login_email
=> $user,
login_password
=> $passwd,
format
=> ‘json‘,
domain_id
=> $_[0]
]
);
if
($response->is_success != 1)
{
print
"链接失败！\n";
exit;
}
else
{
my
$rs=$response->content;
my
$json_text
= JSON->new->utf8->decode($rs);
if
($json_text->{‘status‘}->{‘code‘} != 1 )
{
print
$json_text->{‘status‘}->{‘message‘}."\n";
exit;
}
else
{
for
my
$record(@{$json_text->{‘records‘}})
{
$id_name{$record->{‘id‘}} = $record->{‘name‘}."||".$record->{‘value‘};
}
return
%id_name;
}
}
}sub
UpdateRecord{
my
$browser
= LWP::UserAgent->new(agent
=> ‘checkdns.pl/1.0.0(hydezhao@gmail.com)‘);
$response
= $browser->post( $url,
[
login_email
=> $user,
login_password
=> $passwd,
format
=> ‘json‘,
domain_id
=> $_[0],
record_id
=> $_[1],
sub_domain
=> $_[2],
value
=> $ChangeIP,
record_type
=> $_[3],
record_line
=> ‘默认‘,
ttl
=> ‘600‘
]
);
if
($response->is_success != 1)
{
print
"链接失败！\n";
exit;
}
else
{
my
$rs=$response->content;
my
$json_text
= JSON->new->utf8->decode($rs);
if
($json_text->{‘status‘}->{‘code‘} != 1)
{
print
"code:".$json_text->{‘status‘}->{‘code‘}." error:".$json_text->{‘status‘}->{‘message‘}."\n";
exit;
}
else
{
my
$message=$json_text->{‘record‘}->{‘name‘}."--->".$json_text->{‘record‘}->{‘value‘};
return
$message;
}
}
}my
$id=GetDomainID($ChangeDomain);
chomp
$id;
#print "$id \n";my
%records= GetRecordId($id);
while
(my
($k,$v)= each
%records
)
{ my
($name,$ip)= split(/\|\|/,$v);
if
($ip
eq $BeforeIP)
{
chomp($name,$ip);
print
"$name--->$ip\n";
print
"changing.....\n";
print
UpdateRecord($id,$k,$name,‘A‘)."\n";
}
} |
这个脚本 配合宕机检测机制 触发执行 可以在无人值守的情况下 短时间内 切换故障机器 把所有域名 切换到 指定备份机器