#!/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) != 0) {
	print "Usage: $0\n\n";
	exit(1);
}

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

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

__END__

=head1 NAME

mysql_may_write

=head1 DESCRIPTION

mysql_may_write is a helper binary for B<mmmd_agent>. It checks if writes on the local MySQL server are allowed.

=head1 USAGE

mysql_may_write
