package RPS::Import::LimeWire;

use strict;

use Date::Calc qw(Days_in_Month Decode_Month);

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

use lib '/app/tools/data_classes/lib';
use Client::Service;

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

my %field_map = (
    1 =>
    {   sub_units_col => 2,
        sub_units_row => 2,
        sub_royalty_tag_col => 4,
        sub_royalty_total_col => 5,
        client_product_id => 1,
        album => 2,
        upc => 3,
        track => 4,
        isrc => 5,
        type => 6,
        date => 8,
        price => 9,
        label => 10,           
    },
    2 =>
    {   sub_units_col => 2,
        sub_units_row => 2,
        sub_royalty_tag_col => 4,
        sub_royalty_total_col => 5,
        client_product_id => 1,
        album => 2,
        upc => 3,
        track => 4,
        isrc => 5,
        type => 6,
        date => 8,
        price => 9,                
    },
);

my %type_format_map =
("track"        => [RPS::File::Sale::TYPE_TRACK, RPS::File::Sale::FORMAT_DOWNLOAD],
 "subscription" => [RPS::File::Sale::TYPE_TRACK, RPS::File::Sale::FORMAT_STREAM],
 "album"        => [RPS::File::Sale::TYPE_TRACK, RPS::File::Sale::FORMAT_DOWNLOAD],
);

#public methods

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

    my $lines = $args{lines};
    my $version = $args{file}->VersionNum();
    my $fileName = $args{file}->OrigFileName();
    my @sheets = @{ $args{sheets} };

    return undef unless ($lines);

    my $linenum = 1;
            
    my $offsets = $field_map{$version};
    my %errors = ();
            
    my $sheet = $sheets[0];
    
    my $sub_price;
    my $sub_revenue;
    
    my $sub_units =
    $sheet->[$offsets->{sub_units_row}]->[$offsets->{sub_units_col}];   
    
    my $currency = "USD";
    my $country = "US";
    
    foreach my $line(@$lines)
    {
        if($line->[$offsets->{sub_royalty_tag_col}] =~ /subscription royalty/i){
            if($sub_units !~ /^\d+$/){
                
                $self->errstr("could not get subscription units from row ".
                ($offsets->{sub_units_row} + 1).", column ".
                ($offsets->{sub_units_col} + 1));
                print STDERR "could not get subscription units from row ".
                ($offsets->{sub_units_row} + 1).", column ".
                ($offsets->{sub_units_col} + 1);
                
                return undef;
            }
            $sub_revenue = $line->[$offsets->{sub_royalty_total_col}];
            $sub_revenue =~ s/\$//g;
            $sub_price = $sub_revenue / $sub_units;
        } 
        
        my $client_product_id = $line->[$offsets->{client_product_id}];
        my $album = $line->[$offsets->{album}];
        my $upc = $line->[$offsets->{upc}];
        my $track = $line->[$offsets->{track}];
        my $isrc = $line->[$offsets->{isrc}];
        my $type = $line->[$offsets->{type}];
        my $f_date = $line->[$offsets->{date}];
        my $price = $line->[$offsets->{price}];
        my $label;
        $label = $line->[$offsets->{label}] if(defined $offsets->{label});
        
        my $units = 1;
        
        my $type_format_array_ref =
        $type_format_map{$type};
        
        my ($product_type, $format);
        
        if($type_format_array_ref){
            ($product_type, $format) = @$type_format_array_ref;
        }
        
        if($type eq "subscription"){          
            
            $price = $sub_price;                      
        }
        
        $f_date =~ s/\.\d+//;
       
        my ($dateBegin, $dateEnd) =
        $self->_getDates(date_begin=>$f_date, type=>"msft");
              
        
        if($client_product_id && 
        ($album || $track) && ($upc || $isrc) && $type && 
        $currency && $country && $f_date && $price =~ /\d+/) 
        {
                       
            unless ($dateBegin && $dateEnd) {
                $self->errstr("couldn't get dates from $f_date, line: $linenum");
                print STDERR "couldn't get dates from $f_date, line: $linenum";
                return undef;
            }
            
            my $sale = RPS::Import::SaleRec->new();
            $sale->productType($product_type);
            $sale->formatType($format);
            $sale->mediaType(1);
            $sale->labelName($label);
            $sale->clientProductID($client_product_id);
            $sale->albumName($album);
            $sale->trackName($track);
            $sale->units($units);
            $sale->price($price);
            $sale->upc($upc);
            $sale->isrc($isrc);
            $sale->currencyCode($currency);
            $sale->countryCode($country);
            $sale->labelName($label);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->lineNum($linenum);
            
            #$args{dumper}($sale);  ## for cmd-line testing
            $self->_insertSale(sale => $sale);
        }
        
        $linenum++;
    }
    

    return $linenum;
}

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