1 files changed, 14 insertions, 0 deletions
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;