package RPS::Import::MediaDo;

use strict;

use Date::Calc qw(Days_in_Month);

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

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

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

use Client::Service;

my %field_map = (
    1 => {
        service_product_id  => 0,
        isrc                => 1,
        artist              => 2,
        track               => 3,
        price               => 8,
        currency            => 11,
        format              => 13,
        country             => 14,
        units               => 17,
        label               => 18,
    },
);

my %formats = (
    'tld'   => RPS::File::Sale::FORMAT_TETHERED,
);

my %countries = (
    'japan' => 'JP',
);

my %currencies = (
    'jp'    => 'JPY',
);

#
# public methods
#

sub _importLines
{
    my $self = shift;
    my %args = @_;
    my $lines = $args{lines};
    return undef unless ($lines);
    #my $version = $args{version}; # cmd-line testing
    #my $fileName = $args{OrigFileName}; # cmd-line testing
    my $version = $args{file}->VersionNum();
    my $fileName = $args{file}->OrigFileName();
    my ($dateBegin,$dateEnd) = _get_dates($fileName);
    unless ($dateBegin && $dateEnd) {
        $self->errstr("couldn't get dates");
        print STDERR "Couldn't get dates from file name: $fileName\n";
        return undef;
    }

    my $linenum = 1;
    foreach my $line (@$lines)
    {
        my $artist          = $line->[$field_map{$version}{artist}];
        my $track           = $line->[$field_map{$version}{track}];
        my $isrc            = $line->[$field_map{$version}{isrc}];
        my $units           = $line->[$field_map{$version}{units}];
        my $price           = $line->[$field_map{$version}{price}];
        my $country         = $countries{lc $line->[$field_map{$version}{country}]};
        my $currency        = $currencies{lc $country};
        my $format          = $formats{lc $line->[$field_map{$version}{format}]};
        my $label           = $line->[$field_map{$version}{label}];
        $price = ($units != 0) ? ($price / $units) : 0;
        
        if(($artist ne "" && $units ne "" && $price ne "" && $track ne "" && $track !~ /title/i)) {
            my $sale = RPS::Import::SaleRec->new();
            $sale->productType(RPS::File::Sale::TYPE_TRACK);
            $sale->trackName($track);
            $sale->isrc($isrc) if($isrc ne "");
            $sale->labelName($label) if ($label =~ m/[a-zA-Z]/);
            $sale->formatType($format);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->artistName($artist);
            $sale->price($price);
            $sale->units($units);
            $sale->currencyCode($currency);
            $sale->countryCode($country);
            $sale->lineNum($linenum);
            #$args{dumper}($sale); ## for cmd-line testing
            $self->_insertSale(sale => $sale);
        }
        #else { print STDERR "skip line number: ". $linenum . " : " . join(',', @$line) . "\n"; }
        $linenum++;
    }
    return $linenum;
}

#
# Private methods
#

sub _get_dates
{
    my $passed_date = shift;
    my ($smonth,$emonth,$year,$dateBegin,$dateEnd);
    if($passed_date =~ m/(\d{4})-Q(\d)/) {
        $year = $1;
        my $qtr = $2;
        if ($qtr == 1) {
            $dateBegin = sprintf("%04d-%02d-%02d", $year, 1, 1);
            $dateEnd   = sprintf("%04d-%02d-%02d", $year, 3, Days_in_Month($year, 3));
        } elsif ($qtr == 2) {
            $dateBegin = sprintf("%04d-%02d-%02d", $year, 4, 1);
            $dateEnd   = sprintf("%04d-%02d-%02d", $year, 6, Days_in_Month($year, 6));
        } elsif ($qtr == 3) {
            $dateBegin = sprintf("%04d-%02d-%02d", $year, 7, 1);
            $dateEnd   = sprintf("%04d-%02d-%02d", $year, 9, Days_in_Month($year, 9));
        } else {
            $dateBegin = sprintf("%04d-%02d-%02d", $year, 10, 1);
            $dateEnd   = sprintf("%04d-%02d-%02d", $year, 12, Days_in_Month($year, 12));
        }
    }
    elsif($passed_date =~ m/(\d\d)\.(\d)-(\d)/) {
        $year = $1+2000;
        $smonth = $2;
        $emonth = $3;
        $dateBegin = sprintf("%04d-%02d-%02d", $year, $smonth, 1);
        $dateEnd   = sprintf("%04d-%02d-%02d", $year, $emonth, Days_in_Month($year, $emonth));
    }
    else {
        return undef;
    }
    return ($dateBegin,$dateEnd);
}

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