#!/usr/bin/perl

use strict;
use Getopt::Std;

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

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

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

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

convertContracts();



#
# --- Subroutines
#

sub convertContracts
{

	# my %regionRates = (6 => 100, 7 => 85, 10 => 75, 0 => 50);

	# get collection of contracts
	#
	my $trackColl = RPS::DB::Item::Track->GetAll();

	while($trackColl->hasNext())
	{
		my $trackObj = $trackColl->next();
		next if($trackObj->mechanical_exempt);

		my $shareByType = {};

		my $licenseColl = RPS::DB::Item::TrackLicense->GetLicensesByTrackID($trackObj->track_id);
		if($licenseColl->hasNext())
		{
			my $totalShare = 0;
			my $publicDomain = 0;
			while($licenseColl->hasNext())
			{
				my $licenseObj = $licenseColl->next();
				if(RPS::DB::Item::TrackLicense::kPublicDomain() == $licenseObj->type)
				{
					$publicDomain = 1;
					next;
				}

				if($licenseObj->product_type_id)
				{
					$shareByType->{$licenseObj->product_type_id}->{total} += $licenseObj->share;

					if($licenseObj->inactive)
					{
						$shareByType->{$licenseObj->product_type_id}->{inactive} += $licenseObj->share;
					}
					else
					{
						$shareByType->{$licenseObj->product_type_id}->{active} += $licenseObj->share;
					}
				}
			}

			if(!$publicDomain)
			{
				foreach my $type (keys %$shareByType)
				{
					my $href = $shareByType->{$type};

					if($href->{total} > 101)
					{
						reportTrack($trackObj, $type, $href->{total}, $href->{active}, $href->{inactive});
					}
				}
			}
		}
	}
}


sub reportTrack
{
	my ($track, $type, $total, $active, $inactive) = @_;

	my $album = RPS::DB::Item::Album->Lookup(album_id => $track->album_id);

	my $typeLabel = $type;
	if($type == 2)
	{
		$typeLabel = "CD";
	}
	elsif($type == 3)
	{
		$typeLabel = "D";
	}

	my $line = join("\t",
					$album->catalog_number,
					$album->title,
					$track->track_number,
					$track->title,
					$typeLabel,
					$active,
					$inactive,
					$total);

	reportLine($line);
}


sub reportLine
{
	my $line = shift;

	print $line ."\n";
}

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

    my $clientID = $opt{c};

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

    return $clientID;
}


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