From 94c87ec4bf39207ab828f849c1cf2c0cfca38a7e Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 4 Aug 2004 07:40:01 +0000
Subject: kill set_cnx_script usage, replace cnx_scripts with ifup/ifdown

---
 perl-install/network/ethernet.pm   |  8 --------
 perl-install/network/netconnect.pm | 22 +++-------------------
 perl-install/network/tools.pm      | 10 ++++++++--
 3 files changed, 11 insertions(+), 29 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index a93d66c77..074fec628 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -21,14 +21,6 @@ sub write_ether_conf {
 	$netcnx->{type} = 'lan';
 	$netcnx->{NET_DEVICE} = $netc->{NET_DEVICE} = '';
 	$netcnx->{NET_INTERFACE} = 'lan'; #$netc->{NET_INTERFACE};
-        set_cnx_script($netc, "local network",
-qq(
-/etc/rc.d/init.d/network restart
-),
-qq(
-/etc/rc.d/init.d/network stop
-/sbin/ifup lo
-), $netcnx->{type});
     }
     $::isStandalone and $modules_conf->write;
     1;
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 22069f39c..4a4810003 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -566,10 +566,6 @@ Take a look at http://www.linmodems.org"),
                     pre => sub {
                         $mouse ||= {};
                         $mouse->{device} ||= readlink "$::prefix/dev/mouse";
-                        set_cnx_script($netc, "modem", join("\n", if_($::testing, "/sbin/route del default"), "ifup ppp0"),
-                                         q(ifdown ppp0
-killall pppd
-), $netcnx->{type});
                     },
                     name => N("Dialup: account options"), 
                     data => sub {
@@ -786,7 +782,7 @@ If you don't know, choose 'use pppoe'"),
                             return 'lan_intf';
                         }
                         network::adsl::adsl_probe_info($netcnx, $netc, $adsl_type, $ntf_name);
-                        $netc->{NET_DEVICE} = $ntf_name if $adsl_type eq 'pppoe';
+                        $netc->{$_} = $adsl_type eq 'pppoe' ? $ntf_name : 'ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE';
                         return 'adsl_account';
                     },
                    },
@@ -815,10 +811,6 @@ If you don't know, choose 'use pppoe'"),
                     post => sub {
                         $netc->{internet_cnx_choice} = 'adsl';
                         network::adsl::adsl_conf_backend($in, $modules_conf, $netcnx, $netc, $ntf_name, $adsl_type, $netcnx); #FIXME
-                        set_cnx_script($netc, "adsl", "ifup ppp0",
-                                       q(ifdown ppp0
-killall pppd
-), $netcnx->{type});
                         $config->{adsl} = { kind => $ntf_name, protocol => $adsl_type };
                         $handle_multiple_cnx->();
                     },
@@ -958,13 +950,6 @@ notation (for example, 1.2.3.4).")),
                         $ethntf->{MII_NOT_SUPPORTED} = bool2yesno(!$hotplug);
                         $ethntf->{HWADDR} = $track_network_id or delete $ethntf->{HWADDR};
                         $in->do_pkgs->install($netc->{dhcp_client}) if $auto_ip;
-                        set_cnx_script($netc, "cable", qq(
-/sbin/ifup $netc->{NET_DEVICE}
-),
-                                                  qq(
-/sbin/ifdown $netc->{NET_DEVICE}
-), $netcnx->{type}) if $netcnx->{type} eq 'cable';
-
                         return $is_wireless ? "wireless" : "static_hostname";
                     },
                    },
@@ -1236,8 +1221,7 @@ It is not necessary on most networks."),
                         if ($a) {
                             # local $::isWizard = 0;
                             my $_w = $in->wait_message('', N("Testing your connection..."), 1);
-                            # FIXME: drop cnx_scripts (still used for modem connexions), use ifup/ifdown instead
-                            connect_backend();
+                            connect_backend($netc);
                             my $s = 30;
                             $type =~ /modem/ and $s = 50;
                             $type =~ /adsl/ and $s = 35;
@@ -1260,7 +1244,7 @@ Try to reconfigure your connection.");
                     no_back => 1,
                     end => 1,
                     post => sub {
-                        $::isInstall and disconnect_backend();
+                        $::isInstall and disconnect_backend($netc);
                         return "end";
                     },
                    },
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index bdfa8a13a..d3dc102f9 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -72,9 +72,15 @@ sub passwd_by_login {
     }
 }
 
-sub connect_backend() { run_program::rooted($::prefix, "$connect_file &") }
+sub connect_backend {
+    my ($netc) = @_;
+    run_program::rooted($::prefix, "ifup $netc->{NET_INTERFACE} &");
+}
 
-sub disconnect_backend() { run_program::rooted($::prefix, "$disconnect_file &") }
+sub disconnect_backend {
+    my ($netc) = @_;
+    run_program::rooted($::prefix, "ifdown $netc->{NET_INTERFACE} &");
+}
 
 sub connected() { gethostbyname("mandrakesoft.com") ? 1 : 0 }
 
-- 
cgit v1.2.1