From 0edd36d12518eb16816af9ce2c5d05bb694cdea6 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 28 Feb 2005 10:39:04 +0000
Subject: apply USERCTL settings for modems too

---
 perl-install/network/netconnect.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 50fcfddcc..053579875 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -1300,7 +1300,10 @@ It is not necessary on most networks."),
                     default => sub { bool2yesno(text2bool($intf->{$netc->{NET_INTERFACE}}{USERCTL})) },
                     post => sub {
                         my ($res) = @_;
-                        $intf->{$netc->{NET_INTERFACE}}{USERCTL} = bool2yesno($res);
+                        $res = bool2yesno($res);
+                        $intf->{$netc->{NET_INTERFACE}}{USERCTL} = $res;
+                        my $ifcfg_file = "$::prefix/etc/sysconfig/network-scripts/ifcfg-$netc->{NET_INTERFACE}";
+                        -f $ifcfg_file and substInFile { s/^USERCTL.*\n//; $_ .= qq(USERCTL=$res\n) if eof } $ifcfg_file;
                         return $goto_start_on_boot_ifneeded->();
                     },
                    },
-- 
cgit v1.2.1