summaryrefslogtreecommitdiffstats
path: root/perl-install/steps.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2001-08-13 19:06:50 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2001-08-13 19:06:50 +0000
commit17b65ec06df7108085989f2e0398e1b834cd0358 (patch)
tree6c4a056dfeac594066fd7d41c621d390fedd3d17 /perl-install/steps.pm
parent0fc25337f6b7397a892d6724cb6dc3886d6f01f8 (diff)
downloaddrakx-17b65ec06df7108085989f2e0398e1b834cd0358.tar
drakx-17b65ec06df7108085989f2e0398e1b834cd0358.tar.gz
drakx-17b65ec06df7108085989f2e0398e1b834cd0358.tar.bz2
drakx-17b65ec06df7108085989f2e0398e1b834cd0358.tar.xz
drakx-17b65ec06df7108085989f2e0398e1b834cd0358.zip
initial revision for drakautoinst
- put %installSteps in a separate package (steps.pm) (for drakxtools) - use additional fields {auto} and {noauto}, by step, to ease interactive auto install and oem stuff - in install2.pm, perform each step either from the interactive class or from install_steps, according to the {auto} flag - id, tell each step to not try to be automatic if {noauto} - in the install, have auto install bootdisk created in install_any so we can always write a bootdisk (from install_steps) for further use from drakautoinst in standalone - interactive version of install_steps_auto_install is now inheriting from the interactive class, so we can click on a previous automatic step and have it interactively during an interactive auto install
Diffstat (limited to 'perl-install/steps.pm')
-rw-r--r--perl-install/steps.pm51
1 files changed, 51 insertions, 0 deletions
diff --git a/perl-install/steps.pm b/perl-install/steps.pm
new file mode 100644
index 000000000..e5e522c1e
--- /dev/null
+++ b/perl-install/steps.pm
@@ -0,0 +1,51 @@
+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, '', '', 'default' ],
+ selectInstallClass => [ __("Select installation class"), 1, 1, '', '', 'default' ],
+ 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", 'default' ],
+ formatPartitions => [ __("Format partitions"), 1, -1, '$o->{isUpgrade}', "doPartitionDisks", 'default' ],
+ choosePackages => [ __("Choose packages to install"), 1, -2, '!$::expert', "formatPartitions", 'default' ],
+ 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' ],
+#- installCrypto => [ __("Cryptographic"), 1, 1, '!$::expert', "configureNetwork" ],
+ summary => [ __("Summary"), 1, 0, '', "installPackages", 'default' ],
+ configureServices => [ __("Configure services"), 1, 1, '!$::expert', "installPackages", 'services' ],
+if_((arch() !~ /alpha/) && (arch() !~ /ppc/),
+ createBootdisk => [ __("Create a bootdisk"), 1, 0, '', "installPackages", 'bootdisk' ],
+),
+ setupBootloader => [ __("Install bootloader"), 1, 1, '', "installPackages", 'bootloader' ],
+ configureX => [ __("Configure X"), 1, 1, '', ["formatPartitions", "setupBootloader"], 'X' ],
+ exitInstall => [ __("Exit install"), 0, 0, '!$::expert && !$::live', '', 'default' ],
+);
+ 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];
+}
+
+
+#- Wonderful perl :(
+1;