#!/usr/bin/perl -w
use strict;
use lib '/usr/lib/mysqlstat';

use mysqlstat;

my ($config,$rdata);

$config = getConfig();

printConfig($config) if ($config->{verbose}>2);

exit if ($config->{test});

$rdata = getRetentionData($config);

foreach (keys %{ $config->{servers} }){
	my $server = $config->{servers}->{$_};

	next if(exists($server->{disabled}) && $server->{disabled});

	processServer($config,$rdata,$server);
}

saveRetentionData($config,$rdata);

###############################################################################
###############################################################################
sub printUsage {
	print "Usage: $0 [params]\n";
	exit;
}

###############################################################################
###############################################################################
sub printVersion {
	print 'Version: $Id: $'."\n";
	exit;
}
