summaryrefslogtreecommitdiffstats
path: root/perl-install/security/various.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/security/various.pm')
-rw-r--r--perl-install/security/various.pm21
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;