/usr/bin/slonik_drop_set 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 | #!/usr/bin/perl
#
# Author: Christopher Browne
# Copyright 2004-2009 Afilias Canada
use Getopt::Long;
# Defaults
$CONFIG_FILE = '/etc/slony1/slon_tools.conf';
$SHOW_USAGE = 0;
# Read command-line options
GetOptions("config=s" => \$CONFIG_FILE,
"help" => \$SHOW_USAGE);
my $USAGE = <<EOF
"Usage: drop_set [--config file] set#
Drops a set.
Much as with DROP NODE, this leads to Slony-I dropping the Slony-I triggers on
the tables and restoring "native" triggers. One difference is that this takes
place on all nodes in the cluster, rather than on just one node. Another
difference is that this does not clear out the Slony-I cluster's namespace, as
there might be other sets being serviced.
This operation is quite a bit more dangerous than DROP NODE, as there isn't the
same sort of "failsafe." If you tell DROP SET to drop the wrong set, there
isn't anything to prevent potentially career-limiting "unfortunate results."
Handle with care...
EOF
;
if ($SHOW_USAGE) {
print $USAGE;
exit 0;
}
require '/usr/share/slony1/slon-tools.pm';
require $CONFIG_FILE;
my ($set) = @ARGV;
die $USAGE unless $set;
$set = get_set($set) or die "Non-existent set specified.\n";
my $slonik = '';
$slonik .= genheader();
$slonik .= " try {\n";
$slonik .= " drop set (id = $set, origin = $SET_ORIGIN);\n";
$slonik .= " } on error {\n";
$slonik .= " exit 1;\n";
$slonik .= " }\n";
$slonik .= " echo 'Dropped set $set';\n";
run_slonik_script($slonik, 'DROP SET');
|