diff options
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/drakauth | 4 | ||||
-rwxr-xr-x | perl-install/standalone/drakgw | 4 | ||||
-rwxr-xr-x | perl-install/standalone/drakpxe | 4 |
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"); |