[pve-devel] [PATCH] ipv6 support for Storage::resolv_server

[Dietmar Maurer]

> --- a/PVE/Storage.pm
> +++ b/PVE/Storage.pm
> @@ -930,9 +930,14 @@ sub storage_info {
>  sub resolv_server {
>      my ($server) = @_;
>  
> -    my $packed_ip = gethostbyname($server);

What is wrong with gethostbyname?

> +    my ($packed_ip, $family);
> +    eval {
> +	my @res = PVE::Tools::getaddrinfo_all($server);
> +	$family = $res[0]->{family};
> +	$packed_ip = (PVE::Tools::unpack_sockaddr_in46($res[0]->{addr}))[2];
> +    };
>      if (defined $packed_ip) {
> -	return inet_ntoa($packed_ip);
> +	return inet_ntop($family, $packed_ip);
>      }
>      return undef;
>  }
> -- 
> 2.1.4
> 
> 
> _______________________________________________
> pve-devel mailing list
> pve-devel at pve.proxmox.com
> http://pve.proxmox.com/cgi-bin/mailman/listinfo/pve-devel
>