From 9f4d9db50a2434acb6fde63ead071d9754e80f38 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 4 Sep 1999 20:29:24 +0000 Subject: no_comment --- docs/TODO | 12 +++++----- perl-install/install2.pm | 39 ++++++++++++++++++++++--------- perl-install/install_steps_interactive.pm | 2 +- perl-install/modules.pm | 20 ++++++++-------- 4 files changed, 45 insertions(+), 28 deletions(-) diff --git a/docs/TODO b/docs/TODO index 6aa3d08ff..2e8ce7e00 100644 --- a/docs/TODO +++ b/docs/TODO @@ -3,21 +3,17 @@ xmodmap needed even for english as the backspace is not what it should suggested partition tables must be found foreach installClass -timezone using a picture (pb: how to delimit zones) - merge the install(1) of redhat try detect_devices::floppies (and how are scsi floppies handled?) have a better time estimation of the remaining time in install packages -look at SuperProbe - -add the ability to give arguments to insmod. +intelligent arguments to insmod. update the list of modules (in update_kernel) -look at the pcmcia problem +look at the pcmcia case upgrade @@ -78,3 +74,7 @@ remove cpio from base when mkbootdisk deps is added quotema in _ask_from_list in my_gtk do a iotcl FDGETPRM to detect fd1, fd0. + +look at SuperProbe + +timezone using a picture (pb: how to delimit zones) diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 25333ee9e..4b1c2bdad 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -226,15 +226,30 @@ my @install_classes = (__("beginner"), __("developer"), __("server"), __("expert #-##################################################################################### #-Default value #-##################################################################################### -# partition layout for a server -# NOT YET USED -my @serverPartitioning = ( - { mntpoint => "/boot", size => 16 << 11, type => 0x83 }, - { mntpoint => "/", size => 256 << 11, type => 0x83 }, - { mntpoint => "/usr", size => 512 << 11, type => 0x83, growable => 1 }, - { mntpoint => "/var", size => 256 << 11, type => 0x83 }, - { mntpoint => "/home", size => 512 << 11, type => 0x83, growable => 1 }, - { mntpoint => "swap", size => 64 << 11, type => 0x82 } +# partition layout +my %suggestedPartitions = ( + beginner => [ + { mntpoint => "/boot", size => 16 << 11, type => 0x83 }, + { mntpoint => "swap", size => 128 << 11, type => 0x82 }, + { mntpoint => "/", size => 700 << 11, type => 0x83 }, + { mntpoint => "/home", size => 300 << 11, type => 0x83 }, + ], + developer => [ + { mntpoint => "/boot", size => 16 << 11, type => 0x83 }, + { mntpoint => "swap", size => 128 << 11, type => 0x82 }, + { mntpoint => "/", size => 200 << 11, type => 0x83 }, + { mntpoint => "/usr", size => 600 << 11, type => 0x83 }, + { mntpoint => "/home", size => 500 << 11, type => 0x83 }, + ], + server => [ + { mntpoint => "/boot", size => 16 << 11, type => 0x83 }, + { mntpoint => "swap", size => 512 << 11, type => 0x82 }, + { mntpoint => "/", size => 200 << 11, type => 0x83 }, + { mntpoint => "/usr", size => 600 << 11, type => 0x83 }, + { mntpoint => "/var", size => 600 << 11, type => 0x83 }, + { mntpoint => "/home", size => 500 << 11, type => 0x83 }, + ], + expert => [], ); #-####################################################################################### @@ -246,7 +261,7 @@ my @serverPartitioning = ( $o = $::o = { bootloader => { onmbr => 1, linear => 0 }, autoSCSI => 0, - mkbootdisk => "fd0", # no mkbootdisk if 0 or undef, find a floppy with 1 + mkbootdisk => 1, # no mkbootdisk if 0 or undef, find a floppy with 1 # packages => [ qw() ], partitioning => { clearall => $::testing, eraseBadPartitions => 0, auto_allocate => 0, autoformat => 0 }, # partitions => [ @@ -364,8 +379,10 @@ sub selectInstallClass { $o->selectInstallClass(@install_classes); $::expert = $o->{installClass} eq "expert"; + $o->{partitions} = $suggestedPartitions{$o->{installClass}}; + addToBeDone { - install_any::setPackages($o); #update package list + install_any::setPackages($o); #update package list } 'formatPartitions'; } diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index cd9736d5e..e778c6fa3 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -427,7 +427,7 @@ sub load_thiskind { modules::load_thiskind($type, sub { $w = $o->wait_message('', [ _("Installing driver for %s card %s", $type, $_->[0]), - $o->{installClass} ne "beginner" ? _("(module %s)", $_->[1]) : () + $::beginner ? _("(module %s)", $_->[1]) : () ]); }); } diff --git a/perl-install/modules.pm b/perl-install/modules.pm index f24a844bf..5ca395645 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -241,10 +241,13 @@ sub text2driver($) { sub load($;$@) { my ($name, $type, @options) = @_; + + $conf{'scsi_hostadapter' . ($conf{scsi}++ || '')}{alias} = $name + if $type eq 'scsi'; + if ($::testing) { log::l("i try to install $name module"); } else { - $conf{$name}{loaded} and return; $type ||= $drivers{$name}{type}; @@ -301,9 +304,13 @@ sub load_deps($) { sub read_conf { my ($file) = @_; my %c; + $c{scsi} = 0; foreach (cat_($file)) { - $c{$2}{$1} = $3 if /^\s*(\S+)\s+(\S+)\s+(.*?)\s*$/; + do { + $c{$2}{$1} = $3; + $c{scsi} = max($c{scsi}, $1 || 0) if /^\s*alias\s+scsi_hostadapter (\d*)/x; + } if /^\s*(\S+)\s+(\S+)\s+(.*?)\s*$/; } # cheating here: not handling aliases of aliases while (my ($k, $v) = each %c) { @@ -319,20 +326,13 @@ sub read_conf { sub write_conf { my ($file) = @_; my %written = read_conf($file); - my $scsi = $written{scsi}; local *F; open F, ">> $file" or die("cannot write module config file $file: $!\n"); while (my ($mod, $h) = each %conf) { while (my ($type, $v2) = each %$h) { - unless ($written{$mod}{$type}) { - if ($mod eq 'scsi_hostadapter') { - print "#" if $scsi; - $scsi ||= 1; - } - print F "$type $mod $v2\n" unless $type eq "loaded"; - } + print F "$type $mod $v2\n" if $v2 && $type ne "loaded" && !$written{$mod}{$type}; } } } -- cgit v1.2.1