diff options
Diffstat (limited to 'perl-install/steps.pm')
| -rw-r--r-- | perl-install/steps.pm | 47 | 
1 files changed, 0 insertions, 47 deletions
| diff --git a/perl-install/steps.pm b/perl-install/steps.pm deleted file mode 100644 index 82eb8d8a6..000000000 --- a/perl-install/steps.pm +++ /dev/null @@ -1,47 +0,0 @@ -package steps; - -use strict; -use vars qw(%installSteps @orderedInstallSteps); -use common; - -#-###################################################################################### -#- Steps table -#-###################################################################################### -{ -    my @installStepsFields = qw(text redoable onError hidden needs);  -    #entered reachable toBeDone next done; -    my @installSteps = ( -  selectLanguage     => [ N_("Language"), 1, 1, '', '' ], -  acceptLicense      => [ N_("License"), 1, -1, '', '' ], -  selectMouse        => [ N_("Configure mouse"), 1, 1, '1', '' ], -  setupSCSI          => [ N_("Hard drive detection"), 1, 0, '1', '' ], -  selectInstallClass => [ N_("Select installation class"), 1, 1, '1', '' ], -  selectKeyboard     => [ N_("Choose your keyboard"), 1, 1, '1' ], -  miscellaneous      => [ N_("Security"), 1, 1, '', '' ], -  doPartitionDisks   => [ N_("Partitioning"), 1, 0, '', "selectInstallClass" ], -  formatPartitions   => [ N_("Format partitions"), 1, -1, '1', "doPartitionDisks" ], -  choosePackages     => [ N_("Choose packages to install"), 1, -2, '1', "formatPartitions" ], -  installPackages    => [ N_("Install system"), 1, -1, '', ["formatPartitions", "selectInstallClass"] ], -  setRootPassword    => [ N_("Root password"), 1, 1, '', "installPackages" ], -  addUser            => [ N_("Add a user"), 1, 1, '', "installPackages" ], -  configureNetwork   => [ N_("Configure networking"), 1, 1, '1', "formatPartitions" ], -  setupBootloader    => [ N_("Install bootloader"), 1, 0, '', "installPackages" ], -  configureX         => [ N_("Configure X"), 1, 1, '1', ["formatPartitions", "setupBootloader"] ], -  summary            => [ N_("Summary"), 1, 0, '', "installPackages" ], -  configureServices  => [ N_("Configure services"), 1, 1, '1', "installPackages" ], -  installUpdates     => [ N_("Install updates"), 1, 1, '',  ["installPackages", "configureNetwork", "summary"] ], -  exitInstall        => [ N_("Exit install"), 0, 0, '', '' ], -); -    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; | 
