From 33ef1d3ac9700aac0500f4b89deed6d1a0d0979a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 26 Feb 2004 16:09:23 +0000
Subject: - never delete up/down scripts - only write internet service if start
 at boot requested

---
 perl-install/network/netconnect.pm | 8 +++-----
 1 file 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};
                         }
                         
-- 
cgit v1.2.1