summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-09-10 13:56:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-09-10 13:56:01 +0000
commit805f7a55d5adfc4cc3d7fd40d1e18f5936b70db7 (patch)
tree7ac3f91d5a47be4a1b1a1413a472546b0494ef0a /perl-install/network
parent0e1ffb6cff22128350b316414f108fab55c49670 (diff)
downloaddrakx-backup-do-not-use-805f7a55d5adfc4cc3d7fd40d1e18f5936b70db7.tar
drakx-backup-do-not-use-805f7a55d5adfc4cc3d7fd40d1e18f5936b70db7.tar.gz
drakx-backup-do-not-use-805f7a55d5adfc4cc3d7fd40d1e18f5936b70db7.tar.bz2
drakx-backup-do-not-use-805f7a55d5adfc4cc3d7fd40d1e18f5936b70db7.tar.xz
drakx-backup-do-not-use-805f7a55d5adfc4cc3d7fd40d1e18f5936b70db7.zip
follow std explanations policy
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/netconnect.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index bd7d45ecc..00803a90a 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -276,27 +276,27 @@ fi
sub set_profile {
my ($netcnx) = @_;
system("/sbin/set-netprofile $netcnx->{PROFILE}");
- log::explanations("current profile is $netcnx->{PROFILE}");
+ log::explanations("Switching to \"$netcnx->{PROFILE}\" profile");
}
sub save_profile {
my ($netcnx) = @_;
system("/sbin/save-netprofile $netcnx->{PROFILE}");
- log::explanations("saved $netcnx->{PROFILE} profile");
+ log::explanations("Saving \"$netcnx->{PROFILE}\" profile");
}
sub del_profile {
my ($profile) = @_;
return if !$profile || $profile eq "default";
rm_rf("$::prefix/etc/netprofile/profiles/$profile");
- log::explanations("deleted profile $profile");
+ log::explanations("Deleting \"$profile\"profile ");
}
sub add_profile {
my ($netcnx, $profile) = @_;
return if !$profile || $profile eq "default" || member($profile, get_profiles());
system("/sbin/clone-netprofile $netcnx->{PROFILE} $profile");
- log::explanations("created $profile profile");
+ log::explanations("Creating \"$profile\" profile");
}
sub get_profiles() {