#!/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::SaleStage;

my $begin_time = time();
## load sale stage and all agg dimensions
foreach my $type (qw/dtmv rps/) {
    logMessage( 'info', "Refreshing royshare.$type.sale_stage table" );
    my $ss = Stats::Redshift::SaleStage->new($type);
    $ss->refresh_sale_stage;
}
my $end_time = time();
my $elapsed  = sprintf( "%.2f", $end_time - $begin_time );
logMessage( 'info', "Complete - $elapsed secs elapsed" );