- (configure_lan) directly use global variables

- double click on ethernet lines run lan config dialog

1 files changed, 10 insertions, 5 deletions

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 7cc6241d4..1eb7af37c 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -167,11 +167,17 @@ 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"));
+$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';
+                      });
+
 
 build_list();
 
-my $button_lan = gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")),
-                                clicked => sub { configure_lan('', $netcnx, $netc, $intf) });
+my $button_lan = gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")), clicked => \&configure_lan);
 
 my ($bbox0, $label_host, $int_state, $button_expert);
 
@@ -377,8 +383,7 @@ sub quit_global() {
     ugtk2->exit(0);
 }
 
-sub configure_lan {
-    my ($prefix, $netcnx, undef, $intf) = @_;
+sub configure_lan() {
     my $window = _create_dialog(N("LAN configuration"), { small => 1 });
     my @card_tab;
 
@@ -448,7 +453,7 @@ 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") {
+	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");