#!/usr/bin/perl
use strict;

use Data::Dumper;
use Getopt::Std;
use POSIX qw(ceil);
use POSIX ":sys_wait_h";
use Sys::Hostname;
use Carp;

use lib '/app/tools/common/lib';
use Common::DB::Item;
use Common::Assert;
use Common::TextProgressBar;
use Common::Timer;
use Common::DB::Item::Service;

#use lib '/app/tools/data_classes/lib';
#use File::Sale;
use lib '/app/tools/raptor/lib';

#use Raptor::Sale::Sale;
use Raptor::DB::Item::Sale;
use Raptor::DB::Item::File;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::TrackLicense;
use RPS::DB::Item::Track;
use RPS::DB::Item::Master;

#use RPS::DB::Item::License;
use RPS::DB::Item::LicenseReserve;
use RPS::DB::Item::StatRate;
use RPS::DB::Item::ProductTrack;
use RPS::DB::Item::Song;

use RPS::DB::Item::Publisher;

#use RPS::DB::Item::ControlledComposition;

use RPS::DB::Item::MechanicalRun;
use RPS::DB::Item::MechanicalStatement;
use RPS::DB::Item::MechanicalStatementItem;
use RPS::DB::Item::MechanicalStatementPublisher;
use RPS::DB::Item::MechanicalStatementTrack;
use RPS::DB::Item::MechanicalStatementLicense;
use RPS::DB::Item::MechanicalStatementAdjustmentItem;
use RPS::DB::Item::SaleMechanicalStatementItemMap;

use RPS::License::TrackLicense;
use RPS::License::TrackLicenseList;

use RPS::Statement::Mechanical::StatementDisplay;
use RPS::XMLCache;

$SIG{__WARN__} = sub { };

my $gVerbosityLevel = 1;

my %options;
_parseCommandLine( \%options );
_populateCache( $options{clientID}, $options{runID} );

sub _populateCache {
    my ( $clientID, $id ) = @_;

    #    Common::Timer::Start();
    my $timer = Common::Timer->new();

    my $appSingleton = Common::RSApp->new( clientID => $clientID );

    print "populating XML Cache : " . localtime() . "\n";

    # Get the statements associated with this run.
    #
    my $statementList = RPS::DB::Item::MechanicalStatement->GetByMechanicalRunID($id);
    while ( $statementList->hasNext() ) {
        my $statement   = $statementList->next();
        my $statementID = $statement->mechanical_statement_id;

        my $publisher = RPS::DB::Item::Publisher->Lookup( publisher_id => $statement->publisher_id );
        my $pubNameLC = lc( $publisher->publisher_name );
        next unless $pubNameLC =~ /harry fox/;

        #        next unless ('harry fox agency' eq lc($publisher->publisher_name));
        #next unless (1 == $publisher->publisher_id);

        print "   populating cache for statement $statementID\n";

        my $statementXML = RPS::Statement::Mechanical::StatementDisplay->new( mechanicalStatementID => $statementID );
        RPS::XMLCache::Store( $statementXML, 'RPS', 'Statement', 'Command', 'ShowMechanical', $statementID );

        # Cache the hfa statement if this publisher is an agent.
        #
        if ( $publisher->is_agency || $publisher->is_admin ) {
            print "   publisher is admin/agent, populating additional files\n";

# Get a list of all the publisher ids that appear on this statement.
#
#            my $publisherItems = RPS::DB::Item::MechanicalStatementPublisher->GetByMechanicalStatementID($statementID);
#            while (my $pubItem = $publisherItems->next())
#            {
#                my $focusID = $pubItem->publisher_id;
#                $statementXML = RPS::Statement::Mechanical::StatementDisplay->new(mechanicalStatementID => $statementID,
#                 focusPublisherID => $focusID);
#                RPS::XMLCache::Store($statementXML, 'RPS','Statement','Command','ShowMechanical_focusPublisherID_' . $focusID, $statementID);
#            }
#
#
            $statementXML = RPS::Statement::Mechanical::StatementDisplay->new( mechanicalStatementID => $statementID, hfa => 1 );
            RPS::XMLCache::Store( $statementXML, 'RPS', 'Statement', 'Command', 'ShowMechanical_hfa', $statementID );
        }
    }
    print "finished : " . localtime() . "\n";

    #    Common::Timer::Stop();
    #    Common::Timer::Report(*STDOUT);
}

sub _parseCommandLine {
    my ($settings) = @_;

    my %opt;
    getopts( 'r:c:V:', \%opt );

    if ( !$opt{c} ) {
        _usage();
        exit(1);
    }

    if ( !$opt{r} ) {

        # Want to display a list of possible runs, then the usage message.
        #
        _listAvailableRunIDs( $opt{c} );
        _usage();
        exit(1);
    }

    $settings->{runID}    = $opt{r};
    $settings->{clientID} = $opt{c};
    if ( $opt{V} ) {
        $gVerbosityLevel = $opt{V};
    }
}

sub _usage {
    print "\nusage: $0 -c client_id -r run_id\n";
    print "\n";
    print "Arguments:\n";
    print "\t-c <client_id>\t\tThe client_id of the client to process\n";
    print "\t-r <run_id>\t\tThe mechanical_run_id of the run to cache\n";
}

sub _listAvailableRunIDs {
    my ($clientID) = @_;

    my $appSingleton = Common::RSApp->new( clientID => $clientID );

    print "\nValid run ids:\nrun id\tstart date\tend date\tstatus\n\n";

    my $runList = RPS::DB::Item::MechanicalRun->GetAll();
    while ( my $run = $runList->next() ) {
        print $run->mechanical_run_id . "\t" . $run->start_date . "\t" . $run->end_date . "\t" . $run->status . "\n";
    }
}