package steps; use strict; use vars qw(%installSteps @orderedInstallSteps); use common; #-###################################################################################### #- Steps table #-###################################################################################### { my @installStepsFields = qw(text redoable onError hidden needs icon); #entered reachable toBeDone next done; my @installSteps = ( selectLanguage => [ N_("Choose your language"), 1, 1, '', '', 'language' ], selectInstallClass => [ N_("Select installation class"), 1, 1, '', '', '' ], setupSCSI => [ N_("Hard drive detection"), 1, 0, '', '', 'harddrive' ], selectMouse => [ N_("Configure mouse"), 1, 1, '', "selectInstallClass", 'mouse' ], selectKeyboard => [ N_("Choose your keyboard"), 1, 1, '', "selectInstallClass", 'keyboard' ], miscellaneous => [ N_("Security"), 1, 1, '!$::expert', '', 'security' ], doPartitionDisks => [ N_("Setup filesystems"), 1, 0, '', "selectInstallClass", 'partition' ], formatPartitions => [ N_("Format partitions"), 1, -1, '$o->{isUpgrade}', "doPartitionDisks", 'partition' ], choosePackages => [ N_("Choose packages to install"), 1, -2, '!$::expert', "formatPartitions", 'partition' ], installPackages => [ N_("Install system"), 1, -1, '', ["formatPartitions", "selectInstallClass"], '' ], setRootPassword => [ N_("Set root password"), 1, 1, '', "installPackages", 'rootpasswd' ], addUser => [ N_("Add a user"), 1, 1, '', "installPackages", 'user' ], configureNetwork => [ N_("Configure networking"), 1, 1, '', "formatPartitions", 'network' ], summary => [ N_("Summary"), 1, 0, '', "installPackages", 'summary' ], configureServices => [ N_("Configure services"), 1, 1, '!$::expert', "installPackages", 'services' ], setupBootloader => [ N_("Install bootloader"), 1, 0, '', "installPackages", 'bootloader' ], if_(arch() !~ /alpha/ && arch() !~ /ppc/, createBootdisk => [ N_("Create a bootdisk"), 1, 0, '', "installPackages", 'bootdisk' ], ), configureX => [ N_("Configure X"), 1, 1, '', ["formatPartitions", "setupBootloader"], 'X' ], installUpdates => [ N_("Install system updates"), 1, 1, '', ["installPackages", "configureNetwork", "summary"], '' ], exitInstall => [ N_("Exit install"), 0, 0, '!$::expert && !$::live', '', 'exit' ], ); for (my $i = 0; $i < @installSteps; $i += 2) { my %h; @h{@installStepsFields} = @{ $installSteps[$i + 1] }; $h{next} = $installSteps[$i + 2]; $h{entered} = 0; $h{onError} = $installSteps[$i + 2 * $h{onError}]; $h{reachable} = !$h{needs}; $installSteps{$installSteps[$i]} = \%h; push @orderedInstallSteps, $installSteps[$i]; } $installSteps{first} = $installSteps[0]; } 1; /dietlibc'>topic/dietlibc Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-10-12 13:37:55 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-10-12 13:37:55 +0000
commit8a2cfac90d5c49b5956f50525ba3c3c326473737 (patch)
treec20c14e6f40b9b9b2818996091a8d4c3b37b9799 /perl-install
parenteca50096e1da5a2482163a84a603e2c9eef99479 (diff)
downloaddrakx-8a2cfac90d5c49b5956f50525ba3c3c326473737.tar
drakx-8a2cfac90d5c49b5956f50525ba3c3c326473737.tar.gz
drakx-8a2cfac90d5c49b5956f50525ba3c3c326473737.tar.bz2
drakx-8a2cfac90d5c49b5956f50525ba3c3c326473737.tar.xz
drakx-8a2cfac90d5c49b5956f50525ba3c3c326473737.zip
partitioning wizard: fix typo in message
Diffstat (limited to 'perl-install')