package RPS::Import::LiquidAudio;

use strict;


use Date::Calc qw(Days_in_Month Decode_Month);

use lib '/app/tools/common/lib';
use Common::Util;
use Common::Consts;

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

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

# field mappings
my %fieldMap =
(
    1 =>
    {
        DATE_ROW    => 7,
        DATE        => 0,
        SUMMARY     => 9,
		LABEL       => 0,
		ARTIST      => 1,
		TITLE       => 2,
		UPC         => 3,
		ISRC        => 4,
		CLIENTID    => 5,
		VENDORID    => 6,
		UNITS       => 7,
		PRICE       => 8,
		NUMTRACKS   => 10,
    },
    2 =>
    {
        DATE_ROW    => 3,
        DATE        => 0,
        SUMMARY     => 8,
		LABEL       => 0,
		ARTIST      => 1,
		TITLE       => 2,
		UPC         => 3,
		ISRC        => 4,
		CLIENTID    => 5,
		VENDORID    => 5,
		UNITS       => 6,
		PRICE       => 7,
		NUMTRACKS   => 9,
    },
    4 =>
    {
        DATE_ROW    => 3,
        DATE        => 0,
        SUMMARY     => 8,
        LABEL       => 0,
        ARTIST      => 1,
        ALBUM       => 2,
        TITLE       => 3,
        UPC         => 4,
        ISRC        => 5,
        CLIENTID    => 6,
        VENDORID    => 7,
        UNITS       => 8,
        PRICE       => 10,
    },
);


#public methods

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

	my $lines = $args{lines} || return undef;
	my $fileObj = $args{file};
	my $version = $fileObj->VersionNum;
    my $sheets = $args{sheets};
    return 0 unless ($version && exists $fieldMap{$version});

    my $linenum = 1;
    my $sheetnum = 0;

    foreach my $sheet (@$sheets) {
    
        $sheetnum++;
    
        my $offsets = $fieldMap{$version};
        my ($rate, $dateBegin, $dateEnd) = $self->_get_rate_n_dates($version, $sheet, $offsets, $sheetnum);
        
        if($rate eq "BLANK SHEET"){
             next;
        }
        
        unless ($rate && $dateBegin && $dateEnd)
        {
            $self->errstr("couldn't get dates and/or rate");
            return undef;
        }
        print STDERR "using rate $rate\n";
    
        $linenum = 1;

        foreach my $line(@$sheet)
        {
            my $prodtype;
            
            if($version == 4){            
            
                if(!$line->[$offsets->{ALBUM}]){
                    $prodtype = RPS::File::Sale::TYPE_ALBUM;
                }
                else{
                    $prodtype = RPS::File::Sale::TYPE_TRACK;
                }
            }
            else{
            
               # if(!defined $offsets->{NUMTRACKS} && $line->[$offsets->{ISRC}] ne "") {
                #    $prodtype = RPS::File::Sale::TYPE_TRACK;
                #}
                #elsif(!defined $offsets->{NUMTRACKS}) {
                 #   $prodtype = RPS::File::Sale::TYPE_ALBUM;
                #}
                if ($line->[$offsets->{TITLE}] =~ /\[full album download\]\s*$/i || 
                $line->[$offsets->{NUMTRACKS}] > 1)
                {
                    $prodtype = RPS::File::Sale::TYPE_ALBUM;
                }
                elsif ($line->[$offsets->{NUMTRACKS}] == 1)
                {
                    $prodtype = RPS::File::Sale::TYPE_TRACK;
                }
            }
    
            my $format		= RPS::File::Sale::FORMAT_DOWNLOAD;
            my $vendorID	= $line->[$offsets->{VENDORID}];
            my $clientID	= $line->[$offsets->{CLIENTID}];
            my $upc         = Common::Util::normalize_upc($line->[$offsets->{UPC}]);
            my $isrc        = Common::Util::normalize_isrc($line->[$offsets->{ISRC}]);
            my $artist		= $line->[$offsets->{ARTIST}];
            my $title		= $line->[$offsets->{TITLE}];
            my $album       = $line->[$offsets->{ALBUM}] if(defined $offsets->{NUMTRACKS});
    
            my $album;
            my $track;
    
            if ($prodtype eq RPS::File::Sale::TYPE_ALBUM)
            {
                ($album = $title) =~ s/\s*\[full album download\]\s*$//i;
            }
            elsif ($prodtype eq RPS::File::Sale::TYPE_TRACK)
            {
                $album = $line->[$offsets->{ALBUM}] if(defined $offsets->{ALBUM});
                $album  =~ s/\s*\[full album download\]\s*$//i;
                $track = $title;
            }
    
            my $label		= $line->[$offsets->{LABEL}];
            my ($units)		= $line->[$offsets->{UNITS}] =~ m/^(-?\d+)$/;

            # If the cell is formatted as currency, ParseExcel may prepend "[$$49]"
            # to the actual price.  This needs to be removed..
            #
            my $_price = $line->[$offsets->{PRICE}];
            if ( $_price =~ /\[\$\$49\]/ ) {
                $_price =~ s/\[\$\$49\]//;
            }
            my ($price)		= $_price =~ m/^[\$]?(-?\d*\.?\d*)$/;

            $price          /= $units if($units != 0 && $version > 3);        
            $price          *= -1 if($price < 0 && $units < 0);
    
            if ($prodtype && $units && $price && $artist && $title)
            {
                $price *= $rate;
                my $sale = RPS::Import::SaleRec->new();
    
                $sale->productType($prodtype);
                $sale->formatType($format);
                $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');
    
                $self->_insertSale(sale => $sale);
            }# else { print STDERR "skip: l:$linenum, ptype($prodtype) u($units) p($price) a($artist) t($title)\n"; }
            $linenum++;
        }
    }

	return $linenum;
}

#
# Private methods
#

sub _get_rate_n_dates
{
    my ($self, $version, $lines, $offsets, $sheetnum) = @_;
    my $summaryField = $offsets->{SUMMARY};
    my ($rate, $dBeg, $dEnd);

    my $total = 0;
    my $linenum = 1;
    
    my @line_array = @$lines;
    
    my $line_size = @line_array;
    
    if((!$line_array[$offsets->{DATE_ROW}]->[$offsets->{DATE}]) && ($sheetnum > 1)){
        return ("BLANK SHEET", "BLANK SHEET", "BLANK SHEET");        
    }

    foreach my $line(@$lines)
    {
        if (($linenum == $offsets->{DATE_ROW}) || ($linenum == ($offsets->{DATE_ROW} - 1)))
        {
            my ($month, $year);
            if ($version == 1)
	        {
                ($month, $year) = $line->[$offsets->{DATE}] =~ /^\d{8} to (\d\d)\d\d(\d\d\d\d)$/;
                $dBeg = sprintf("%04d-%02d-01", $year, $month);
                $dEnd = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
            }
            elsif ($version == 2)
            {
                if ($line->[$offsets->{DATE}] =~ /^(\w+)\s+(\d{4})$/) {
                    $month = Decode_Month($1);
                    $year = $2;
                } else {
                    ($month, $year) = $line->[$offsets->{DATE}] =~ /^\d{8} to (\d\d)\d\d(\d\d\d\d)$/;
                }
                $dBeg = sprintf("%04d-%02d-01", $year, $month);
                $dEnd = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
            }
            elsif($line->[$offsets->{DATE}] =~ m/(\d+)\D(\d+)\D(\d{4}) to (\d+)\D(\d+)\D(\d{4})/) {
                my $rawDB = sprintf("%04d-%02d-%02d", $3, $1, $2);
                my $rawDE = sprintf("%04d-%02d-%02d", $6, $4, $5);
                
                ($dBeg, $dEnd) = 
                $self->
                SUPER::_getDates(date_begin=>$rawDB, date_end=>$rawDE, type=>"iso");
            }

        }    
        elsif ($line->[$offsets->{SUMMARY}] =~ /\d+(\.\d+)?$/i && defined $offsets->{SUMMARY})
        {
            if ($line->[$offsets->{SUMMARY} - 1] =~ /commission/i)
            {
                $rate = $line->[$offsets->{SUMMARY}];
            }
            elsif ($line->[$summaryField-1] =~ /\d+(\.\d+)?$/)
            {
                $total += $line->[$offsets->{SUMMARY}]
            }
            
        }
        $linenum++;
    }    
    
    unless ($total > 0)
    {
        print STDERR "invalid total '$total'\n";
        return 0;
    }

    $rate =~ s/^-//;
    $rate = $rate == 0 ? 1 : 1 - $rate/$total;

    return ($rate, $dBeg, $dEnd);
}

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