summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm5
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);