From ed1db3884ceffd84d82021c3f5c2c0c7be73a796 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 7 Feb 2002 21:50:52 +0000 Subject: create and use miscellaneousAfter (so that SECURE_LEVEL is set *after* asking) --- perl-install/install_steps.pm | 28 ++++++++++++++++++++-------- 1 file changed, 20 insertions(+), 8 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index c83cb751c..9bf1830f9 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -928,21 +928,33 @@ sub miscellaneousBefore { $o->{miscellaneous}{HDPARM} ||= $s{HDPARM} if exists $s{HDPARM}; $o->{security} ||= $s{SECURITY} if exists $s{SECURITY}; + add2hash_($o->{miscellaneous} ||= {}, { numlock => !detect_devices::isLaptop() }); +} +sub miscellaneous { + my ($o) = @_; + #- keep some given parameters + #-TODO +} +sub miscellaneousAfter { + my ($o) = @_; + add2hash_ $o, { useSupermount => 1 && $o->{security} < 4 && arch() !~ /sparc/ && !$::corporate }; + $ENV{SECURE_LEVEL} = $o->{security}; addToBeDone { mkdir_p("$o->{prefix}/etc/security/msec"); symlink "server.$o->{security}", "$o->{prefix}/etc/security/msec/server" if $o->{security} > 3; } 'formatPartitions'; - - add2hash_ $o, { useSupermount => 1 && $o->{security} < 4 && arch() !~ /sparc/ && !$::corporate }; - add2hash_($o->{miscellaneous} ||= {}, { numlock => !detect_devices::isLaptop() }); -} -sub miscellaneous { - my ($o) = @_; - #- keep some given parameters - #-TODO + addToBeDone { + setVarsInSh("$o->{prefix}/etc/sysconfig/system", { + CLASS => $::expert && 'expert' || 'beginner', + SECURITY => $o->{security}, + META_CLASS => $o->{meta_class} || 'PowerPack', + }); + substInFile { s/KEYBOARD_AT_BOOT=.*/KEYBOARD_AT_BOOT=yes/ } "$o->{prefix}/etc/sysconfig/usb" if detect_devices::usbKeyboards(); + + } 'installPackages'; } #------------------------------------------------------------------------------ -- cgit v1.2.1