summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-04 23:20:35 +0000
committerdamien <damien@mandriva.com>2001-07-04 23:20:35 +0000
commit578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b (patch)
tree1a6883675e2b92253ccaf1df468a97182a9e3408 /perl-install/network/netconnect.pm
parent4eff584aa8d9fbe794e2d334824a052d4f69ccf4 (diff)
downloaddrakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar
drakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.gz
drakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.bz2
drakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.xz
drakx-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.zip
modularized. It compiles, runs, and works for some stuff.
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm18
1 files changed, 12 insertions, 6 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 4f34daa84..03b7d7fd5 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -3,7 +3,7 @@ package network::netconnect;
use diagnostics;
use strict;
-use vars qw($in $install $prefix $isdn_init @isdndata %isdnid2type $connect_file $disconnect_file $connect_prog);
+use vars qw($isdn_init @isdndata %isdnid2type);
use common qw(:common :file :functional :system);
use log;
@@ -18,11 +18,8 @@ use commands;
#require Data::Dumper;
use network::tools;
-use globals "network", qw($in $prefix $install);
+use globals "network", qw($in $prefix $install $connect_file $disconnect_file $connect_prog);
-$connect_file = "/etc/sysconfig/network-scripts/net_cnx_up";
-$disconnect_file = "/etc/sysconfig/network-scripts/net_cnx_down";
-$connect_prog = "/etc/sysconfig/network-scripts/net_cnx_pg";
#- intro is called only in standalone.
sub intro {
@@ -30,6 +27,9 @@ sub intro {
my ($netc, $mouse, $intf) = ({}, {}, {});
my $text;
my $connected;
+ my $connect_file = "/etc/sysconfig/network-scripts/net_cnx_up";
+ my $disconnect_file = "/etc/sysconfig/network-scripts/net_cnx_down";
+ my $connect_prog = "/etc/sysconfig/network-scripts/net_cnx_pg";
read_net_conf($prefix, $netcnx, $netc);
if (!$::isWizard) {
if (connected($netc)) {
@@ -85,7 +85,13 @@ sub detect {
sub main {
my ($prefix, $netcnx, $netc, $mouse, $in, $intf, $install, $first_time, $direct_fr) = @_;
- globals::init(in => $in, prefix => $prefix, install => $install);
+ globals::init(
+ in => $in,
+ prefix => $prefix,
+ install => $install,
+ connect_file => "/etc/sysconfig/network-scripts/net_cnx_up",
+ disconnect_file => "/etc/sysconfig/network-scripts/net_cnx_down",
+ connect_prog => "/etc/sysconfig/network-scripts/net_cnx_pg" );
$netc->{minus_one}=0; #When one configure an eth in dhcp without gateway
$::isInstall and $in->set_help('configureNetwork');
$::isStandalone and read_net_conf($netcnx, $netc); # REDONDANCE with intro. FIXME