diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps.pm | 22 |
1 files changed, 7 insertions, 15 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index b395a262f..2355023ed 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -584,21 +584,13 @@ sub configureNetwork { my ($o) = @_; require network; network::configureNetwork2($o, $o->{prefix}, $o->{netc}, $o->{intf}); - if ($o->{method} eq "ftp" || $o->{method} eq "http" || $o->{method} eq "nfs") { - my $prefix = $o->{prefix}; - my ($connect_file, $disconnect_file, $connect_prog) = - ("/etc/sysconfig/network-scripts/net_cnx_up", "/etc/sysconfig/network-scripts/net_cnx_down", "/etc/sysconfig/network-scripts/net_cnx_pg"); - $o->{netcnx}{type}='lan'; - output "$prefix$connect_file", - qq( -ifup eth0 -); - output "$prefix$disconnect_file", - qq( -ifdown eth0 -); - chmod 0755, "$prefix$disconnect_file"; - chmod 0755, "$prefix$connect_file"; + if ($o->{method} =~ /ftp|http|nfs/) { + $o->{netcnx}{type} = 'lan'; + foreach ("up", "down") { + my $f = "$o->{prefix}/etc/sysconfig/network-scripts/net_cnx_$_"; + output $f, "\nif$_ eth0\n"; + chmod 0755, $f; + } } } |