summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-09-08 14:54:48 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-09-08 14:54:48 +0000
commitec3798f880b10ab8b9bc4a5708649a6791e505a2 (patch)
treea3e4b068ce79b2b4388f51eea125266783156bea /perl-install/network/netconnect.pm
parent0f88f5713171dac3a88c72b7c9e543948a78afd6 (diff)
downloaddrakx-backup-do-not-use-ec3798f880b10ab8b9bc4a5708649a6791e505a2.tar
drakx-backup-do-not-use-ec3798f880b10ab8b9bc4a5708649a6791e505a2.tar.gz
drakx-backup-do-not-use-ec3798f880b10ab8b9bc4a5708649a6791e505a2.tar.bz2
drakx-backup-do-not-use-ec3798f880b10ab8b9bc4a5708649a6791e505a2.tar.xz
drakx-backup-do-not-use-ec3798f880b10ab8b9bc4a5708649a6791e505a2.zip
- fix/use explanations
- fix #5307 (firmware)
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 14f30a45f..ceaf1373f 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -285,23 +285,27 @@ name=$netcnx->{PROFILE}
sub set_profile {
my ($netcnx) = @_;
system("/sbin/set-netprofile $netcnx->{PROFILE}");
+ log::explanations("current profile is $netcnx->{PROFILE}");
}
sub save_profile {
my ($netcnx) = @_;
system("/sbin/save-netprofile $netcnx->{PROFILE}");
+ log::explanations("saved $netcnx->{PROFILE} profile");
}
sub del_profile {
- my ($_netcnx, $profile) = @_;
+ my ($profile) = @_;
return if !$profile || $profile eq "default";
rm_rf("$::prefix/etc/netprofile/profiles/$profile");
+ log::explanations("deleted 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");
}
sub get_profiles() {