#!/usr/bin/perl

use warnings;
use strict;

use lib '/usr/lib/susshi/exec';
use Susshi;

my $susshi = Susshi->new( -read_input => 1 );
my $db     = $susshi->get_database( 'database', -mandatory => 1 );
my ($size, $tables) = $db->get_tables();
info("$db->{databasename}.$db->{tablefilter}%: $size");

send_json_output ( { size => $size } );