diff options
Diffstat (limited to 'perl-install/network.pm')
| -rw-r--r-- | perl-install/network.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/network.pm b/perl-install/network.pm index 9ddde836f..e471734bc 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -146,6 +146,11 @@ sub sethostname { syscall_('sethostname', $netc->{HOSTNAME}, length $netc->{HOSTNAME}) or log::l("sethostname failed: $!"); } +sub resolv($) { + my ($name) = @_; + is_ip($name) ? $name : join(".", unpack "C4", (gethostbyname $name)[4]); +} + sub dnsServers { my ($netc) = @_; grep { $_ } map { $netc->{$_} } qw(dnsServer dnsServer2 dnsServer3); |