From dd21431b3f33cf7da019fcd485dd023e057bae72 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 29 Dec 2002 12:39:00 +0000
Subject: deprecates security::libsafe

---
 perl-install/security/various.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 perl-install/security/various.pm

(limited to 'perl-install')

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;
-- 
cgit v1.2.1