summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-26 16:09:23 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-26 16:09:23 +0000
commit33ef1d3ac9700aac0500f4b89deed6d1a0d0979a (patch)
treedaf92dd683e15c216321579f98d494fde67e703c /perl-install/network/netconnect.pm
parent9b80b439e34c01759443ba05c61dc6ea4c3cf640 (diff)
downloaddrakx-33ef1d3ac9700aac0500f4b89deed6d1a0d0979a.tar
drakx-33ef1d3ac9700aac0500f4b89deed6d1a0d0979a.tar.gz
drakx-33ef1d3ac9700aac0500f4b89deed6d1a0d0979a.tar.bz2
drakx-33ef1d3ac9700aac0500f4b89deed6d1a0d0979a.tar.xz
drakx-33ef1d3ac9700aac0500f4b89deed6d1a0d0979a.zip
- never delete up/down scripts
- only write internet service if start at boot requested
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 1157cb75c..189cba20d 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -1046,13 +1046,11 @@ N("Last but not least you can also type in your DNS server IP addresses."),
post => sub {
my ($res) = @_;
$netc->{at_boot} = $res;
- write_cnx_script($netc);
- if ($netc->{internet_cnx_choice}) {
- $netcnx->{type} = $netc->{internet_cnx}{$netc->{internet_cnx_choice}}{type};
+ if ($res) {
+ write_cnx_script($netc);
+ $netcnx->{type} = $netc->{internet_cnx}{$netc->{internet_cnx_choice}}{type} if $netc->{internet_cnx_choice};
write_initscript();
} else {
- unlink "$::prefix/etc/sysconfig/network-scripts/net_cnx_up";
- unlink "$::prefix/etc/sysconfig/network-scripts/net_cnx_down";
undef $netc->{NET_DEVICE};
}