summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-22 14:11:58 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-22 14:11:58 +0000
commit757633bd64c05ee197d4d26471f66b922ef65074 (patch)
treeabf0d56a1f58f01c8a4e219e05133d55e44f28a1 /perl-install/install2.pm
parent1f9a35f6a7ae75da33dace3edcdca22c11ec8698 (diff)
downloaddrakx-757633bd64c05ee197d4d26471f66b922ef65074.tar
drakx-757633bd64c05ee197d4d26471f66b922ef65074.tar.gz
drakx-757633bd64c05ee197d4d26471f66b922ef65074.tar.bz2
drakx-757633bd64c05ee197d4d26471f66b922ef65074.tar.xz
drakx-757633bd64c05ee197d4d26471f66b922ef65074.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm26
1 files changed, 6 insertions, 20 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 939a1ddaf..68856df90 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -199,7 +199,6 @@ $o = $::o = {
#------------------------------------------------------------------------------
sub selectLanguage {
- $::live and return;
$o->selectLanguage($_[1] == 1);
addToBeDone {
@@ -210,7 +209,6 @@ sub selectLanguage {
#------------------------------------------------------------------------------
sub selectMouse {
- $::live and return;
my ($first_time) = $_[1] == 1;
add2hash($o->{mouse} ||= {}, mouse::read($o->{prefix})) if $o->{isUpgrade} && $first_time;
@@ -221,7 +219,6 @@ sub selectMouse {
#------------------------------------------------------------------------------
sub setupSCSI {
- $::live and return;
my ($clicked) = $_[0];
$o->{autoSCSI} ||= $::beginner;
@@ -230,7 +227,6 @@ sub setupSCSI {
#------------------------------------------------------------------------------
sub selectKeyboard {
- $::live and return;
my ($clicked) = $_[0];
return if !$o->{isUpgrade} && $::beginner && !$clicked;
@@ -247,7 +243,6 @@ sub selectKeyboard {
#------------------------------------------------------------------------------
sub selectInstallClass {
- $::live and return;
$o->selectInstallClass(@install_classes);
$o->{partitions} ||= $suggestedPartitions{$o->{installClass}};
@@ -268,7 +263,6 @@ sub selectInstallClass {
#------------------------------------------------------------------------------
sub doPartitionDisks {
- $::live and return;
$o->{steps}{formatPartitions}{done} = 0;
$o->doPartitionDisksBefore;
$o->doPartitionDisks;
@@ -276,7 +270,6 @@ sub doPartitionDisks {
}
sub formatPartitions {
- $::live and return;
unless ($o->{isUpgrade}) {
$o->choosePartitionsToFormat($o->{fstab});
$o->formatMountPartitions($o->{fstab}) unless $::testing;
@@ -342,7 +335,6 @@ sub installPackages {
}
#------------------------------------------------------------------------------
sub miscellaneous {
- $::live and return;
$o->miscellaneousBefore($_[0]);
$o->miscellaneous($_[0]);
@@ -370,17 +362,15 @@ VISOR=no
#------------------------------------------------------------------------------
sub configureNetwork {
- $::live and return;
#- get current configuration of network device.
require network;
eval { network::read_all_conf($o->{prefix}, $o->{netc} ||= {}, $o->{intf} ||= {}) };
$o->configureNetwork($_[1] == 1);
}
#------------------------------------------------------------------------------
-sub installCrypto { $::live or $o->installCrypto }
+sub installCrypto { $o->installCrypto }
#------------------------------------------------------------------------------
sub configureTimezone {
- $::live and return;
my ($clicked) = @_;
my $f = "$o->{prefix}/etc/sysconfig/clock";
@@ -395,9 +385,9 @@ sub configureTimezone {
$o->configureTimezone($f, $clicked);
}
#------------------------------------------------------------------------------
-sub configureServices { $::live or $::expert and $o->configureServices }
+sub configureServices { $::expert and $o->configureServices }
#------------------------------------------------------------------------------
-sub configurePrinter { $::live or $o->configurePrinter($_[0]) }
+sub configurePrinter { $o->configurePrinter($_[0]) }
#------------------------------------------------------------------------------
sub setRootPassword {
return if $o->{isUpgrade};
@@ -415,14 +405,12 @@ sub addUser {
#------------------------------------------------------------------------------
sub createBootdisk {
- $::live and return;
modules::write_conf($o->{prefix});
$o->createBootdisk($_[1] == 1);
}
#------------------------------------------------------------------------------
sub setupBootloader {
- $::live and return;
return if $::g_auto_install;
modules::write_conf($o->{prefix});
@@ -435,7 +423,6 @@ sub setupBootloader {
}
#------------------------------------------------------------------------------
sub configureX {
- $::live and return;
my ($clicked) = $_[0];
#- done here and also at the end of install2.pm, just in case...
@@ -445,10 +432,10 @@ sub configureX {
$o->configureX if pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'XFree86')) && !$o->{X}{disabled} || $clicked;
}
#------------------------------------------------------------------------------
-sub generateAutoInstFloppy { $::live or $o->generateAutoInstFloppy }
+sub generateAutoInstFloppy { $o->generateAutoInstFloppy }
#------------------------------------------------------------------------------
-sub exitInstall { $::live or $o->exitInstall(getNextStep() eq "exitInstall") }
+sub exitInstall { $o->exitInstall(getNextStep() eq "exitInstall") }
#-######################################################################################
@@ -562,8 +549,7 @@ sub main {
$s = $o->{steps}{$_};
}
$o->{isUpgrade} = 1;
- $::beginner = 0; #- use custom by default.
- $::expert = 1;
+ #$::beginner = 0; #- use custom by default.
}
mkdir $o->{prefix}, 0755;
mkdir $o->{root}, 0755;