#!/usr/bin/perl

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

use Time::HiRes qw( time );

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

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

my $begin_time = time();
foreach my $type (qw/dtmv rps/) {
    logMessage( 'info', "Refreshing royshare.$type.agg* tables" );
    my $ld = Stats::Redshift::LoadDimension->new($type);
    $ld->refresh_aggregates;
}
my $end_time = time();
my $elapsed  = sprintf( "%.2f", $end_time - $begin_time );
logMessage( 'info', "Complete - $elapsed secs elapsed" );