diff options
author | Mystery Man <unknown@mandriva.org> | 2002-08-09 10:26:12 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-08-09 10:26:12 +0000 |
commit | fdd0c69b55f6192d1825eb8ddd95bf2806e626f8 (patch) | |
tree | 01303c8c4445a5828d744737e6c87cb973fafba6 /perl-install/steps.pm | |
parent | 9c49e6bfb611d4a73815cfa1a6e6821cd48a9ae2 (diff) | |
download | drakx-backup-do-not-use-fdd0c69b55f6192d1825eb8ddd95bf2806e626f8.tar drakx-backup-do-not-use-fdd0c69b55f6192d1825eb8ddd95bf2806e626f8.tar.gz drakx-backup-do-not-use-fdd0c69b55f6192d1825eb8ddd95bf2806e626f8.tar.bz2 drakx-backup-do-not-use-fdd0c69b55f6192d1825eb8ddd95bf2806e626f8.tar.xz drakx-backup-do-not-use-fdd0c69b55f6192d1825eb8ddd95bf2806e626f8.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_9_9mdk'.V1_1_9_9mdk
Diffstat (limited to 'perl-install/steps.pm')
-rw-r--r-- | perl-install/steps.pm | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/perl-install/steps.pm b/perl-install/steps.pm deleted file mode 100644 index 162bc6d57..000000000 --- a/perl-install/steps.pm +++ /dev/null @@ -1,50 +0,0 @@ -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 => [ __("Choose your language"), 1, 1, '', '', 'language' ], - selectInstallClass => [ __("Select installation class"), 1, 1, '', '', '' ], - setupSCSI => [ __("Hard drive detection"), 1, 0, '', '', 'harddrive' ], - selectMouse => [ __("Configure mouse"), 1, 1, '', "selectInstallClass", 'mouse' ], - selectKeyboard => [ __("Choose your keyboard"), 1, 1, '', "selectInstallClass", 'keyboard' ], - miscellaneous => [ __("Security"), 1, 1, '!$::expert', '', 'security' ], - doPartitionDisks => [ __("Setup filesystems"), 1, 0, '', "selectInstallClass", 'partition' ], - formatPartitions => [ __("Format partitions"), 1, -1, '$o->{isUpgrade}', "doPartitionDisks", 'partition' ], - choosePackages => [ __("Choose packages to install"), 1, -2, '!$::expert', "formatPartitions", 'partition' ], - installPackages => [ __("Install system"), 1, -1, '', ["formatPartitions", "selectInstallClass"], '' ], - setRootPassword => [ __("Set root password"), 1, 1, '', "installPackages", 'rootpasswd' ], - addUser => [ __("Add a user"), 1, 1, '', "installPackages", 'user' ], - configureNetwork => [ __("Configure networking"), 1, 1, '', "formatPartitions", 'network' ], - summary => [ __("Summary"), 1, 0, '', "installPackages", 'summary' ], - configureServices => [ __("Configure services"), 1, 1, '!$::expert', "installPackages", 'services' ], - setupBootloader => [ __("Install bootloader"), 1, 0, '', "installPackages", 'bootloader' ], -if_((arch() !~ /alpha/) && (arch() !~ /ppc/), - createBootdisk => [ __("Create a bootdisk"), 1, 0, '', "installPackages", 'bootdisk' ], -), - configureX => [ __("Configure X"), 1, 1, '', ["formatPartitions", "setupBootloader"], 'X' ], - installUpdates => [ __("Install system updates"), 1, 1, '', ["installPackages", "configureNetwork", "summary"], '' ], - exitInstall => [ __("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; |