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() {