From 44062e68bc833918fb48685071bc6131a3deebd5 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Fri, 13 Sep 2002 19:01:06 +0000 Subject: - fix old conf files name (thx titi) --- perl-install/network/netconnect.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 4f9fee0ff..75f64bbac 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -591,7 +591,7 @@ sub load_conf { sub read_raw_net_conf { my ($suffix) = @_; my $dir = "$::prefix/etc/sysconfig/network-scripts"; - $suffix = $suffix ? ".$suffix" : ''; +# $suffix = $suffix ? ".$suffix" : ''; rename "$dir/draknet$suffix", "$dir/drakconnect$suffix"; getVarsFromSh("$dir/drakconnect_conf"); } @@ -602,7 +602,7 @@ sub get_net_device { sub read_net_conf { my ($prefix, $netcnx, $netc)=@_; - add2hash($netcnx, { read_raw_net_conf() }); + add2hash($netcnx, { read_raw_net_conf('_conf') }); $netc->{$_} = $netcnx->{$_} foreach 'NET_DEVICE', 'NET_INTERFACE'; $netcnx->{$netcnx->{type}}||={}; add2hash($netcnx->{$netcnx->{type}}, { read_raw_net_conf($netcnx->{type}) }); -- cgit v1.2.1