From d33c8a72719af292726930c96e0abab68b494bb9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 7 Mar 2002 15:56:40 +0000
Subject: don't have the adsl & modem passwords in report.bug

---
 perl-install/install_any.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 7133583d3..977a9ad66 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -666,6 +666,13 @@ sub g_auto_install {
 	qw(oldu oldg password password2),
     );
     $_ = { %{$_ || {}} }, delete @$_{@user_info_to_remove} foreach $o->{superuser}, @{$o->{users} || []};
+
+    if ($respect_privacy && $o->{netcnx}) {
+	if (my $type = $o->{netcnx}{type}) {
+	    my @netcnx_type_to_remove = qw(passwd passwd2 login phone_in phone_out);
+	    $_ = { %{$_ || {}} }, delete @$_{@netcnx_type_to_remove} foreach $o->{netcnx}{$type};
+	}
+    }
     
     require Data::Dumper;
     my $str = join('', 
-- 
cgit v1.2.1