1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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") ],
# selectPartitionTable => [ N_("_: Keep these entry short\nPartitionTable"), 1, 1, '1', '', N_("PartitionTable") ],
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, 0, '', "formatPartitions", N_("_Networking") ],
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;
|
