summaryrefslogtreecommitdiffstats
path: root/perl-install/network.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-07 09:56:50 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-07 09:56:50 +0000
commit3f7b015463a0138d3e2e1b99aef31890f2768f24 (patch)
tree554992ed542cbf1e92da9940f3d213f48e9c4888 /perl-install/network.pm
parentad9cd7aac5a63fbffc038ea9083928aa0f2524e3 (diff)
downloaddrakx-3f7b015463a0138d3e2e1b99aef31890f2768f24.tar
drakx-3f7b015463a0138d3e2e1b99aef31890f2768f24.tar.gz
drakx-3f7b015463a0138d3e2e1b99aef31890f2768f24.tar.bz2
drakx-3f7b015463a0138d3e2e1b99aef31890f2768f24.tar.xz
drakx-3f7b015463a0138d3e2e1b99aef31890f2768f24.zip
*** empty log message ***
Diffstat (limited to 'perl-install/network.pm')
-rw-r--r--perl-install/network.pm36
1 files changed, 18 insertions, 18 deletions
diff --git a/perl-install/network.pm b/perl-install/network.pm
index 323861a41..51d094e46 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -306,24 +306,24 @@ You may also enter the IP address of the gateway if you have one"),
}
- sub configureNetwork2 {
- my ($in, $prefix, $netc, $intf) = @_;
- my $etc = "$prefix/etc";
-
- write_conf("$etc/sysconfig/network", $netc);
- write_resolv_conf("$etc/resolv.conf", $netc);
- write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$_->{DEVICE}", $_) foreach @{$intf};
- add2hosts("$etc/hosts", $netc->{HOSTNAME}, map { $_->{IPADDR} } @{$intf});
- sethostname($netc) unless $::testing;
- addDefaultRoute($netc) unless $::testing;
-
- $in->pkg_install("dhcpcd") if grep { $_->{BOOTPROTO} =~ /^(dhcp)$/ } @{$intf};
- # Handle also pump (this is still in initscripts no?)
- $in->pkg_install("pump") if grep { $_->{BOOTPROTO} =~ /^(pump|bootp)$/ } @{$intf};
- #-res_init(); #- reinit the resolver so DNS changes take affect
-
- any::miscellaneousNetwork($in, $prefix);
- }
+sub configureNetwork2 {
+ my ($in, $prefix, $netc, $intf) = @_;
+ my $etc = "$prefix/etc";
+
+ write_conf("$etc/sysconfig/network", $netc);
+ write_resolv_conf("$etc/resolv.conf", $netc);
+ write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$_->{DEVICE}", $_) foreach @{$intf};
+ add2hosts("$etc/hosts", $netc->{HOSTNAME}, map { $_->{IPADDR} } @{$intf});
+ sethostname($netc) unless $::testing;
+ addDefaultRoute($netc) unless $::testing;
+
+ $in->pkg_install("dhcpcd") if grep { $_->{BOOTPROTO} =~ /^(dhcp)$/ } @{$intf};
+ # Handle also pump (this is still in initscripts no?)
+ $in->pkg_install("pump") if grep { $_->{BOOTPROTO} =~ /^(pump|bootp)$/ } @{$intf};
+ #-res_init(); #- reinit the resolver so DNS changes take affect
+
+ any::miscellaneousNetwork($in, $prefix);
+}
sub configureNetworkIntf {