summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-18 17:26:46 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-18 17:26:46 +0000
commit914c6af22c2783359e593eb1a88bdbb7a1202da0 (patch)
tree872a256c20780d64c6b4d09dc32bd238bbb62a25 /perl-install/install2.pm
parent0e4f05d46881f2bb726eac3580ae783f62d45015 (diff)
downloaddrakx-914c6af22c2783359e593eb1a88bdbb7a1202da0.tar
drakx-914c6af22c2783359e593eb1a88bdbb7a1202da0.tar.gz
drakx-914c6af22c2783359e593eb1a88bdbb7a1202da0.tar.bz2
drakx-914c6af22c2783359e593eb1a88bdbb7a1202da0.tar.xz
drakx-914c6af22c2783359e593eb1a88bdbb7a1202da0.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm22
1 files changed, 17 insertions, 5 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 2a388a5d0..fc06ec063 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -266,7 +266,7 @@ sub setupSCSI {
#------------------------------------------------------------------------------
sub partitionDisks {
- return if ($o->{isUpgrade});
+ return if $o->{lnx4win} || $o->{isUpgrade};
$::o->{steps}{formatPartitions}{done} = 0;
eval { fs::umount_all($o->{fstab}, $o->{prefix}) } if $o->{fstab} && !$::testing;
@@ -293,7 +293,7 @@ sub partitionDisks {
}
sub formatPartitions {
- return if ($o->{isUpgrade});
+ return if $o->{lnx4win} || $o->{isUpgrade};
$o->choosePartitionsToFormat($o->{fstab});
@@ -359,18 +359,22 @@ sub configureTimezone {
$o->timeConfig($f);
}
#------------------------------------------------------------------------------
-sub configureServices { $o->servicesConfig }
+sub configureServices {
+ return if $o->{lnx4win};
+
+ $o->servicesConfig;
+}
#------------------------------------------------------------------------------
sub configurePrinter { $o->printerConfig }
#------------------------------------------------------------------------------
sub setRootPassword {
- return if ($o->{isUpgrade});
+ return if $o->{isUpgrade};
$o->setRootPassword;
}
#------------------------------------------------------------------------------
sub addUser {
- return if ($o->{isUpgrade});
+ return if $o->{isUpgrade};
$o->addUser;
@@ -383,11 +387,15 @@ sub addUser {
#-PADTODO
sub createBootdisk {
modules::write_conf("$o->{prefix}/etc/conf.modules", 'append');
+
+ return if $o->{lnx4win};
$o->createBootdisk($_[1] == 1);
}
#------------------------------------------------------------------------------
sub setupBootloader {
+ return if $o->{lnx4win};
+
$o->setupBootloaderBefore if $_[1] == 1;
$o->setupBootloader($_[1] - 1);
}
@@ -426,6 +434,8 @@ sub main {
$o->{pcmcia} = shift;
} elsif (/--readonly/) {
$o->{partitioning}{readonly} = 1;
+ } elsif (/--lnx4win/) {
+ $o->{lnx4win} = 1;
}
}
@@ -527,6 +537,8 @@ sub main {
fs::write($o->{prefix}, $o->{fstab});
modules::write_conf("$o->{prefix}/etc/conf.modules", 'append');
+ run_program::run("/usr/bin/postinstall2") if $o->{lnx4win};
+
killCardServices();
log::l("installation complete, leaving");