From 6c8dd68e7062a96d88a59cc128ac01ec28490a97 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 30 Jul 2001 15:54:38 +0000
Subject: added internet connection selection in case of multiple
 configurations

---
 perl-install/network/modem.pm | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

(limited to 'perl-install/network/modem.pm')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index fea6d0903..aae50b068 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -7,7 +7,7 @@ use detect_devices;
 use mouse;
 use network::tools;
 use vars qw(@ISA @EXPORT);
-use MDK::Common::Globals "network", qw($in $prefix $install $connect_file $disconnect_file);
+use MDK::Common::Globals "network", qw($in $prefix $install);
 
 @ISA = qw(Exporter);
 @EXPORT = qw(pppConfig modem_detect_backend);
@@ -19,17 +19,14 @@ sub configure{
     $netcnx->{modem}{device}=$netc->{autodetect}{modem};
   modem_step_1:
     pppConfig($netcnx->{$netcnx->{type}}, $mouse, $netc) or return;
-    output "$prefix$connect_file",
-      q(#!/bin/bash
+    write_cnx_script($netc, "modem",
+q(#!/bin/bash
 ifup ppp0
-);
-    output "$prefix$disconnect_file",
-      q(#!/bin/bash
+),
+q(#!/bin/bash
 ifdown ppp0
 killall pppd
-);
-    chmod 0755, "$prefix$disconnect_file";
-    chmod 0755, "$prefix$connect_file";
+));
     if ($::isStandalone) { ask_connect_now($netcnx->{$netcnx->{type}}, 'ppp0') or goto modem_step_1 }
     1;
 }
-- 
cgit v1.2.1