summaryrefslogtreecommitdiffstats
path: root/perl-install/security.pm
diff options
context:
space:
mode:
authorMystery Man <unknown@mandriva.org>2002-07-23 11:21:56 +0000
committerMystery Man <unknown@mandriva.org>2002-07-23 11:21:56 +0000
commit0a94f3feb8d7841fe8212febcbbdac1073413e05 (patch)
tree09f4686118e32ec13377577bbbd0f08e8120836c /perl-install/security.pm
parent127a73d935d78af53d3dadd05d4636f6b717976d (diff)
downloaddrakx-1_1_8_14mdk.tar
drakx-1_1_8_14mdk.tar.gz
drakx-1_1_8_14mdk.tar.bz2
drakx-1_1_8_14mdk.tar.xz
drakx-1_1_8_14mdk.zip
This commit was manufactured by cvs2svn to create tag 'V1_1_8_14mdk'.V1_1_8_14mdk
Diffstat (limited to 'perl-install/security.pm')
-rw-r--r--perl-install/security.pm39
1 files changed, 0 insertions, 39 deletions
diff --git a/perl-install/security.pm b/perl-install/security.pm
deleted file mode 100644
index 257fbe248..000000000
--- a/perl-install/security.pm
+++ /dev/null
@@ -1,39 +0,0 @@
-package security::security;
-
-use diagnostics
-use strict;
-
-use common;
-use security::msec;
-use log;
-
-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 main {
- my ($in, $security, $libsafe, $sec_user) = @_;
-
- if (security::msec::choose_security_level($in, \$security, \$libsafe, \$sec_user)) {
- log::l("[draksec] Setting libsafe activation variable to $libsafe");
- config_libsafe('', $libsafe);
-
- log::l("[draksec] Setting security administrator contact to $sec_user");
- security::msec::config_security_user('', $sec_user);
-
- my $w = $in->wait_message('', _("Setting security level"));
- $in->suspend;
- $ENV{LILO_PASSWORD} = ''; # make it non interactive
- log::l("[draksec] Setting security level to $security");
- system "/usr/sbin/msec", $security;
- $in->resume;
- }
-}
-
-1;