diff options
| -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 |