michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-05-30 17:50:30 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Optionally resolve to multiple IPs

Browse Source
This commit is contained in:
Jamie Cameron
2021-01-20 20:16:19 -08:00
parent 983101db4d
commit 77ff74a717
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
web-lib-funcs.pl
View File

@@ -3257,18 +3257,22 @@ it cannot be resolved.
=cut
sub to_ipaddress
{
if (&check_ipaddress($_[0])) {
return $_[0]; # Already in v4 format
my ($host) = @_;
my @rv;
if (&check_ipaddress($host)) {
@rv = ( $host ); # Already in v4 format
}
elsif (&check_ip6address($_[0])) {
return undef; # A v6 address cannot be converted to v4
elsif (&check_ip6address($host)) {
@rv = ( ); # A v6 address cannot be converted to v4
}
else {
my $hn = gethostbyname($_[0]);
return undef if (!$hn);
local @ip = unpack("CCCC", $hn);
return join("." , @ip);
my @hns = gethostbyname($host);
foreach my $hn (@hns[4..$#hns]) {
my @ip = unpack("CCCC", $hn);
push(@rv, join("." , @ip));
}
}
return wantarray ? @rv : $rv[0];
}
=head2 to_ip6address(hostname)