percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-21 01:54:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merged fix-1062563-1063912-ptc-pxc-bugs and resolved conflicts, added the missing Percona::XtraDB::Cluster file

Browse Source
This commit is contained in:
Brian Fraser
2012-11-08 17:38:04 -03:00
parent fb345eb3fd aa79c9df57
commit 42a9cf4b6e
10 changed files with 833 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
lib/Sandbox.pm
View File

@@ -39,6 +39,8 @@ $Data::Dumper::Quotekeys = 0;
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
use constant PTDEVDEBUG => $ENV{PTDEVDEBUG} || 0;
use IO::Socket::INET;
my $trunk = $ENV{PERCONA_TOOLKIT_BRANCH};
my %port_for = (
@@ -74,7 +76,7 @@ sub use {
return if !defined $cmd || !$cmd;
my $use = $self->_use_for($server) . " $cmd";
PTDEBUG && _d('"Executing', $use, 'on', $server);
my $out = `$use 2>&1`;
my $out = `$use`;
if ( $? >> 8 ) {
die "Failed to execute $cmd on $server: $out";
}
@@ -130,7 +132,7 @@ sub get_dbh_for {
}
sub load_file {
my ( $self, $server, $file, $use_db ) = @_;
my ( $self, $server, $file, $use_db, %args ) = @_;
_check_server($server);
$file = "$trunk/$file";
if ( !-f $file ) {
@@ -141,11 +143,11 @@ sub load_file {
my $use = $self->_use_for($server) . " $d < $file";
PTDEBUG && _d('Loading', $file, 'on', $server, ':', $use);
my $out = `$use 2>&1`;
my $out = `$use`;
if ( $? >> 8 ) {
die "Failed to execute $file on $server: $out";
}
$self->wait_for_slaves();
$self->wait_for_slaves() unless $args{no_wait};
}
sub _use_for {
@@ -420,6 +422,85 @@ sub can_load_data {
return ($output || '') =~ /1/;
}
sub set_as_slave {
my ($self, $server, $master_server, @extras) = @_;
PTDEBUG && _d("Setting $server as slave of $master_server");
my $master_port = $port_for{$master_server};
my $sql = join ", ", qq{change master to master_host='127.0.0.1'},
qq{master_user='msandbox'},
qq{master_password='msandbox'},
qq{master_port=$master_port},
@extras;
for my $sql_to_run ($sql, "start slave") {
my $out = $self->use($server, qq{-e "$sql_to_run"});
PTDEBUG && _d($out);
}
}
sub start_sandbox {
my ($self, $mode, $server, $master_server) = @_;
my $port = $port_for{$server};
my $master_port = $master_server ? $port_for{$master_server} : '';
my $out = `$trunk/sandbox/start-sandbox $mode $port $master_port`;
die $out if $CHILD_ERROR;
return $out;
}
sub stop_sandbox {
my ($self, @sandboxes) = @_;
my @ports = @port_for{@sandboxes};
my $out = `$trunk/sandbox/stop-sandbox @ports`;
die $out if $CHILD_ERROR;
return $out;
}
sub start_cluster {
my ($self, %args) = @_;
my $cluster_size = $args{cluster_size} || 3;
my $out = '';
my ($node1, @nodes) = map {
my $node_name = "node$_";
$node_name = "_$node_name" while exists $port_for{$node_name};
$port_for{$node_name} = $self->_get_unused_port();
$node_name
} 1..$cluster_size;
local $ENV{CLUSTER_NAME} = $args{cluster_name} if $args{cluster_name};
$self->start_sandbox("cluster", $node1);
for my $node ( @nodes ) {
$self->start_sandbox("cluster", $node, $node1);
}
return ($node1, @nodes);
}
# Lifted from Nginx::Test on CPAN
sub _get_unused_port {
my $port = 50000 + int (rand() * 5000);
while ($port++ < 64000) {
my $sock = IO::Socket::INET->new (
Listen => 5,
LocalAddr => '127.0.0.1',
LocalPort => $port,
Proto => 'tcp',
ReuseAddr => 1
) or next;
$sock->close;
return $port;
}
die "Cannot find an open port";
}
sub port_for {
my ($self, $server) = @_;
return $port_for{$server};
}
1;
}
# ###########################################################################