summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-15 14:58:15 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-15 14:58:15 +0000
commite4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999 (patch)
tree4b2d6c4b02fdfb534e1eaa2ffb44426cb0fc148b /perl-install/install2.pm
parent39b51c96e54f880be2d2fb909f44118a6c209d7c (diff)
downloaddrakx-e4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999.tar
drakx-e4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999.tar.gz
drakx-e4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999.tar.bz2
drakx-e4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999.tar.xz
drakx-e4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm20
1 files changed, 17 insertions, 3 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index fc75182e5..4ae7c89b8 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -84,7 +84,7 @@ my @serverPartitioning = (
);
my $default = {
-# display => "192.168.1.8:0",
+# display => "jaba:1",
user => { name => 'foo', password => 'foo', shell => '/bin/bash', realname => 'really, it is foo' },
rootPassword => 'toto',
lang => 'us',
@@ -94,13 +94,14 @@ my $default = {
mkbootdisk => 0,
comps => [ qw() ],
packages => [ qw() ],
- partitionning => { clearall => 1, eraseBadPartitions => 1, autoformat => 1 },
+ partitionning => { clearall => 0, eraseBadPartitions => 1, autoformat => 1 },
partitions => [
{ mntpoint => "/boot", size => 16 << 11, type => 0x83 },
{ mntpoint => "/", size => 300 << 11, type => 0x83 },
{ mntpoint => "swap", size => 64 << 11, type => 0x82 },
# { mntpoint => "/usr", size => 400 << 11, type => 0x83, growable => 1 },
],
+ shells => [ map { "/bin/$_" } qw(bash tcsh zsh ash) ],
};
$o = { default => $default };
@@ -113,6 +114,8 @@ sub selectPath {
sub selectInstallClass {
$o->{installClass} = $o->selectInstallClass;
+ $testing and $o->{default}->{partitionning}->{clearall} = 1;
+
if ($o->{installClass} eq 'Server') {
#TODO
}
@@ -138,7 +141,12 @@ sub partitionDisks {
unless ($testing) {
# Write partitions to disk
- foreach (@{$o->{hds}}) { partition_table::write($_); }
+ my $need_reboot = 0;
+ foreach (@{$o->{hds}}) {
+ eval { partition_table::write($_); };
+ $need_reboot ||= $@;
+ }
+ $need_reboot and $o->rebootNeeded;
}
}
@@ -164,6 +172,12 @@ sub findInstallFiles {
sub choosePackages {
$o->choosePackages($o->{packages}, $o->{comps});
+
+ $o->{comps}->{Base}->{selected} = 1;
+
+ foreach (grep { $_->{selected} } values %{$o->{comps}}) {
+ foreach (@{$_->{packages}}) { $_->{selected} = 1 }
+ }
smp::detect() and $o->{packages}->{"kernel-smp"}->{selected} = 1;
}