#!/usr/bin/perl

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

use lib '/var/app/orchard/collab/jgetter/perllib';
use Orchard::Session;
use Orchard::RunCommand;
use Orchard::YamlConfig;
use Orchard::DB::Connect;

my $buildDir  = '/var/app/orchard/database/royalty_accounting/build';
my $buildFile = $buildDir . '/changelog/db.changelog-master.yaml';
my $dbChange  = Orchard::YamlConfig::get_config_from_file($buildFile);

my $dbConnect = "MYSQL_PWD=root mysql -u root -h 0.0.0.0 -P 3307 -D royalty_accounting -e 'source ";

foreach my $file ( @{ $dbChange->databaseChangeLog } ) {
    my $path = $buildDir . '/' . $file->{'include'}->{'file'};
    if ( -e $path ) {
        my $cmd = $dbConnect . "$path'";
        my $out = Orchard::RunCommand::execute_log($cmd);
        if ( $out->[2] ) {
            logMessage( 'error', $out->[1] );
        }
    } else {
        logMessage( 'error', "$path does not exist" );
    }
}