summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakauth4
-rwxr-xr-xperl-install/standalone/drakgw4
-rwxr-xr-xperl-install/standalone/drakpxe4
3 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth
index 939b57c0c..6f2dfe236 100755
--- a/perl-install/standalone/drakauth
+++ b/perl-install/standalone/drakauth
@@ -7,11 +7,11 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use common;
use interactive;
use any;
-use network;
+use network::network;
my $netc = {};
my $intf = {};
-network::read_all_conf('', $netc, $intf);
+read_all_conf('', $netc, $intf);
my $in = 'interactive'->vnew('su');
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 43c2e752a..52960c204 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -28,7 +28,7 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use common;
use detect_devices;
use interactive;
-use network;
+use network::network;
use log;
use c;
use network::netconnect;
@@ -253,7 +253,7 @@ I am about to setup your Local Area Network with that adapter.", $format->($devi
defined $device or quit_global($in, 0);
}
log::explanations("Choosing network device: $device");
-my $conf = network::read_interface_conf("/etc/sysconfig/network-scripts/ifcfg-$device");
+my $conf = read_interface_conf("/etc/sysconfig/network-scripts/ifcfg-$device");
my $server_ip = $conf->{IPADDR} ||= network::network::read_dhcpd_conf()->{option_routers}[0] ||= "192.168.1.1";
my $lan_address = $server_ip =~ m/(.*)\.(.*)/ && $1 ? "$1.0" : "192.168.1.0";
diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe
index 4ceb492c7..9fd6a3b20 100755
--- a/perl-install/standalone/drakpxe
+++ b/perl-install/standalone/drakpxe
@@ -25,7 +25,7 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use common;
use interactive;
-use network;
+use network::network;
use log;
use c;
@@ -49,7 +49,7 @@ $::direct = grep { /-direct/ } @ARGV;
#- get network configuration.
my $netc = {};
my $intf = {};
-network::read_all_conf('', $netc, $intf);
+network::network::read_all_conf('', $netc, $intf);
my $in = 'interactive'->vnew('su');
$::Wizard_title = N("PXE Server Configuration");