dondominio: Whitespace fixes
This commit is contained in:
parent
e155e1bf2c
commit
17a002cbd6
1 changed files with 1 additions and 7 deletions
|
@ -6520,12 +6520,10 @@ EoEXAMPLE
|
||||||
|
|
||||||
sub nic_dondominio_update {
|
sub nic_dondominio_update {
|
||||||
debug("\nnic_dondominio_update -------------------");
|
debug("\nnic_dondominio_update -------------------");
|
||||||
|
|
||||||
for my $h (@_) {
|
for my $h (@_) {
|
||||||
my $ip = delete $config{$h}{'wantip'};
|
my $ip = delete $config{$h}{'wantip'};
|
||||||
info("setting IP address to %s for %s", $ip, $h);
|
info("setting IP address to %s for %s", $ip, $h);
|
||||||
verbose("UPDATE:", "updating %s", $h);
|
verbose("UPDATE:", "updating %s", $h);
|
||||||
|
|
||||||
my $url;
|
my $url;
|
||||||
$url = "https://$config{$h}{'server'}/plain/";
|
$url = "https://$config{$h}{'server'}/plain/";
|
||||||
$url .= "?user=";
|
$url .= "?user=";
|
||||||
|
@ -6536,16 +6534,12 @@ sub nic_dondominio_update {
|
||||||
$url .= $h;
|
$url .= $h;
|
||||||
$url .= "&ip=";
|
$url .= "&ip=";
|
||||||
$url .= $ip if $ip;
|
$url .= $ip if $ip;
|
||||||
|
|
||||||
|
|
||||||
my $reply = geturl(proxy => opt('proxy'), url => $url);
|
my $reply = geturl(proxy => opt('proxy'), url => $url);
|
||||||
|
|
||||||
if (!defined($reply) || !$reply) {
|
if (!defined($reply) || !$reply) {
|
||||||
failed("updating %s: Could not connect to %s.", $h, $config{$h}{'server'});
|
failed("updating %s: Could not connect to %s.", $h, $config{$h}{'server'});
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
next if !header_ok($h, $reply);
|
next if !header_ok($h, $reply);
|
||||||
|
|
||||||
my @reply = split /\n/, $reply;
|
my @reply = split /\n/, $reply;
|
||||||
my $returned = pop(@reply);
|
my $returned = pop(@reply);
|
||||||
if ($returned =~ /OK/ || $returned =~ /IP:$ip/) {
|
if ($returned =~ /OK/ || $returned =~ /IP:$ip/) {
|
||||||
|
|
Loading…
Reference in a new issue