Giuseppe Maxia datacharmer

View measuring replication speed
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use DBI;
use Time::HiRes qw/ usleep gettimeofday tv_interval/;
use English qw( -no_match_vars );
 
my $username1 = 'user1';
my $password1 = 'user2';
View poor man's replicator monitor
1 2 3 4 5 6 7 8 9
#!/bin/bash
 
USERNAME=msandbox
PASSWORD=msandbox
EXPECTED_MASTER_HOST=127.0.0.1
EXPECTED_MASTER_PORT=27371
 
SLAVE_HOST=127.0.0.1
SLAVE_PORT=27372
View purge process list from slow queries or idle connections
1 2 3 4 5 6 7 8 9 10
-- SQL
 
drop procedure if exists purge_slow_queries;
drop procedure if exists purge_idle_connections;
drop event if exists auto_purge_slow_queries;
drop event if exists auto_purge_idle_connections;
 
delimiter //
 
create procedure purge_idle_connections()
View partition_helper
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl
# The MySQL Partitions helper
# Copyright (C) 2008-2013 Giuseppe Maxia
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
View schema_comparison
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
 
my @dsn;
$dsn[0] = shift or help('no dns1');
$dsn[1] = shift or help('no dns1');
 
my @dbh;
Something went wrong with that request. Please try again.