summaryrefslogtreecommitdiffstats
path: root/perl-install/security/msec.pm
diff options
context:
space:
mode:
authorChristian Belisle <cbelisle@mandriva.com>2002-07-18 17:15:08 +0000
committerChristian Belisle <cbelisle@mandriva.com>2002-07-18 17:15:08 +0000
commiteddea72b920886b5bc2203dc1c71fdb6baa435b9 (patch)
tree2fd50a9408ba0e835e2e3a68a0e32959d80a97ba /perl-install/security/msec.pm
parentfbf3496264e1ac1c56bf21ffb992ae11984d5b9d (diff)
downloaddrakx-backup-do-not-use-eddea72b920886b5bc2203dc1c71fdb6baa435b9.tar
drakx-backup-do-not-use-eddea72b920886b5bc2203dc1c71fdb6baa435b9.tar.gz
drakx-backup-do-not-use-eddea72b920886b5bc2203dc1c71fdb6baa435b9.tar.bz2
drakx-backup-do-not-use-eddea72b920886b5bc2203dc1c71fdb6baa435b9.tar.xz
drakx-backup-do-not-use-eddea72b920886b5bc2203dc1c71fdb6baa435b9.zip
- add prefix var in file names
- remove useless expert_mode var - add get_options(): will be used to get various options from msec
Diffstat (limited to 'perl-install/security/msec.pm')
-rw-r--r--perl-install/security/msec.pm14
1 files changed, 10 insertions, 4 deletions
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 20b3558e5..b72eff822 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -9,8 +9,8 @@ use log;
sub get_secure_level {
my ($prefix) = @_;
- cat_("/etc/profile") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.0 msec
- cat_("/etc/profile.d/msec.sh") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.1 msec
+ cat_("$prefix/etc/profile") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.0 msec
+ cat_("$prefix/etc/profile.d/msec.sh") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.1 msec
${{ getVarsFromSh("$prefix/etc/sysconfig/msec") }}{SECURE_LEVEL} || #- 8.2 msec
$ENV{SECURE_LEVEL};
}
@@ -25,9 +25,15 @@ sub config_security_user {
$t{MAIL_USER};
}
+sub get_options {
+ my ($prefix, $security) = @_;
+ my %options = ();
+
+ %options;
+}
+
sub choose_security_level {
my ($in, $security, $libsafe, $email) = @_;
- my $expert_file = "/etc/security/msec/expert_mode";
my %l = (
0 => _("Welcome To Crackers"),
@@ -71,7 +77,7 @@ sub choose_security_level {
sub sec_options {
my ($in, $security) = @_;
- my %options =
+ my %options = get_options('', $security);
$in->ask_from(
("DrakSec Advanced Options"),