summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-18 07:55:16 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-18 07:55:16 +0000
commitf0d9d49902f39cb284f155f08a79bfea8662831a (patch)
treedfa1b95c854d064a9ab9e3dd0cd79444a579e1d0 /perl-install
parent61379b079d85737f21fcdbae19daa649044fe658 (diff)
downloaddrakx-backup-do-not-use-f0d9d49902f39cb284f155f08a79bfea8662831a.tar
drakx-backup-do-not-use-f0d9d49902f39cb284f155f08a79bfea8662831a.tar.gz
drakx-backup-do-not-use-f0d9d49902f39cb284f155f08a79bfea8662831a.tar.bz2
drakx-backup-do-not-use-f0d9d49902f39cb284f155f08a79bfea8662831a.tar.xz
drakx-backup-do-not-use-f0d9d49902f39cb284f155f08a79bfea8662831a.zip
(configure_lan) fix crash on interface enabling/disabling
(get_intf_status) factorize translations and use upcase initale
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect16
1 files changed, 11 insertions, 5 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 0f234a875..3a849f75a 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -411,6 +411,11 @@ sub configure_hostname() {
return;
}
+sub get_intf_status {
+ my ($c) = @ç;
+ ethisup($c) ? N("Deactivate now") : N("Activate now")
+}
+
sub configure_lan() {
my $window = _create_dialog(N("LAN configuration"), { small => 1 });
my @card_tab;
@@ -485,11 +490,12 @@ Configure them first by clicking on 'Configure'")),1,1,0);
my $c = $_;
my $widget_temp;
if (-e "$::prefix/etc/sysconfig/network-scripts/ifcfg-eth$c") {
- $widget_temp = gtksignal_connect(new Gtk2::Button(ethisup($c) ? N("deactivate now") : N("activate now")),
- clicked => sub {
- system("/sbin/if" . (ethisup($c) ? "down" : "up") . " eth$c");
- ugtk2::gtkbuttonset($_[0], ethisup($c) ? N("deactivate now") : N("activate now"));
- });
+ $widget_temp = gtksignal_connect(new Gtk2::Button(get_intf_status($c)),
+ clicked => sub {
+ system("/sbin/if" . (ethisup($c) ? "down" : "up") . " eth$c");
+ $_[0]->set_label(get_intf_status($c));
+ update();
+ });
} else {
$widget_temp = N("This interface has not been configured yet.\nLaunch the configuration wizard in the main window");
}