/usr/bin/slonik_init_cluster is in slony1-2-bin 2.2.5-2+b1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | #!/usr/bin/perl
#
# Author: Christopher Browne
# Copyright 2004-2009 Afilias Canada
use Getopt::Long;
# Defaults
my $CONFIG_FILE = '/etc/slony1/slon_tools.conf';
my $SHOW_USAGE = 0;
# Read command-line options
GetOptions("config=s" => \$CONFIG_FILE,
"help" => \$SHOW_USAGE);
my $USAGE =
"Usage: init_cluster [--config file]
Generates the slonik commands necessary to create a cluster and
prepare the nodes for use. Also displays a report showing the
relationships between the various nodes.
";
if ($SHOW_USAGE) {
print $USAGE;
exit 0;
}
require '/usr/share/slony1/slon-tools.pm';
require $CONFIG_FILE;
# INIT CLUSTER
$slonik .= "\n# INIT CLUSTER\n";
$slonik .= genheader();
my ($dbname, $dbhost) = ($DBNAME[$MASTERNODE], $HOST[$MASTERNODE]);
$slonik .= " init cluster (id = $MASTERNODE, comment = 'Node $MASTERNODE - $dbname\@$dbhost');\n";
# STORE NODE
$slonik .= "\n# STORE NODE\n";
foreach my $node (@NODES) {
if ($node != $MASTERNODE) { # skip the master node; it's already initialized!
my ($dbname, $dbhost) = ($DBNAME[$node], $HOST[$node]);
$slonik .= " store node (id = $node, event node = $MASTERNODE, comment = 'Node $node - $dbname\@$dbhost');\n";
}
}
$slonik .= " echo 'Set up replication nodes';\n";
# STORE PATH
$slonik .= "\n# STORE PATH\n";
$slonik .= " echo 'Next: configure paths for each node/origin';\n";
foreach my $nodea (@NODES) {
my $dsna = $DSN[$nodea];
foreach my $nodeb (@NODES) {
if ($nodea != $nodeb) {
my $dsnb = $DSN[$nodeb];
if (!$printed[$nodea][$nodeb]) {
$slonik .= " store path (server = $nodea, client = $nodeb, conninfo = '$dsna');\n";
$printed[$nodea][$nodeb] = "done";
}
if (!$printed[$nodeb][$nodea] and $providerba == $nodea) {
$slonik .= " store path (server = $nodeb, client = $nodea, conninfo = '$dsnb');\n";
$printed[$nodeb][$nodea] = "done";
}
}
}
}
$slonik .= " echo 'Replication nodes prepared';\n";
$slonik .= " echo 'Please start a slon replication daemon for each node';\n";
run_slonik_script($slonik, 'INIT CLUSTER');
|