diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-23 17:38:01 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-23 17:38:01 +0000 |
| commit | af403ee1a8c3e7a1c0f38273255e5c14dec0d1f5 (patch) | |
| tree | 2dc7003a66584a7ec4f5ec2677a31f0705f5a9da /perl-install/network/netconnect.pm | |
| parent | 8363d05c00ebef0fc9f69a40066539f5d7274b49 (diff) | |
| download | drakx-backup-do-not-use-af403ee1a8c3e7a1c0f38273255e5c14dec0d1f5.tar drakx-backup-do-not-use-af403ee1a8c3e7a1c0f38273255e5c14dec0d1f5.tar.gz drakx-backup-do-not-use-af403ee1a8c3e7a1c0f38273255e5c14dec0d1f5.tar.bz2 drakx-backup-do-not-use-af403ee1a8c3e7a1c0f38273255e5c14dec0d1f5.tar.xz drakx-backup-do-not-use-af403ee1a8c3e7a1c0f38273255e5c14dec0d1f5.zip | |
fix drakconnect config writing when there's only one configured
interface (eg: at install time) (#8998)
Diffstat (limited to 'perl-install/network/netconnect.pm')
| -rw-r--r-- | perl-install/network/netconnect.pm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 9117a04ce..264aa6925 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -199,6 +199,14 @@ sub real_main { return "network_on_boot"; }; + my $save_cnx = sub { + if (keys %$config) { + require Data::Dumper; + output("$::prefix/etc/sysconfig/drakconnect", Data::Dumper->Dump([ $config ], [ '$p' ])); + } + return $goto_start_on_boot_ifneeded->(); + }; + my $handle_multiple_cnx = sub { $need_restart_network = 1 if $netcnx->{type} =~ /adsl|cable|lan/; my $nb = keys %{$netc->{internet_cnx}}; @@ -206,6 +214,7 @@ sub real_main { return "multiple_internet_cnx"; } else { $netc->{internet_cnx_choice} = (keys %{$netc->{internet_cnx}})[0] if $nb == 1; + $save_cnx->(); return $goto_start_on_boot_ifneeded->() } }; @@ -1130,13 +1139,7 @@ N("Last but not least you can also type in your DNS server IP addresses."), [ { label => N("Internet connection"), val => \$netc->{internet_cnx_choice}, list => [ keys %{$netc->{internet_cnx}} ] } ]; }, - post => sub { - if (keys %$config) { - require Data::Dumper; - output("$::prefix/etc/sysconfig/drakconnect", Data::Dumper->Dump([ $config ], [ '$p' ])); - } - return $goto_start_on_boot_ifneeded->(); - }, + post => $save_cnx, }, apply_settings => |