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

Fix missing local use* override in --query

Browse source
This commit is contained in:
Richard Hansen 2024-06-14 03:51:23 -04:00
parent c7c8c5f097
commit 7ac6eda7cc
1 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
ddclient.in
View file

@ -2101,9 +2101,10 @@ sub test_possible_ip {
local $opt{'debug'} = 0; local $opt{'debug'} = 0;
printf "----- Test_possible_ip with 'get_ip' -----\n"; printf "----- Test_possible_ip with 'get_ip' -----\n";
printf "use=ip, ip=%s address is %s\n", opt('ip'), get_ip('ip') // 'NOT FOUND' if (defined(opt('ip'))) {
if defined opt('ip'); local $opt{'use'} = 'ip';
printf "use=ip, ip=%s address is %s\n", opt('ip'), get_ip('ip') // 'NOT FOUND';
}
{ {
local $opt{'use'} = 'if'; local $opt{'use'} = 'if';
# Note: The `ip` command adds a `@eth0` suffix to the names of VLAN # Note: The `ip` command adds a `@eth0` suffix to the names of VLAN
@ -2147,10 +2148,12 @@ sub test_possible_ip {
# Now force IPv4 # Now force IPv4
printf "----- Test_possible_ip with 'get_ipv4' ------\n"; printf "----- Test_possible_ip with 'get_ipv4' ------\n";
printf "usev4=ipv4, ipv4=%s address is %s\n", opt('ipv4'), get_ipv4('ipv4') // 'NOT FOUND' if (defined(opt('ipv4'))) {
if defined opt('ipv4'); local $opt{'usev4'} = 'ipv4';
printf "usev4=ipv4, ipv4=%s address is %s\n", opt('ipv4'), get_ipv4('ipv4') // 'NOT FOUND';
}
{ {
local $opt{'usev4'} = 'ifv4';
# Note: The `ip` command adds a `@eth0` suffix to the names of VLAN # Note: The `ip` command adds a `@eth0` suffix to the names of VLAN
# interfaces. That `@eth0` suffix is NOT part of the interface name. # interfaces. That `@eth0` suffix is NOT part of the interface name.
my @ifs = map({ /^[^\s:]*:\s*([^\s:@]+)/ ? $1 : () } my @ifs = map({ /^[^\s:]*:\s*([^\s:@]+)/ ? $1 : () }
@ -2181,10 +2184,12 @@ sub test_possible_ip {
# Now force IPv6 # Now force IPv6
printf "----- Test_possible_ip with 'get_ipv6' -----\n"; printf "----- Test_possible_ip with 'get_ipv6' -----\n";
printf "usev6=ipv6, ipv6=%s address is %s\n", opt('ipv6'), get_ipv6('ipv6') // 'NOT FOUND' if (defined(opt('ipv6'))) {
if defined opt('ipv6'); local $opt{'usev6'} = 'ipv6';
printf "usev6=ipv6, ipv6=%s address is %s\n", opt('ipv6'), get_ipv6('ipv6') // 'NOT FOUND';
}
{ {
local $opt{'usev6'} = 'ifv6';
# Note: The `ip` command adds a `@eth0` suffix to the names of VLAN # Note: The `ip` command adds a `@eth0` suffix to the names of VLAN
# interfaces. That `@eth0` suffix is NOT part of the interface name. # interfaces. That `@eth0` suffix is NOT part of the interface name.
my @ifs = map({ /^[^\s:]*:\s*([^\s:@]+)/ ? $1 : () } my @ifs = map({ /^[^\s:]*:\s*([^\s:@]+)/ ? $1 : () }