diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-03-04 22:35:06 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-03-04 22:35:06 +0000 |
| commit | 402441127941b9aba5d7558ce6c92dacf87b0ba4 (patch) | |
| tree | ff4908345ce942fbbf52cf0af0a39a484cb071da /perl-install/standalone/drakconnect | |
| parent | 29efd345f07a38ba6347feea96abe90607709758 (diff) | |
| download | drakx-backup-do-not-use-402441127941b9aba5d7558ce6c92dacf87b0ba4.tar drakx-backup-do-not-use-402441127941b9aba5d7558ce6c92dacf87b0ba4.tar.gz drakx-backup-do-not-use-402441127941b9aba5d7558ce6c92dacf87b0ba4.tar.bz2 drakx-backup-do-not-use-402441127941b9aba5d7558ce6c92dacf87b0ba4.tar.xz drakx-backup-do-not-use-402441127941b9aba5d7558ce6c92dacf87b0ba4.zip | |
clean interface flags when dhcp mode is used.
Diffstat (limited to 'perl-install/standalone/drakconnect')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index b53f89687..c432a29d7 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -495,16 +495,20 @@ Configure them first by clicking on 'Configure'")),1,1,0); $bbox8->set_layout('end'); my $button_ok = new Gtk2::Button(N("OK")); $button_ok->signal_connect(clicked => sub { - foreach (0..$#all_cards) { - my @infos = @{$card_tab[2*$_]}; - each_index { - ${$_->[1]} = $infos[2*$::i+1]->get_text(); - } @{$card_tab[2*$_+1]}; - } - update(); - $button_apply->set_sensitive(1); - $window->destroy(); Gtk2->main_quit; - }); + foreach (0..$#all_cards) { + my @infos = @{$card_tab[2*$_]}; + each_index { + ${$_->[1]} = $infos[2*$::i+1]->get_text(); + } @{$card_tab[2*$_+1]}; + if ($intf->{"eth$_"}{BOOTPROTO} eq "dhcp") { + my $entry = $intf->{"eth$_"}; + delete @{$intf->{"eth$_"}}{qw(IPADDR NETWORK NETMASK BROADCAST)}; + } + } + update(); + $button_apply->set_sensitive(1); + $window->destroy(); Gtk2->main_quit; + }); $bbox8->add($button_ok); my $button_cancel = new Gtk2::Button(N("Cancel")); |