summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorChristian Belisle <cbelisle@mandriva.com>2002-07-23 14:42:08 +0000
committerChristian Belisle <cbelisle@mandriva.com>2002-07-23 14:42:08 +0000
commitde32c3a713ff4652a69cb143e98d6726897834c0 (patch)
treeac8b1fecfcff02f88c4c220bf854b231b23dc502 /perl-install
parent90f3cbd4815e674daec6d8aab1e45e00c782067e (diff)
downloaddrakx-backup-do-not-use-de32c3a713ff4652a69cb143e98d6726897834c0.tar
drakx-backup-do-not-use-de32c3a713ff4652a69cb143e98d6726897834c0.tar.gz
drakx-backup-do-not-use-de32c3a713ff4652a69cb143e98d6726897834c0.tar.bz2
drakx-backup-do-not-use-de32c3a713ff4652a69cb143e98d6726897834c0.tar.xz
drakx-backup-do-not-use-de32c3a713ff4652a69cb143e98d6726897834c0.zip
removal
Diffstat (limited to 'perl-install')
-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;