package RPS::Import::Juno;

use strict;

use Date::Calc qw(Days_in_Month Add_Delta_Days);

use lib '/app/tools/common/lib';
use Common::Consts qw(%COUNTRY_TO_CODE %COUNTRY_CODE);
use Common::Country;

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

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

my %field_map =
(
    	1 => {
            label       => 0,
            date        => 1,
            product_id  => 3,
            upc         => 4,
            album       => 5,
            track       => 6,
            isrc        => 9,
            artist      => 11,
            units       => 13,
            country     => 15,
            price       => 16,
            refund      => 18,
        },
    	2 => {
            date        => 0,
            label       => 1,
            product_id  => 3,
            upc         => 4,
            album       => 5,
            artist      => 6,
            track       => 7,
            mix         => 8,
            isrc        => 10,
            price       => 13,
            country     => 15,
            refund      => 16,
        },
);

my %countries = (
   'trinidad & tobago' => 'trinidad and tobago',
   'guiana (fr.)' => 'french guiana',
);

#public methods

sub _importLines
{
	my $self = shift;
	my %args = @_;
	my $fileObj = $args{file};
    my $version = $args{file}->VersionNum();
    my $fileName = $args{file}->OrigFileName();
    #my $version = $args{version}; # cmd-line testing
    #my $fileName = $args{OrigFileName}; # cmd-line testing
    my $sheet_count = 0;
    return undef unless (defined $args{sheets} && defined $version);

	my $offsets = $field_map{$version};
    my $sheet_names = $args{sheet_names};
    my $linenum = 1;
    my %errors;

    my $currency = "GBP";

    foreach my $sheet(@{ $args{sheets} }) {
        my $linenum = 1;
        foreach my $line (@$sheet) {
            my $artist   = $line->[$offsets->{artist}];
            my $isrc     = $line->[$offsets->{isrc}];
            my $upc      = $line->[$offsets->{upc}];
            my $title    = $line->[$offsets->{track}];
            my $album    = $line->[$offsets->{album}];
            my $label    = $line->[$offsets->{label}];
            my $product_id = $line->[$offsets->{product_id}];
            my $price	 = $line->[$offsets->{price}];
            $price =~ s/£//;
            my $country_name = lc $line->[$offsets->{country}];
            my $refund = lc $line->[$offsets->{refund}];
			my $country;

            my $units;

            if ($version == 2)
            {
                $units   = 1;
            }
            else
            {
                $units	 = $line->[$offsets->{units}];
                $price = ($units != 0)?($price/$units):0;
                $price = abs $price;
            }

            if ($refund =~ /refund/i) {
                $units *= -1;
            }


            if ($units && $price && $artist && $title ne "Track")
            {

                my $_countryName = $countries{$country_name} || $country_name;

                my $countryObj = Common::Country->Get($_countryName) || die "Unknown country name '$country_name' line: " . $linenum--;
                $country = $countryObj->alpha2();

                my @dateTypes = ('iso','eur');
                my ($dateBegin, $dateEnd) =
                $self->_getDates(date_begin=>$line->[$offsets->{date}], type=>\@dateTypes);

                unless (defined $dateBegin && defined $dateEnd) {
                    $self->errstr("Couldn't get dates from ".$line->[$offsets->{date}]);
                    return undef;
                }

                my $format   = RPS::File::Sale::FORMAT_DOWNLOAD;
                my $prodtype = RPS::File::Sale::TYPE_TRACK;

                if ($title eq "Entire Release" || $title eq ""){
                    $prodtype = RPS::File::Sale::TYPE_ALBUM;
                }
                elsif ($version == 2)
                {
                    # For tracks in version 2, we'll add the mix to the title, if there is one.
                    #
                    my $mix = $line->[$offsets->{mix}];
                    if ($mix)
                    {
                        $title .= " (" . $mix . ")";
                    }
                }


                my $sale = RPS::Import::SaleRec->new();

                if ($refund =~ /refund/i) {
                   $units *= -1 if ( $units > 0 );
                   $price *= -1 if ( $price < 0 );
                }

                $sale->productType($prodtype);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->upc($upc) if($upc ne "");
                $sale->isrc($isrc);
                $sale->labelName($label);
                $sale->artistName($artist);
                $sale->albumName($album) if ($album ne "");
                $sale->trackName($title) if ($title ne "" && $title ne "Entire Release");
                $sale->serviceProductID($product_id);
                $sale->formatType($format);
                $sale->units($units);
                $sale->price($price);
                $sale->countryCode($country);
                $sale->currencyCode($currency);
                $sale->lineNum($linenum);

                #$args{dumper}($sale); ## for cmd-line testing
                $self->_insertSale(sale => $sale);
            }
            #else { print STDERR "Skipping line: " . $linenum . " : " . join(",",@$line) . "\n"; }
            $linenum++;
        }
        $sheet_count++;
    }
	return $linenum;
}

#
# Private methods
#


#sub _getDates
#{
#	my $self = shift;
#	my $passed_date = shift;
#    $passed_date =~ s/\s.*$// if($passed_date =~ /\s/);
#    my ($day,$month,$year);
#    if($passed_date =~ /(\d+)\D(\d+)\D(\d{4})/) {
#        $passed_date =~ m/(\d+)\D(\d+)\D(\d{4})/;
#        $month = $2;
#        $year = $3;
#    }
#    elsif($passed_date =~ /(\d{4})\D(\d+)\D(\d+)/) {
#        $passed_date =~ m/(\d{4})\D(\d+)\D(\d+)/;
#        $year = $1;
#        $month = $2;
#    }
#    my $dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
#    my $dateEnd   = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
#    return ($dateBegin, $dateEnd);
#    return undef;
#}

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