summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-09-11 18:55:49 +0000
committerdamien <damien@mandriva.com>2001-09-11 18:55:49 +0000
commit69ef56650dd4ba4a8bad534fe05cb9b15934c9dd (patch)
treea3e26a276085dea351119db159536d2c7903b82f /perl-install/network
parenta4effead9d908a1d764e2fab2741de1e7e0cce1f (diff)
downloaddrakx-69ef56650dd4ba4a8bad534fe05cb9b15934c9dd.tar
drakx-69ef56650dd4ba4a8bad534fe05cb9b15934c9dd.tar.gz
drakx-69ef56650dd4ba4a8bad534fe05cb9b15934c9dd.tar.bz2
drakx-69ef56650dd4ba4a8bad534fe05cb9b15934c9dd.tar.xz
drakx-69ef56650dd4ba4a8bad534fe05cb9b15934c9dd.zip
removed useless print
Diffstat (limited to 'perl-install/network')
-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);