summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect24
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"));