summaryrefslogtreecommitdiffstats
path: root/perl-install/security/various.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-29 12:39:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-29 12:39:00 +0000
commitdd21431b3f33cf7da019fcd485dd023e057bae72 (patch)
tree974f7897bf1a1807ba3c180b7037bb0b1d41b565 /perl-install/security/various.pm
parentf6489bb8bd002ad8fc34b583f76fdc988a0f3af1 (diff)
downloaddrakx-backup-do-not-use-dd21431b3f33cf7da019fcd485dd023e057bae72.tar
drakx-backup-do-not-use-dd21431b3f33cf7da019fcd485dd023e057bae72.tar.gz
drakx-backup-do-not-use-dd21431b3f33cf7da019fcd485dd023e057bae72.tar.bz2
drakx-backup-do-not-use-dd21431b3f33cf7da019fcd485dd023e057bae72.tar.xz
drakx-backup-do-not-use-dd21431b3f33cf7da019fcd485dd023e057bae72.zip
deprecates security::libsafe
Diffstat (limited to 'perl-install/security/various.pm')
-rw-r--r--perl-install/security/various.pm28
1 files changed, 28 insertions, 0 deletions
diff --git a/perl-install/security/various.pm b/perl-install/security/various.pm
new file mode 100644
index 000000000..7d63c7fdc
--- /dev/null
+++ b/perl-install/security/various.pm
@@ -0,0 +1,28 @@
+package security::various; # $Id$
+
+use diagnostics;
+use strict;
+
+use common;
+
+sub config_libsafe {
+ my ($prefix, $libsafe) = @_;
+ my %t = getVarsFromSh("$prefix/etc/sysconfig/system");
+ if (@_ > 1) {
+ $t{LIBSAFE} = bool2yesno($libsafe);
+ setVarsInSh("$prefix/etc/sysconfig/system", \%t);
+ }
+ text2bool($t{LIBSAFE});
+}
+
+sub config_security_user {
+ my ($prefix, $sec_user) = @_;
+ my %t = getVarsFromSh("$prefix/etc/security/msec/security.conf");
+ if (@_ > 1) {
+ $t{MAIL_USER} = $sec_user;
+ setVarsInSh("$prefix/etc/security/msec/security.conf", \%t);
+ }
+ $t{MAIL_USER};
+}
+
+1;