diff options
author | Antoine Ginies <aginies@mandriva.com> | 2011-01-19 10:44:49 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2011-01-19 10:44:49 +0000 |
commit | 530a16ec071db0e24e6e949e265a96848864967c (patch) | |
tree | fe40cacd28d67b98186754c551b7fd339ebc7e17 /perl-install/install/steps_list.pm | |
download | drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.gz drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.bz2 drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.xz drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.zip |
add mes5-2.6.33 branch
Diffstat (limited to 'perl-install/install/steps_list.pm')
-rw-r--r-- | perl-install/install/steps_list.pm | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/perl-install/install/steps_list.pm b/perl-install/install/steps_list.pm new file mode 100644 index 000000000..9be2274fc --- /dev/null +++ b/perl-install/install/steps_list.pm @@ -0,0 +1,60 @@ +package install::steps_list; + +use strict; +use vars qw(%installSteps @orderedInstallSteps); +use common; + +#-###################################################################################### +#- Steps table +#-###################################################################################### +{ + my @installStepsFields = qw(text redoable onError hidden needs banner_title); + #entered reachable toBeDone next done; + my @installSteps = ( + selectLanguage => [ + #-PO: please keep the following messages very short: they must fit in the left list of the installer!!! + N_("_: Keep these entry short\nLanguage"), 1, 1, '', '', N_("Localization") ], + acceptLicense => [ N_("_: Keep these entry short\nLicense"), 1, -1, '', '', N_("License agreement") ], + selectMouse => [ N_("_: Keep these entry short\nMouse"), 1, 1, '1', '', N_("Mouse") ], + setupSCSI => [ N_("_: Keep these entry short\nHard drive detection"), 1, 0, '1', '', + N_("_: Keep these entry short\nHard drive detection") ], + selectInstallClass => [ N_("_: Keep these entry short\nInstallation class"), 1, 1, '1', '', + N_("_: Keep these entry short\nInstallation class") ], + selectKeyboard => [ N_("_: Keep these entry short\nKeyboard"), 1, 1, '1', '', N_("Localization") ], + miscellaneous => [ N_("_: Keep these entry short\nSecurity"), 1, 1, '1', '', N_("Security") ], + doPartitionDisks => [ N_("_: Keep these entry short\nPartitioning"), 1, 0, '', "selectInstallClass", + N_("Partitioning") ], + formatPartitions => [ N_("_: Keep these entry short\nFormatting"), 1, -1, '1', "doPartitionDisks", + N_("_: Keep these entry short\nFormatting") ], + choosePackages => [ N_("_: Keep these entry short\nChoosing packages"), 1, -2, '1', "formatPartitions", + N_("Package Group Selection") ], + installPackages => [ N_("_: Keep these entry short\nInstalling"), 1, -1, '', ["formatPartitions", "selectInstallClass"], + N_("Installing") ], + setRootPassword_addUser + => [ N_("_: Keep these entry short\nUsers"), 1, 1, '', "installPackages", + N_("User management") ], + configureNetwork => [ N_("_: Keep these entry short\nNetworking"), 1, 1, '1', "formatPartitions", + N_("_: Keep these entry short\nNetworking") ], + setupBootloader => [ N_("_: Keep these entry short\nBootloader"), 1, 0, '', "installPackages", + N_("_: Keep these entry short\nBootloader") ], + configureX => [ N_("_: Keep these entry short\nConfigure X"), 1, 1, '1', ["formatPartitions", "setupBootloader"], + N_("_: Keep these entry short\nConfigure X") ], + summary => [ N_("_: Keep these entry short\nSummary"), 1, 0, '', "installPackages", + N_("Summary") ], + configureServices => [ N_("_: Keep these entry short\nServices"), 1, 1, '1', "installPackages", + N_("_: Keep these entry short\nServices") ], + exitInstall => [ N_("_: Keep these entry short\nExit"), 0, 0, '', '', N_("Exit") ], +); + for (my $i = 0; $i < @installSteps; $i += 2) { + my %h; @h{@installStepsFields} = @{ $installSteps[$i + 1] }; + $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; |