diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-06-12 14:31:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-06-12 14:31:13 +0000 |
| commit | ec42415d58dd494bd2ece2893bc52ce126a41913 (patch) | |
| tree | 8c622d876127656cd208a1479e205374a46df46b | |
| parent | 014a65964c200155ec01d633c8653c3840cec9c2 (diff) | |
| download | drakx-ec42415d58dd494bd2ece2893bc52ce126a41913.tar drakx-ec42415d58dd494bd2ece2893bc52ce126a41913.tar.gz drakx-ec42415d58dd494bd2ece2893bc52ce126a41913.tar.bz2 drakx-ec42415d58dd494bd2ece2893bc52ce126a41913.tar.xz drakx-ec42415d58dd494bd2ece2893bc52ce126a41913.zip | |
really add the configureCluster step
| -rw-r--r-- | perl-install/install2.pm | 4 | ||||
| -rw-r--r-- | perl-install/install_steps.pm | 4 | ||||
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
3 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 90ac0894a..960f0af7f 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -242,6 +242,10 @@ sub configureNetwork { eval { network::read_all_conf($o->{prefix}, $o->{netc} ||= {}, $o->{intf} ||= {}) }; installStepsCall($o, $auto, 'configureNetwork', $ent_number == 1, $clicked); } +sub configureCluster { + my ($clicked, $ent_number, $auto) = @_; + installStepsCall($o, $auto, 'configureCluster'); +} #------------------------------------------------------------------------------ sub installCrypto { my ($clicked, $ent_number, $auto) = @_; diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index dd3ad5cda..ae82a5253 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -634,6 +634,10 @@ sub configureNetwork { } } +sub configureCluster { + my ($o) = @_; +} + #------------------------------------------------------------------------------ sub installCrypto { my ($o) = @_; diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 825ce342d..6ff83f6e8 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -842,6 +842,12 @@ sub configureNetwork { $first_time, $o->{lang} eq "fr_FR" && $o->{keyboard}{KEYBOARD} eq "fr", $noauto); } +sub configureCluster { + my ($o) = @_; + require drakcluster::server_conf_drakx; + drakcluster::server_conf_drakx::main($o); +} + #-configureNetworkIntf moved to network #-configureNetworkNet moved to network |