#!/usr/bin/env perl

# Use mandatory external modules
use strict;
use warnings FATAL => 'all';
use MMM::Common::Config;
use MMM::Agent::Helpers::Actions;

# Check arguments
if (scalar(@ARGV) != 1) {
	print "Usage: $0 <config_file>\n\n";
	exit(1);
}

# Read config file
my $config_file = shift;
our $config = new MMM::Common::Config::;
$config->read($config_file);
$config->check('AGENT');

# Finally do the work
MMM::Agent::Helpers::Actions::mysql_deny_write();

__END__

=head1 NAME

mysql_deny_write

=head1 DESCRIPTION

mysql_deny_write is a helper binary for B<mmm_agentd>. It denies writes on the local MySQL server by setting global read_only to 1.

=head1 USAGE

mysql_deny_write
