From b0abaf4ef0b4e49106d78362b5b34cf420458d51 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 20 Mar 2001 17:47:26 +0000
Subject: use bastille backend

---
 perl-install/any.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2494bd8c0..260983fa8 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -792,4 +792,18 @@ sub runlevel {
     }
 }
 
+sub set_security_level {
+    my ($prefix, $security) = @_;
+
+    my %bastille_levels = (
+	2 => "Lax",
+	3 => "Moderate",
+	4 => "Paranoia",
+    );
+    eval {
+	commands::cp("-f", "$prefix/usr/share/Bastille/Workstation" . $bastille_levels{$security} . ".config", "$prefix/etc/Bastille/config");
+	run_program::rooted($prefix, "/usr/sbin/BastilleBackEnd");
+    }
+}
+
 1;
-- 
cgit v1.2.1