package RPS::Import::ThinkIndie;

use strict;

use Date::Calc qw(Days_in_Month);

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,
        isrc            => 1,
        upc             => 2,
        artist          => 3,
        title           => 4,
        catalog_number  => 5,
        prod_type       => 6,
        units           => 7,
        price           => 10,
        format          => 12,
        country         => 13,
        sale_date       => 14,
        currency        => 15,
        mechanicals     => 17,
    },
);

my %delivery_formats = (
    'DOWNLOAD'              => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Stream'                => RPS::File::Sale::FORMAT_STREAM,
    'Limited Download'      => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Over the Air Download' => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Ringtone'              => RPS::File::Sale::FORMAT_RINGTONE,
    'Ringback'              => RPS::File::Sale::FORMAT_RINGBACK,
    'Over the Air Download' => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Burn'                  => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Other'                 => RPS::File::Sale::FORMAT_STREAM,
    'Play'                  => RPS::File::Sale::FORMAT_STREAM,
    'Realtone'              => RPS::File::Sale::FORMAT_RINGTONE,
);


#
# public methods
#

sub _importLines
{
    my $self = shift;
    my %args = @_;
    my $lines = $args{lines};
    return undef unless ($lines);
    my $version = $self->_version();
    my $offsets = $field_map{$version};
    #my $fileName = $args{OrigFileName}; # cmd-line testing
    my $fileName = $args{file}->OrigFileName();

    my $linenum = 1;
    my $was_album_title = 0;
    my (%errors,$passed_format,$album,$dateBegin,$dateEnd,$total_columns,$fee_percentage);
    ($dateBegin,$dateEnd) = _get_dates($fileName) unless (exists $offsets->{sale_date});

    foreach my $line (@$lines)
    {
        my ($artist,$country,$isrc,$title,$upc,$price,$currency_code,$format,$units,$label,$service_product,$prod_type);
        $artist      = $line->[$offsets->{artist}];
        $isrc        = $line->[$offsets->{isrc}];
        $title       = $line->[$offsets->{title}];
        $album       = $line->[$offsets->{album}] if exists $offsets->{album};        
        $upc         = $line->[$offsets->{upc}];
        $price       = $line->[$offsets->{price}];
        $country     = exists $offsets->{country} ? $line->[$offsets->{country}] : 'US';
        $currency_code = exists $offsets->{currency_code} ? $line->[$offsets->{currency_code}] : 'USD';
        $format      = exists $offsets->{format} ? 
        $delivery_formats{$line->[$offsets->{format}]} : RPS::File::Sale::FORMAT_DOWNLOAD;
        $units       = $line->[$offsets->{units}];
        $label       = $line->[$offsets->{label}];
        $service_product = $line->[$offsets->{catalog_number}] if exists $offsets->{catalog_number};

        $prod_type = $line->[$offsets->{prod_type}] =~ /^a/i ? RPS::File::Sale::TYPE_ALBUM : RPS::File::Sale::TYPE_TRACK;
        
        
        $album       = $line->[$offsets->{title}] if ($prod_type eq RPS::File::Sale::TYPE_ALBUM);
        
        if(($artist ne "TRACK_ARTIST")&&($units>0)&&($title ne "")) {

            ($dateBegin,$dateEnd) = _get_dates($line->[$offsets->{sale_date}]) if (exists $offsets->{sale_date});
            
            unless($dateBegin ne "" && $dateEnd ne "") {
                $self->errstr("Couldn't get dates from: ".$line->[$offsets->{sale_date}] . " l:".$linenum. " or ".$fileName);
                print STDERR "Couldn't get dates from:".$line->[$offsets->{sale_date}] . " l:".$linenum." or ".$fileName."\n";
            }

             my $sale = RPS::Import::SaleRec->new();
            
            $sale->productType($prod_type);
            $sale->upc($upc);
            $sale->isrc($isrc) if ($isrc ne "");
            $sale->trackName($title) if ($prod_type eq RPS::File::Sale::TYPE_TRACK && $title ne "ALBUM PURCHASE");
            $sale->albumName($album) if ($album ne "");
            $sale->formatType($format);
            $sale->serviceProductID($service_product);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->artistName($artist);
            $sale->labelName($label);
            $sale->price(sprintf("%.8f",($price/$units)));
            $sale->units($units);
            $sale->currencyCode($currency_code);
            $sale->countryCode($country);
            $sale->lineNum($linenum);

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

#
# Private methods
#

sub _get_dates
{
    my $passed_date = shift;
    my ($year, $month, $day);
    if($passed_date =~ m/(\d+)\D(\d+)\D(\d{4})/) {
        $year = $3;
        $month = $1;
    }
    elsif($passed_date =~ m/(\d{4})\D(\d+)\D(\d+)/) {
        $year = $1;
        $month = $2;
    }
    return undef unless ($year ne "" && $month ne "");
    return (
        sprintf("%04d-%02d-01", $year, $month), 
        sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month))
    );
}

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