#!/usr/bin/perl
#-----------------------------------------------------------------------------
#
#  Tirex Tile Rendering System
#
#  munin/tirex-status-requests-rendered
#
#-----------------------------------------------------------------------------

use strict;
use warnings;

use Tirex::Munin::Status::RequestsRendered;

#-----------------------------------------------------------------------------

my $config_file = exists($ENV{'TIREX_CONFIGFILE'}) ? $ENV{'TIREX_CONFIGFILE'} : $Tirex::TIREX_CONFIGFILE;
Tirex::Config::init($config_file);

#-----------------------------------------------------------------------------

(my $execname = $0) =~ s{^.*/}{};

my $map = '*';
if ($execname =~ /^tirex-status-requests-rendered-(.*)$/)
{
    $map = $1;
}

my @z   = ('0-9', '10-12', '13-15', '16-17');

Tirex::Munin::Status::RequestsRendered->new( map => $map, z => \@z, per => 'minute' )->do();


#-- THE END ------------------------------------------------------------------
