#!/usr/bin/perl

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use JSON::XS;
use FileHandle;
use Text::CSV::Easy(qw/csv_build csv_parse/);

use lib '/app/tools/common/lib';
use Common::Session;

use lib '/app/tools/stats/lib';
use Stats::Redshift::UnloadDimension;

my $dbname = shift @ARGV || die "$0 requires clientdbname";
my $dbx    = Common::Session::getdbx('admindb');
my $db     = $dbx->resultset('Report::DDb')->search( { 'db_name' => $dbname } )->first;
die "$dbname not in admindb" if not defined $db;
$dbx->getdbh->disconnect;

my $type = lc( $db->client_type );
my $ld   = Stats::Redshift::UnloadDimension->new($type);
$ld->unload_client($db);