dondominio: Whitespace fixes

This commit is contained in:
Richard Hansen 2024-07-23 00:17:32 -04:00
parent e155e1bf2c
commit 17a002cbd6

View file

@ -6520,14 +6520,12 @@ EoEXAMPLE
sub nic_dondominio_update {
debug("\nnic_dondominio_update -------------------");
for my $h (@_) {
my $ip = delete $config{$h}{'wantip'};
info("setting IP address to %s for %s", $ip, $h);
verbose("UPDATE:", "updating %s", $h);
my $url;
$url = "https://$config{$h}{'server'}/plain/";
$url = "https://$config{$h}{'server'}/plain/";
$url .= "?user=";
$url .= $config{$h}{'login'};
$url .= "&password=";
@ -6536,16 +6534,12 @@ sub nic_dondominio_update {
$url .= $h;
$url .= "&ip=";
$url .= $ip if $ip;
my $reply = geturl(proxy => opt('proxy'), url => $url);
if (!defined($reply) || !$reply) {
failed("updating %s: Could not connect to %s.", $h, $config{$h}{'server'});
next;
}
next if !header_ok($h, $reply);
my @reply = split /\n/, $reply;
my $returned = pop(@reply);
if ($returned =~ /OK/ || $returned =~ /IP:$ip/) {