#!/usr/bin/perl
# Script to initialize the RSCOMMON.orchard_period table
#
use strict;
use Data::Dumper;
use Date::Calc qw(Days_in_Month);

use strict;
use warnings;

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

my @months = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' );

my $appSingleton = Common::RSApp->new( clientID => 0 );
my $cdbo         = Common::RSApp::GetCommonDB();
my $dbh          = $cdbo->DBH;

my $sql = "TRUNCATE orchard_period";
my $sth = $cdbo->DoCmd($sql);

my $period = 1;    # 1/1/1999

my $_period = $period;

for my $year ( 1999 .. 2019 ) {
    for my $month ( 1 .. 12 ) {
        my $startDate;
        my $endDate;
        my $periodID;
        my $periodName;

        if ( $month =~ /^(1|4|7|10)$/ ) {
            $startDate = sprintf( "%04d-%02d-01", $year, $month );
            $endDate = sprintf( "%04d-%02d-%02d", $year, $month + 2, Days_in_Month( $year, $month + 2 ) );

            $periodID = join( ",", ($_period), ( $_period + 1 ), ( $_period + 2 ) );

            $periodName =
                ( $month == 1 ) ? "Q1$year"
              : ( $month == 4 ) ? "Q2$year"
              : ( $month == 7 ) ? "Q3$year"
              :                   "Q4$year";

            print "[$_period] m = $month  ### Period $periodID  -> " . $periodName . "  [$startDate - $endDate]\n";

            my $sql =
                "INSERT INTO orchard_period(period,name,start_date,end_date) VALUES("
              . join( ",", $cdbo->DBQuote($periodID), $cdbo->DBQuote($periodName), $cdbo->DBQuote($startDate), $cdbo->DBQuote($endDate) )
              . ")";
            my $sth = $cdbo->DoCmd($sql);
        }

        $periodID = $_period;

        $periodName = $months[ $month - 1 ] . $year;
        $startDate  = sprintf( "%04d-%02d-01", $year, $month );
        $endDate    = sprintf( "%04d-%02d-%02d", $year, $month, Days_in_Month( $year, $month ) );

        print "[$_period]  ### Period $periodID  -> " . $periodName . "  [$startDate - $endDate]\n";

        my $sql = "INSERT INTO orchard_period(period,name,start_date,end_date) VALUES("
          . join( ",", $cdbo->DBQuote($periodID), $cdbo->DBQuote($periodName), $cdbo->DBQuote($startDate), $cdbo->DBQuote($endDate) ) . ")";
        my $sth = $cdbo->DoCmd($sql);

        $_period++;
    }

    print "\n";

}

1;