package RPS::Import::NineSquaredMnth;

use strict;


use Date::Calc qw(Days_in_Month);
use Spreadsheet::ParseExcel;

use lib '/app/tools/common/lib';
use Common::Util qw(normalize_date);
use Common::Consts;

use lib '/app/tools/data_classes/lib';

my %field_map = (
    3 => {
        startdate  => 9,
        enddate    => 15,
        vendorid   => 0,
        artist     => 12,
        title      => 18,
        units      => 22,
        totalprice => 25,
    },
    7 => {
        startdate  => 9,
        enddate    => 16,
        vendorid   => 0,
        artist     => 23,
        title      => 24,
        units      => 26,
        totalprice => 29,
    },
    8 => {
        startdate  => 11,
        enddate    => 18,
        vendorid   => 2,
        artist     => 25,
        title      => 26,
        units      => 28,
        totalprice => 31,
    },
    9 => {
        startdate  => 10,
        enddate    => 17,
        vendorid   => 1,
        artist     => 25,
        title      => 26,
        units      => 28,
        totalprice => 31,
    },
);

use lib '/app/tools/rps/lib';
use RPS::File::Sale;
use RPS::Import::Importer;
use base 'RPS::Import::Importer';

#public methods

sub _importLines
{
	my $self = shift;
	my %args = @_;

	my $lines = $args{lines};
    my $version = $args{file}->VersionNum();
    #my $version = $args{version}; # for cmd-line testing

    my $offsets = $field_map{$version};

	my $dateBegin;
	my $dateEnd;
	my $header_matched = 0;

	my $linenum = 1;
	foreach my $line (@$lines)
	{
		$header_matched = matchHeader($line, $offsets) if(!$header_matched);

		if ($linenum == 2)
		{
			# these values are in a custom format, so we have to convert them.
			# use normalize to verify
			# Dates are usually 7-1-05  to 8-1-05,
			# but we want the end date to be 7-31-05, so decrement it.
			my $start_date_raw = Spreadsheet::ParseExcel::Utility::ExcelFmt("yyyy-mm-dd", $line->[$offsets->{'startdate'}]);
			my $end_date_raw   = Spreadsheet::ParseExcel::Utility::ExcelFmt("yyyy-mm-dd", $line->[$offsets->{'enddate'}]-1);

			if($start_date_raw =~ /^\d\d\d\d-\d\d-\d\d$/ && $end_date_raw =~ /^\d\d\d\d-\d\d-\d\d$/)
			{
				$dateBegin = $start_date_raw;
				$dateEnd = $end_date_raw;
			}
		}
		elsif ($dateBegin && $dateEnd && $header_matched)
		{
			my $vendorID	= $line->[$offsets->{'vendorid'}];
			my $artist		= $line->[$offsets->{'artist'}];
			my $title		= $line->[$offsets->{'title'}];
			my $track		= $title;
			my $units		= $line->[$offsets->{'units'}];
			my $total_price	= $line->[$offsets->{'totalprice'}];
			my $price = $total_price / $units if($units > 0);

			if ($units && $price && $artist && $title)
			{
				my $sale = RPS::Import::SaleRec->new();

				$sale->productType(RPS::File::Sale::TYPE_TRACK);
				$sale->formatType(RPS::File::Sale::FORMAT_RINGTONE);
				$sale->dateBegin($dateBegin);
				$sale->dateEnd($dateEnd);
				$sale->serviceProductID($vendorID);
				# $sale->clientProductID($clientID);
				# $sale->upc($upc);
				# $sale->isrc($isrc);
				$sale->artistName($artist);
				# $sale->albumName($album);
				$sale->trackName($track);
				# $sale->labelName($label);
				$sale->units($units);
				$sale->price($price);
				$sale->lineNum($linenum);
				$sale->countryCode('US');

                #$args{dumper}($sale); # for cmd-line testing
				$self->_insertSale(sale => $sale);
			}#else { print STDERR "skip ($linenum) u: $units p: $price a: $artist t: $title\n"; }
		}
		$linenum++;
	}

	return $linenum;
}

#
# Private methods
#

sub matchHeader
{
	my $line = shift;
    my $offsets = shift;

	# verify the column headings are as we expect them
	my $artist	= $line->[$offsets->{'artist'}];
	my $track	= $line->[$offsets->{'title'}];
	my $units	= $line->[$offsets->{'units'}];
	my $price	= $line->[$offsets->{'totalprice'}];

	if($artist =~ /author/i &&
	   $track  =~ /product/i &&
	   $units  =~ /units/i && # not a typo
	   $price  =~ /payment|royalty/i)
	{
		return 1;
	}
	else
	{
		return 0;
	}
}


###
1;# Play nicely.
###