summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 1808c89a1..71a0dea5f 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1159,10 +1159,10 @@ sub g_auto_install {
$o->{interactiveSteps} = [ 'doPartitionDisks', 'formatPartitions' ] if $b_replay;
#- deep copy because we're modifying it below
- $o->{users} = [ @{$o->{users} || []} ];
+ $o->{users} = $b_respect_privacy ? [] : [ @{$o->{users} || []} ];
my @user_info_to_remove = (
- if_($b_respect_privacy, qw(name realname home pw)),
+ if_($b_respect_privacy, qw(realname pw)),
qw(oldu oldg password password2),
);
$_ = { %{$_ || {}} }, delete @$_{@user_info_to_remove} foreach $o->{superuser}, @{$o->{users} || []};
@@ -1173,11 +1173,13 @@ sub g_auto_install {
$_ = { %{$_ || {}} }, delete @$_{@netcnx_type_to_remove} foreach $o->{netcnx}{$type};
}
}
+ my $warn_privacy = $b_respect_privacy ? "!! This file has been simplified to respect privacy when reporting problems.
+# You should use /root/drakx/auto_inst.cfg.pl instead !!\n#" : '';
require Data::Dumper;
my $str = join('',
"#!/usr/bin/perl -cw
-#
+# $warn_privacy
# You should check the syntax of this file before using it in an auto-install.
# You can do this with 'perl -cw auto_inst.cfg.pl' or by executing this file
# (note the '#!/usr/bin/perl -cw' on the first line).