Quiesce a MySQL database (eg for hot rsync)

mysql_quiesce

perl -MMojo::Base=strict -MMojo::Util=spurt
-MMojar::Mysql::Connector=cnf,/home/me/.mysql/super_production-02.cnf
-E'my $d = Mojar::Mysql::Connector->new->connection;
$d->do(q{FLUSH LOGS});
my $unquiesce = $d->quiesce;
spurt $$ => q{/tmp/quiesced};
say q{Quiesced!};
while (-f q{/tmp/quiesced} and $d->ping) {
  say join q{ | }, $d->selectrow_array(q{SHOW MASTER STATUS});
  sleep 30
}
$unquiesce->()'

set_dirty_pct.sh

perl -MMojo::Base=strict \
-MMojar::Mysql::Connector=cnf,/home/me/.mysql/super_production-02.cnf \
-E'my $d = Mojar::Mysql::Connector->new->connection;
$d->global_var(innodb_max_dirty_pages_pct => 80);
say $d->global_var(q{innodb_max_dirty_pages_pct})'