summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-04 20:29:24 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-04 20:29:24 +0000
commit9f4d9db50a2434acb6fde63ead071d9754e80f38 (patch)
tree515987dc42e58957190bbfd8b4c4b583997cf51b
parent8d5fe6fe6ab47eb0b460fd954b047313a7e431bc (diff)
downloaddrakx-9f4d9db50a2434acb6fde63ead071d9754e80f38.tar
drakx-9f4d9db50a2434acb6fde63ead071d9754e80f38.tar.gz
drakx-9f4d9db50a2434acb6fde63ead071d9754e80f38.tar.bz2
drakx-9f4d9db50a2434acb6fde63ead071d9754e80f38.tar.xz
drakx-9f4d9db50a2434acb6fde63ead071d9754e80f38.zip
no_comment
-rw-r--r--docs/TODO12
-rw-r--r--perl-install/install2.pm39
-rw-r--r--perl-install/install_steps_interactive.pm2
-rw-r--r--perl-install/modules.pm20
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};
}
}
}