diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 40f9cfeb1..9625aefe4 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -50,7 +50,7 @@ sub detect_timezone() { 'America/New_York' => N("United States"), 'Europe/London' => N("United Kingdom") ); - my %tm_parse = MDK::Common::System::getVarsFromSh('/etc/sysconfig/clock'); + my %tm_parse = MDK::Common::System::getVarsFromSh("$::prefix/etc/sysconfig/clock"); my @country; foreach (keys %tmz2country) { if ($_ eq $tm_parse{ZONE}) { @@ -89,10 +89,10 @@ sub real_main { my ($module, $auto_ip, $onboot, $needhostname, $hotplug, $track_network_id, @fields); # lan config my $success = 1; my $ethntf = {}; - my $db_path = "/usr/share/apps/kppp/Provider"; + my $db_path = "$::prefix/usr/share/apps/kppp/Provider"; my (%countries, @isp, $country, $provider, $old_provider); my $config = {}; - eval(cat_('/etc/sysconfig/drakconnect')); + eval(cat_("$::prefix/etc/sysconfig/drakconnect")); my %wireless_mode = (N("Ad-hoc") => "Ad-hoc", N("Managed") => "Managed", @@ -469,9 +469,9 @@ Take a look at http://www.linmodems.org"), my $type; my %pkgs2path = ( - hcfpcimodem => '/usr/sbin/hcfpciconfig', - hsflinmodem => '/usr/sbin/hsfconfig', - ltmodem => '/etc/devfs/conf.d/ltmodem.conf', + hcfpcimodem => "$::prefix/usr/sbin/hcfpciconfig", + hsflinmodem => "$::prefix/usr/sbin/hsfconfig", + ltmodem => "$::prefix/etc/devfs/conf.d/ltmodem.conf", ); my %devices = (ltmodem => '/dev/ttyS14', @@ -617,7 +617,7 @@ killall pppd post => sub { network::modem::ppp_configure($in, $modem); $netc->{$_} = 'ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE'; - $in->do_pkgs->install('kdenetwork-kppp') if !-e '/usr/bin/kppp'; + $in->do_pkgs->ensure_is_installed('kdenetwork-kppp', '/usr/bin/kppp'); $handle_multiple_cnx->(); }, }, @@ -644,8 +644,8 @@ killall pppd post => sub { my %packages = ( 'eci' => [ 'eciadsl', 'missing' ], - 'sagem' => [ 'eagle-usb', '/usr/sbin/eaglectrl' ], - 'speedtouch' => [ 'speedtouch', '/usr/share/speedtouch/speedtouch.sh' ], + 'sagem' => [ 'eagle-usb', "$::prefix/usr/sbin/eaglectrl" ], + 'speedtouch' => [ 'speedtouch', "$::prefix/usr/share/speedtouch/speedtouch.sh" ], ); return 'adsl_unsupported_eci' if $ntf_name eq 'eci'; $in->do_pkgs->install($packages{$ntf_name}->[0]) if $packages{$ntf_name} && !-e $packages{$ntf_name}->[1]; @@ -896,7 +896,7 @@ Modifying the fields below will override this configuration."), delete $ethntf->{NETWORK}; delete $ethntf->{BROADCAST}; @fields = qw(IPADDR NETMASK); - $netc->{dhcp_client} ||= (find { -x "/sbin/$_" } qw(dhclient dhcpcd pump dhcpxd)) || "dhcp-client"; + $netc->{dhcp_client} ||= (find { -x "$::prefix/sbin/$_" } qw(dhclient dhcpcd pump dhcpxd)) || "dhcp-client"; $netc->{dhcp_client} = "dhcp-client" if $netc->{dhcp_client} eq "dhclient"; }, name => sub { join('', @@ -1312,7 +1312,7 @@ fi } output_with_perm("$::prefix$network::tools::connect_prog", 0755, $connect_cmd) if $connect_cmd; $netcnx->{$_} = $netc->{$_} foreach qw(NET_DEVICE NET_INTERFACE); - $netcnx->{type} =~ /adsl/ or system("/sbin/chkconfig --del adsl 2> /dev/null"); + $netcnx->{type} =~ /adsl/ or run_program::rooted($::prefix, "/chkconfig --del adsl 2> /dev/null"); if ($::isInstall && $::o->{security} >= 3) { require network::drakfirewall; @@ -1372,7 +1372,7 @@ sub load_conf { sub get_net_device() { my $connect_file = $network::tools::connect_file; - my $network_file = "/etc/sysconfig/network"; + my $network_file = "$::prefix/etc/sysconfig/network"; if (cat_("$::prefix$connect_file") =~ /ifup/) { if_(cat_($connect_file) =~ /^\s*ifup\s+(.*)/m, split(' ', $1)) } elsif (cat_("$::prefix$connect_file") =~ /network/) { |