diff options
author | Mystery Man <unknown@mandriva.org> | 2002-07-23 11:21:56 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-07-23 11:21:56 +0000 |
commit | 0a94f3feb8d7841fe8212febcbbdac1073413e05 (patch) | |
tree | 09f4686118e32ec13377577bbbd0f08e8120836c /perl-install/security.pm | |
parent | 127a73d935d78af53d3dadd05d4636f6b717976d (diff) | |
download | drakx-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.pm | 39 |
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; |