#!/usr/bin/perl

use strict;
use Getopt::Std;

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

use lib '/app/tools/rps/lib';
use RPS::Report::Command::MissingLicenseAccrual;
use RPS::DB::Item::MechanicalRun;
use RPS::DB::Item::MechanicalRunUnlicensedTrackLog;

# Parse the command-line.
#
my ( $clientID, $runID ) = parseCommandLine();

# Instantiate the application singleton object.
#
my $appSingleton = Common::RSApp->new( clientID => $clientID );

#my $commandObj = RPS::Report::Command::MissingLicenseAccrual->new(run_id => 73, download => 1);

# So, we're not going to use the Report object.  It's simply too massive to dea with unpaginated.
# Instead, we're simply going to iterate through the data and output the results line-by-line.
#
my $run = RPS::DB::Item::MechanicalRun->Lookup( mechanical_run_id => $runID );
my $reportingPeriod = Common::Client::Current()->Locale()->formatDate( $run->start_date ) . ' - '
  . Common::Client::Current()->Locale()->formatDate( $run->end_date );

# Print out the report header
#
print "Reporting Period\tLabel\tAlbum Title\tCatalog #\tUPC\tArtist\tTrack Title\tISRC\tShare\tConfig\tCumulative Accrual\n";

my $logLines = RPS::DB::Item::MechanicalRunUnlicensedTrackLog->GetByRunID($runID);
while ( my $logLine = $logLines->next() ) {
    my @line;
    push @line, $reportingPeriod;
    push @line, $logLine->label_name;
    push @line, $logLine->album_title;
    push @line, $logLine->catalog_number;
    push @line, $logLine->upc_ean;
    push @line, $logLine->track_artist_name;
    push @line, $logLine->track_title;
    push @line, $logLine->isrc;
    push @line, Common::Client::Current()->Locale()->formatNumber( $logLine->unlicensed_share, .2 ) . '%';
    push @line, $logLine->product_type;
    push @line, Common::Client::Current()->Locale()->formatNumber( $logLine->accrual, .2 );

    print join( "\t", @line ) . "\n";
}

sub parseCommandLine {
    my %opt;
    getopts( 'c:r:', \%opt );

    my $clientID = $opt{c};
    my $runID    = $opt{r};

    unless ( $clientID =~ /^\d+$/ && $clientID > 0 ) {
        die usage("You must specify a valid client ID");
    }

    unless ( $runID =~ /^\d+$/ && $runID > 0 ) {
        die usage("You must specify a valid runID");
    }

    return ( $clientID, $runID );
}

sub usage {
    my $errstr = shift;
    my $text = ($errstr) ? "ERROR: $errstr\n" : '';
    $text .= "Usage: $0 -c <clientID> -r <runID>\n";
    return $text;
}