1 files changed, 47 insertions, 0 deletions
diff --git a/cluster/data/steps.pm b/cluster/data/steps.pm
new file mode 100644
index 000000000..7b4f0942b
--- /dev/null
+++ b/cluster/data/steps.pm
@@ -0,0 +1,47 @@
+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" ],
+  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" ],
+  configureCluster   => [ N_("Configure cluster"), 1, 1, '', "configureNetwork", 'drakcluster' ],
+  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;