summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-04 15:59:42 +0000
committerdamien <damien@mandriva.com>2001-07-04 15:59:42 +0000
commit1f8bbefe1dbb2f31a6176abac15b3848458b35d3 (patch)
treeb7ee6041b58ba84e540cdec35662738f376b00c7 /perl-install/network/netconnect.pm
parent9d1cef6977cddef2932c3e311d4ae03007413878 (diff)
downloaddrakx-backup-do-not-use-1f8bbefe1dbb2f31a6176abac15b3848458b35d3.tar
drakx-backup-do-not-use-1f8bbefe1dbb2f31a6176abac15b3848458b35d3.tar.gz
drakx-backup-do-not-use-1f8bbefe1dbb2f31a6176abac15b3848458b35d3.tar.bz2
drakx-backup-do-not-use-1f8bbefe1dbb2f31a6176abac15b3848458b35d3.tar.xz
drakx-backup-do-not-use-1f8bbefe1dbb2f31a6176abac15b3848458b35d3.zip
uses the fantastic global module.
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index ae1d2abcf..001fb4698 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -18,16 +18,16 @@ use commands;
#require Data::Dumper;
use network::tools;
+use globals qw($in $prefix $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";
-sub init { ($prefix, $in, $install) = @_ }
-
#- intro is called only in standalone.
sub intro {
- ($prefix, my $netcnx, $in, $install) = @_;
+ (my $prefix, my $netcnx, my $in, my $install) = @_;
+ globals::init(in => $in, prefix => $prefix, install => $install);
my ($netc, $mouse, $intf) = ({}, {}, {});
my $text;
my $connected;
@@ -85,7 +85,8 @@ sub detect {
}
sub main {
- ($prefix, my $netcnx, my $netc, my $mouse, $in, my $intf, $install, my $first_time, my $direct_fr) = @_;
+ (my $prefix, my $netcnx, my $netc, my $mouse, my $in, my $intf, my $install, my $first_time, my $direct_fr) = @_;
+ globals::init(in => $in, prefix => $prefix, install => $install);
$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