From 97139f6583a88bf6a9badff59deb732f38f087d2 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 6 Sep 2004 15:04:26 +0000
Subject: perl_checker fixes

---
 perl-install/standalone/drakconnect | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index be25be801..51f1a8ab5 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -135,7 +135,7 @@ $window1->{window}->add(
                                                               clicked => sub {
                                                                   local ($::isWizard, $::Wizard_finished) = (1, 1);
                                                                   eval { # For wizcancel
-                                                                      configureNetworkNet($in, $netc, $intf, map { $_->[0] } @all_cards);
+                                                                      network::netconnect::main('', $netcnx, $in, $modules_conf, $netc, undef, $intf);
                                                                       $button_apply->set_sensitive(1);
                                                                       update();
                                                                   };
@@ -168,7 +168,7 @@ $window1->{window}->add(
                                                                               Gtk2::Label->new(N("Please Wait... Applying the configuration")));
                                                                       $dialog->show_all;
                                                                       gtkflush();
-                                                                      apply();
+                                                                      apply($netc, $intf);
                                                                       $dialog->destroy;
                                                                   }
                                                                   update();
@@ -267,7 +267,7 @@ sub build_tree {
 	$intf->{save} = sub {
             $netc->{internet_cnx_choice} = 'adsl';
             $netc->{at_boot} = $intf->{ONBOOT} eq 'yes' ? 1 : 0;
-            network::adsl::adsl_conf_backend($in, $modules_conf, $intf, $netc, $interface_kind, $protocol)
+            network::adsl::adsl_conf_backend($in, $modules_conf, $netcnx, $netc, $intf, $interface_kind, $protocol)
           };
     }
     elsif ($interface eq 'modem') {
@@ -660,7 +660,7 @@ sub del_intf() {
                                           list => [ keys %$intf, grep { -f "/etc/ppp/peers/$_" } qw(adsl isdn) ], } ],
                              post => sub {
                                  !$::testing and eval {
-                                     if (member($intf2delete, qw(adsl modem)) {
+                                     if (member($intf2delete, qw(adsl modem))) {
                                          rm_rf("/etc/ppp/peers/ppp0");
                                          rm_rf("/etc/sysconfig/network-scripts/ifcfg-ppp0");
                                      }
@@ -755,7 +755,7 @@ sub update() {
     $label_host->set_label($h);
     $int_label->set($netcnx->{type} eq 'lan' ? N("Gateway:") : N("Interface:"));
     $interface_name->set($netcnx->{type} eq 'lan' ? $netc->{GATEWAY} : $netcnx->{NET_INTERFACE});
-    update_list();
+    update_list($modules_conf);
     update_intbutt() if $isconnected != -1;
     1;
 }
-- 
cgit v1.2.1