diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index caf4eea55..6f4e07f18 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -235,7 +235,7 @@ ifdown eth0 my $m = _("Congratulations, the network and internet configuration is finished. -The configuration will now be applied to your system.\n") . if_($::isStandalone, +The configuration will now be applied to your system.\n") . if_($::isStandalone && $in->isa('interactive_gtk'), _("After that is done, we recommend you to restart your X environnement to avoid hostname changing problem.")); if ($::isWizard) { @@ -432,7 +432,6 @@ sub set_profile { my $f = "$prefix/etc/sysconfig/network-scripts/draknet_conf"; -e ($f . "." . $profile) or return; $netcnx->{PROFILE}=$profile; - print "changing to $profile\n"; commands::cp("-f", $f . "." . $profile, $f); foreach ( ["$prefix$connect_file", "up"], ["$prefix$disconnect_file", "down"], @@ -453,7 +452,6 @@ sub del_profile { my ($netcnx, $profile) = @_; $profile or return; $profile eq "default" and return; - print "deleting $profile\n"; commands::rm("-f", "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $profile); commands::rm("-f", glob_("$prefix/etc/sysconfig/network-scripts/net_{up,down,prog,iop1B,iop2B,isdn1B,isdn2B,resolv,speedtouch}." . $profile)); } @@ -462,7 +460,6 @@ sub add_profile { my ($netcnx, $profile) = @_; $profile or return; $profile eq "default" and return; - print "creating $profile\n"; my $cmd1 = "$prefix/etc/sysconfig/network-scripts/draknet_conf." . ($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default"); my $cmd2 = "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $profile; commands::cp("-f", $cmd1, $cmd2); |