summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-26 13:08:52 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-26 13:08:52 +0000
commited0d36211029857fc99a62ea542c82b3ed7c0ed9 (patch)
tree8801bfa56ff239e919181fc099ec6d8c24f099d1 /perl-install/standalone/drakconnect
parent18dc1bd21449a25331baf6adc754ee00b1465fab (diff)
downloaddrakx-backup-do-not-use-ed0d36211029857fc99a62ea542c82b3ed7c0ed9.tar
drakx-backup-do-not-use-ed0d36211029857fc99a62ea542c82b3ed7c0ed9.tar.gz
drakx-backup-do-not-use-ed0d36211029857fc99a62ea542c82b3ed7c0ed9.tar.bz2
drakx-backup-do-not-use-ed0d36211029857fc99a62ea542c82b3ed7c0ed9.tar.xz
drakx-backup-do-not-use-ed0d36211029857fc99a62ea542c82b3ed7c0ed9.zip
- only allow to run one wizard at once (insensitive button if one is
already started) - reload the configuration once the wizard exited - prevent one to do concurrent config changes from the gui while the wizard is run (proper fix involve both fix modality/transcientness when embedded and running the wizard within the same process instead of forking it]
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect63
1 files changed, 44 insertions, 19 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 321e108b4..3dfdf55bd 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -37,6 +37,7 @@ use modules;
use network::isdn;
use network::adsl;
use MDK::Common::Globals "network", qw($in $prefix $disconnect_file $connect_prog $connect_file);
+use POSIX ":sys_wait_h";
my $xpm_path = "/usr/share/libDrakX/pixmaps";
local $_ = join '', @ARGV;
@@ -59,7 +60,7 @@ MDK::Common::Globals::init(
connect_prog => "/etc/sysconfig/network-scripts/net_cnx_pg"
);
-$::isEmbedded && ref($in) =~ /gtk/ or goto dd;
+#$::isEmbedded && ref($in) =~ /gtk/ or goto dd;
require ugtk2;
ugtk2->import(qw(:helpers :wrappers :create));
@@ -164,11 +165,12 @@ each_index {
$list->append_column(my $col = Gtk2::TreeViewColumn->new_with_attributes($_, Gtk2::CellRendererText->new, 'text' => $::i + 1));
$col->set_sort_column_id($::i);
} (N("Interface"), N("IP address"), N("Protocol"), N("Driver"), N("State"));
+my $wizard_pid;
$list->signal_connect(button_press_event => sub {
my (undef, $event) = @_;
my (undef, $iter) = $list->get_selection->get_selected;
return unless $iter;
- configure_lan() if $event->type eq '2button-press';
+ configure_lan() if $event->type eq '2button-press' && !$wizard_pid;
});
@@ -176,6 +178,8 @@ update_list();
my ($bbox0, $label_host, $int_state, $button_expert);
+my ($lan_button, $wiz_button, $int_button);
+
$window1->{window}->add(
gtkpack_(Gtk2::VBox->new(0,10),
if_($activate_profile,
@@ -205,7 +209,7 @@ $window1->{window}->add(
5),
0, $warning_label1,
0, gtkpack(Gtk2::HButtonBox->new,
- gtksignal_connect(Gtk2::Button->new(N("Configure Internet Access...")),
+ $int_button = gtksignal_connect(Gtk2::Button->new(N("Configure Internet Access...")),
clicked => sub { configure_net('', $netcnx, $netc, $intf) }),
$int_connect,
),
@@ -216,26 +220,25 @@ $window1->{window}->add(
0, $list,
0, new Gtk2::HBox(0,0),
0, gtkpack_(new Gtk2::HBox(0, 0),
- 0, gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")),
- clicked => \&configure_lan),
+ 0, $lan_button = gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")),
+ clicked => \&configure_lan),
),
)
),
0, gtkadd(Gtk2::HButtonBox->new,
- gtksignal_connect(Gtk2::Button->new(N("Launch the wizard")),
- clicked => sub {
- system("drakconnect&");
- #- reload everything...
- $netcnx = {}; $netc = {}; $intf = {};
- network::netconnect::read_net_conf('', $netcnx, $netc);
- modules::load_category('net');
- @all_cards = network::ethernet::conf_network_card_backend($netc, $intf);
- network::netconnect::load_conf($netcnx, $netc, $intf);
- network::network::probe_netcnx_type('', $netc, $intf, $netcnx);
- $combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . ($combo1->entry->get_text || "default"));
- update();
- }),
- ),
+ $wiz_button = gtksignal_connect(Gtk2::Button->new(N("Launch the wizard")),
+ clicked => sub {
+ my $err = $$;
+ $wizard_pid = fork();
+ if (defined $wizard_pid) {
+ # immediate exit, else forked gtk+ object destructors will badly catch up parent drakconnect
+ !$wizard_pid and do { exec("drakconnect") or POSIX::_exit(1) };
+ sensitive_buttons(0);
+ } else {
+ error_dialog(N("Unable to fork: %s", "$!"));
+ }
+ }),
+ ),
0, Gtk2::HSeparator->new,
0, $bbox0 = gtkpack(Gtk2::HButtonBox->new,
gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub {
@@ -270,6 +273,28 @@ $combo1->signal_connect(realize => sub {
});
});
+sub sensitive_buttons {
+ $_->set_sensitive(0) foreach $lan_button, $wiz_button, $int_button;
+}
+
+
+$SIG{CHLD} = sub {
+ my $child = waitpid(-1, POSIX::WNOHANG);
+ return if !($wizard_pid && $child eq $wizard_pid);
+ undef $wizard_pid;
+ sensitive_buttons(1);
+ #- reload everything...
+ $netcnx = {}; $netc = {}; $intf = {};
+ network::netconnect::read_net_conf('', $netcnx, $netc);
+ modules::load_category('net');
+ @all_cards = network::ethernet::conf_network_card_backend($netc, $intf);
+ network::netconnect::load_conf($netcnx, $netc, $intf);
+ network::network::probe_netcnx_type('', $netc, $intf, $netcnx);
+ $combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . ($combo1->entry->get_text || "default"));
+ update();
+};
+
+
$window1->{rwindow}->show_all;
gtkflush();
my $tag = Glib::Timeout->add(4000, \&update2);