diff options
Diffstat (limited to 'perl-install/security/various.pm')
| -rw-r--r-- | perl-install/security/various.pm | 21 | 
1 files changed, 5 insertions, 16 deletions
| diff --git a/perl-install/security/various.pm b/perl-install/security/various.pm index 23b9174ef..2e4abd397 100644 --- a/perl-install/security/various.pm +++ b/perl-install/security/various.pm @@ -1,30 +1,19 @@ -package security::various; # $Id$ +package security::various;  use diagnostics;  use strict;  use common; -sub config_libsafe { -    my $setting = @_ > 1; -    my ($prefix, $libsafe) = @_; -    my %t = getVarsFromSh("$prefix/etc/sysconfig/system"); -    if ($setting) { -        $t{LIBSAFE} = bool2yesno($libsafe); -        setVarsInSh("$prefix/etc/sysconfig/system", \%t); -    } -    text2bool($t{LIBSAFE}); -} -  sub config_security_user {      my $setting = @_ > 1;      my ($prefix, $sec_user) = @_; -    my %t = getVarsFromSh("$prefix/etc/security/msec/security.conf");      if ($setting) { -        $t{MAIL_USER} = $sec_user; -	setVarsInSh("$prefix/etc/security/msec/security.conf", \%t); +	addVarsInSh("$prefix/etc/security/msec/security.conf", { MAIL_USER => $sec_user }); +    } else { +	my %t = getVarsFromSh("$prefix/etc/security/msec/security.conf"); +	$t{MAIL_USER};      } -    $t{MAIL_USER};  }  1; | 
