diff options
| author | Christian Belisle <cbelisle@mandriva.com> | 2002-07-18 17:15:08 +0000 |
|---|---|---|
| committer | Christian Belisle <cbelisle@mandriva.com> | 2002-07-18 17:15:08 +0000 |
| commit | eddea72b920886b5bc2203dc1c71fdb6baa435b9 (patch) | |
| tree | 2fd50a9408ba0e835e2e3a68a0e32959d80a97ba /perl-install/security/msec.pm | |
| parent | fbf3496264e1ac1c56bf21ffb992ae11984d5b9d (diff) | |
| download | drakx-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.pm | 14 |
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"), |