cluster/patch-oem.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

use fsedit;
package fsedit;

use lang;
package lang;

undef *list_langs;
*list_langs = sub { 'en_GB', 'en_US', 'fr', 'ja' };

use install2;
package install2;

sub install2::configureCluster {
  my ($clicked, $ent_number, $auto) = @_;
  my ($o) = $::o;
  installStepsCall($o, $auto, 'configureCluster');
}

use install_steps_interactive;
package install_steps_interactive;

sub install_steps_interactive::configureCluster {
  my ($o) = $::o;
  my $_w = $o->wait_message('', N("Configuring the clustering options"));
  $o->SUPER::configureCluster;
}

use install_steps;
package install_steps;

sub install_steps::configureCluster {
  my ($o) = $::o;
  if (-e "$::prefix/etc/clusterserver.conf") {
    require drakcluster::server_conf_drakx;
    log::l("launch drakcluster config");
    drakcluster::server_conf_drakx::main_cluster($o);
  }
}