diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-20 00:05:37 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-20 00:05:37 +0000 |
commit | 73664f3bb1816f30dfe94f41ea6241a9c5328114 (patch) | |
tree | 5d2278393b17bb855173b88c47f85d153624cf9f /perl-install/install2.pm | |
parent | 3fae0b21431abe463ca6bfa2746d48d6a6756aa4 (diff) | |
download | drakx-backup-do-not-use-73664f3bb1816f30dfe94f41ea6241a9c5328114.tar drakx-backup-do-not-use-73664f3bb1816f30dfe94f41ea6241a9c5328114.tar.gz drakx-backup-do-not-use-73664f3bb1816f30dfe94f41ea6241a9c5328114.tar.bz2 drakx-backup-do-not-use-73664f3bb1816f30dfe94f41ea6241a9c5328114.tar.xz drakx-backup-do-not-use-73664f3bb1816f30dfe94f41ea6241a9c5328114.zip |
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r-- | perl-install/install2.pm | 41 |
1 files changed, 23 insertions, 18 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index b637203f5..77af259fd 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -50,7 +50,7 @@ my (%installSteps, @orderedInstallSteps); partitionDisks => [ __("Setup filesystems"), 1, 0, '', "selectPath" ], formatPartitions => [ __("Format partitions"), 1, -1, '', "partitionDisks" ], choosePackages => [ __("Choose packages to install"), 1, 1, 'beginner', "selectPath" ], - doInstallStep => [ __("Install system"), 1, -1, ''],#, ["formatPartitions", "selectPath"] ], + doInstallStep => [ __("Install system"), 1, -1, '', ["formatPartitions", "selectPath"] ], configureNetwork => [ __("Configure networking"), 1, 1, 'beginner', "formatPartitions" ], installCrypto => [ __("Cryptographic"), 1, 1, '!expert', "configureNetwork" ], configureTimezone => [ __("Configure timezone"), 1, 1, '', "doInstallStep" ], @@ -362,6 +362,20 @@ sub doInstallStep { #------------------------------------------------------------------------------ sub miscellaneous { $o->miscellaneous($_[0]); + + addToBeDone { + setVarsInSh("$o->{prefix}/etc/sysconfig/system", { + HDPARM => $o->{miscellaneous}{HDPARM}, + TYPE => $o->{installClass}, + SECURITY => $o->{security}, + }); + install_any::fsck_option(); + + local $ENV{LILO_PASSWORD} = $o->{lilo}{password}; + run_program::rooted($o->{prefix}, "/etc/security/msec/init.sh", $o->{security}); + chmod 0755, map { "$o->{prefix}/etc/X11/$_" } qw(xdm/Xsession xinit/xinitrc); + + } 'doInstallStep'; } #------------------------------------------------------------------------------ @@ -440,6 +454,11 @@ sub setupBootloader { #------------------------------------------------------------------------------ sub configureX { my ($clicked) = $_[0]; + + #- done here and also at the end of install2.pm, just in case... + fs::write($o->{prefix}, $o->{fstab}, $o->{manualFstab}, $o->{useSupermount}); + modules::write_conf("$o->{prefix}/etc/conf.modules", 'append'); + $o->setupXfree if $o->{packages}{XFree86}{installed} || $clicked; } #------------------------------------------------------------------------------ @@ -450,7 +469,7 @@ sub exitInstall { $o->exitInstall(getNextStep() eq "exitInstall") } #- MAIN #-###################################################################################### sub main { - $SIG{__DIE__} = sub { chomp(my $err = $_[0]); log::l("ERROR: $err") }; + $SIG{__DIE__} = sub { chomp(my $err = $_[0]); log::l("WARNING: $err") }; $::beginner = $::expert = $::g_auto_install = 0; @@ -602,28 +621,14 @@ sub main { last if $o->{step} eq 'exitInstall'; } - - local $ENV{LILO_PASSWORD} = $o->{lilo}{password}; - run_program::rooted($o->{prefix}, "/etc/security/msec/init.sh", $o->{security}); - - chmod 0755, map { "$o->{prefix}/etc/X11/$_" } qw(xdm/Xsession xinit/xinitrc); - - run_program::rooted($o->{prefix}, "kudzu", "-q"); # -q <=> fermetagueuleconnard - fs::write($o->{prefix}, $o->{fstab}, $o->{manualFstab}, $o->{useSupermount}); modules::write_conf("$o->{prefix}/etc/conf.modules", 'append'); - #- update language and icons for KDE. - log::l("updating language for kde"); - install_any::kdelang_postinstall($o->{prefix}); - log::l("updating kde icons according to available devices"); - install_any::kdeicons_postinstall($o->{prefix}); - - run_program::rooted($o->{prefix}, "kdeDesktopCleanup"); - install_any::lnx4win_postinstall($o->{prefix}) if $o->{lnx4win}; install_any::killCardServices(); + run_program::rooted($o->{prefix}, "kudzu", "-q"); # -q <=> fermetagueuleconnard + #- have the really bleeding edge ddebug.log for this f*cking msec :-/ eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") }; |