Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Whitespace fixes

Browse source
This commit is contained in:
Richard Hansen 2020-06-13 11:19:13 -04:00
parent 38bec6d135
commit b3f2f7029d
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ddclient
View file

@ -972,8 +972,7 @@ sub update_nics {
foreach my $h (sort keys %config) { foreach my $h (sort keys %config) {
if (!exists $examined{$h}) { if (!exists $examined{$h}) {
failed("%s was not updated because protocol %s is not supported.", failed("%s was not updated because protocol %s is not supported.",
$h, define($config{$h}{'protocol'}, '<undefined>') $h, define($config{$h}{'protocol'}, '<undefined>'));
);
} }
} }
write_cache(opt('cache')); write_cache(opt('cache'));
@ -2214,7 +2213,7 @@ sub get_ip {
} elsif ($use eq 'cmd') { } elsif ($use eq 'cmd') {
if ($arg) { if ($arg) {
$skip = opt('cmd-skip', $h) || ''; $skip = opt('cmd-skip', $h) || '';
$reply = `$arg`; $reply = `$arg`;
$reply = '' if $?; $reply = '' if $?;
} }
@ -2237,8 +2236,8 @@ sub get_ip {
# Stuff added to support Cisco router ip http daemon # Stuff added to support Cisco router ip http daemon
# User fw-login should only have level 1 access to prevent # User fw-login should only have level 1 access to prevent
# password theft. This is pretty harmless. # password theft. This is pretty harmless.
my $queryif = opt('if', $h); my $queryif = opt('if', $h);
$skip = opt('fw-skip', $h) || ''; $skip = opt('fw-skip', $h) || '';
# Convert slashes to protected value "\/" # Convert slashes to protected value "\/"
$queryif =~ s%\/%\\\/%g; $queryif =~ s%\/%\\\/%g;
@ -3581,10 +3580,10 @@ sub nic_nfsn_gen_auth_header {
## nic_nfsn_make_request ## nic_nfsn_make_request
###################################################################### ######################################################################
sub nic_nfsn_make_request { sub nic_nfsn_make_request {
my $h = shift; my $h = shift;
my $path = shift; my $path = shift;
my $method = shift || 'GET'; my $method = shift || 'GET';
my $body = shift || ''; my $body = shift || '';
my $base_url = "https://$config{$h}{'server'}"; my $base_url = "https://$config{$h}{'server'}";
my $url = $base_url . $path; my $url = $base_url . $path;