X-Git-Url: https://git.proxmox.com/?p=pve-common.git;a=blobdiff_plain;f=src%2FPVE%2FNetwork.pm;h=babc2049844e059d5cc9e50ff8b515cf1ae1413a;hp=c8bd8abeec1bb4c3c34a2b5496b38b617e8a37bf;hb=87aa00de73e579ebc10a49a04c7d633953a48510;hpb=09f8882f6cc3c8b6153a717695fe9ae9504d3408;ds=sidebyside

diff --git a/src/PVE/Network.pm b/src/PVE/Network.pm
index c8bd8ab..babc204 100644
--- a/src/PVE/Network.pm
+++ b/src/PVE/Network.pm
@@ -7,6 +7,7 @@ use PVE::ProcFSTools;
 use PVE::INotify;
 use File::Basename;
 use IO::Socket::IP;
+use Socket qw(NI_NUMERICHOST NI_NUMERICSERV);
 use POSIX qw(ECONNREFUSED);
 
 use Net::IP;
@@ -575,6 +576,37 @@ sub get_local_ip_from_cidr {
     return $IPs;
 }
 
+sub addr_to_ip {
+    my ($addr) = @_;
+    my ($err, $host, $port) = Socket::getnameinfo($addr, NI_NUMERICHOST | NI_NUMERICSERV);
+    die "failed to get numerical host address: $err\n" if $err;
+    return ($host, $port) if wantarray;
+    return $host;
+}
+
+sub get_ip_from_hostname {
+    my ($hostname, $noerr) = @_;
+
+    my ($family, $ip);
+
+    eval {
+	my @res = PVE::Tools::getaddrinfo_all($hostname);
+	$family = $res[0]->{family};
+	$ip = addr_to_ip($res[0]->{addr})
+    };
+    if ($@) {
+	die "hostname lookup failed:\n$@" if !$noerr;
+	return undef;
+    }
+
+    if ($ip =~ m/^127\.|^::1$/) {
+	die "hostname lookup failed - got local IP address ($hostname = $ip)\n" if !$noerr;
+	return undef;
+    }
+
+    return wantarray ? ($ip, $family) : $ip;
+}
+
 sub lock_network {
     my ($code, @param) = @_;
     my $res = lock_file('/var/lock/pve-network.lck', 10, $code, @param);