summaryrefslogtreecommitdiffstats
path: root/perl-install/network.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-25 02:21:17 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-25 02:21:17 +0000
commit7a08dbc23f114bf6b6eae275e21e63b6667a1b37 (patch)
treec99d2cf8a7c5e28215d574b7164de0a387004016 /perl-install/network.pm
parent949ab0f0941e3266d8ab79380399dfe6a0020aea (diff)
downloaddrakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.tar
drakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.tar.gz
drakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.tar.bz2
drakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.tar.xz
drakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.zip
no_comment
Diffstat (limited to 'perl-install/network.pm')
-rw-r--r--perl-install/network.pm5
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);