- complete re-write of draksec. splitted all the libsafe related functions

in this file.

1 files changed, 18 insertions, 0 deletions

diff --git a/perl-install/security/libsafe.pm b/perl-install/security/libsafe.pm
new file mode 100644
index 000000000..1001ce4db
--- /dev/null
+++ b/perl-install/security/libsafe.pm
@@ -0,0 +1,18 @@
+package security::libsafe;
+
+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});
+}
+
+1;