package RPS::Import::Musiwave3;

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 = (
    13 =>
    {
        country_col    => 0,
        price_col      => 6,
        date_col       => 1,
        begin_date_row => 5,
        end_date_row   => 6,
        psvcid         => 2,
        isrc           => 3,
        track          => 5,
        artist         => 6,
        label          => 7,
        units          => 8,                
    },
);

#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} };
    
    my $unitPrice;

    return undef unless ($lines);

    my $gross_total = 0;
    
    my $linenum = 1;
    my $sheetnum = 0;
        
    my $offsets = $field_map{$version};
    my %errors = ();
    
    #$canadian_dollar = 1 if($fileName =~ /^CAD_/);   
        
    my ($dateBegin, $dateEnd);
    my ($countryCode, $unitPrice) = getCountryPrice($sheets[0]);
    my ($dateBegin, $dateEnd) = extractDates($sheets[1]);
    
    unless ($countryCode && $unitPrice) {
                $self->errstr("couldn't get country code and unit price from first sheet");
                return undef;
    }
    
     unless ($dateBegin && $dateEnd) {
         $self->errstr("couldn't get dates from sheet 2");
          
         return undef;
     }
    
    
    
    #print STDERR "Date begin: $dateBegin Date end: $dateEnd\n";
      
    
    my $type = RPS::File::Sale::TYPE_TRACK;
    my $format = RPS::File::Sale::FORMAT_RINGTONE;;
        
     foreach my $sheet (@sheets){     
       $sheetnum++;
       $linenum = 5;
       
       
      
    foreach my $line(@$sheet)
    {
        print STDERR "sheetnum: $sheetnum linenum: $linenum\n";
        my $service_product_id = $line->[$offsets->{psvcid}];
        my $artist = $line->[$offsets->{artist}];
        my $track = $line->[$offsets->{track}];
        my $isrc = normalize_isrc($line->[$offsets->{isrc}]);
        my $units = $line->[$offsets->{units}];
        my $label = $line->[$offsets->{label}];
              
        
        if($service_product_id =~ /\d+/ && $artist && 
        $track && $units && $label) 
        {           
                      
            my $sale = RPS::Import::SaleRec->new();

            $sale->serviceProductID($service_product_id);           
            $sale->productType($type);
            $sale->formatType($format);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->isrc($isrc) if ($isrc);
            $sale->artistName($artist);
            $sale->trackName($track);
            $sale->units($units);
            $sale->price($unitPrice);
            $sale->labelName($label);
            $sale->currencyCode('EUR');
            $sale->countryCode($countryCode);
            $sale->lineNum($linenum);
            
            #$args{dumper}($sale);  ## for cmd-line testing
            $self->_insertSale(sale => $sale);
        }
        
        $linenum++;
    }
    }

    return $linenum;
}

#
# Private methods
#


sub _getDates
{
    my $self       = shift;
    my $date_begin = shift;
    my $date_end   = shift;
    
   $date_begin =~ /(\d+)\/(\d+)\/(\d+)/;
   
   my $year = $3;
   
    if($year < 2000){
        $year += 2000;
   }
   
   my ($begin_month, $begin_day, $begin_year) = ($1, $2, $year);
   
   #print STDERR "Passed date begin: $date_begin date end: $date_end\n";
     
   $date_end   =~ /(\d+)\/(\d+)\/(\d+)/;
   
   $year = $3;
   
   if($year < 2000){
        $year += 2000;
   }
   
   my ($end_month, $end_day, $end_year) = ($1, $2, $year);
   
   #print STDERR "End month $end_month end day $end_day ".
   "end year $end_year begin month $begin_month begin day $begin_day begin year $begin_year\n";
   
   if(!($end_month && $end_day && $end_year && 
   $begin_month && $begin_day && $begin_year)){
        return undef;
   }
       
    my $dateBegin = sprintf("%04d-%02d-%02d", $begin_year, $begin_month, $begin_day);
    my $dateEnd   = sprintf("%04d-%02d-%02d", $end_year, $end_month, $end_day);
    
    return ($dateBegin, $dateEnd);    
    
}

sub getCountryPrice{
    my $sheet = shift;
    
    my $country_col;
    my $unit_price_col;
    my $next_row = 0;
    
    my $country;
    my $unitPrice;
    
    foreach my $line(@$sheet){
        my @line_array = @$line;
        my $array_size = @line_array;
        
        if($next_row == 1){
            $country = $line->[$country_col];
            $unitPrice = $line->[$unit_price_col];
            
            my $country_code = $COUNTRY_CODE{lc $country};
            
            #print STDERR "Returning country $country_code, unit price: $unitPrice\n";
            
            return ($country_code, $unitPrice);
            
        }
        
        foreach my $index(0..($array_size - 1)){
            my $cell = $line_array[$index];
            
            if($cell =~ /^country$/i){
                $country_col = $index;
                $next_row = 1;
            }
            
            if($cell =~ /royalty per unit/i){
                $unit_price_col = $index;
                $next_row = 1;
            }

        
        }
    }
}

sub extractDates{
    my $sheet = shift;
    
    my $date_begin;
    my $date_end;
        
    foreach my $line(@$sheet){
        my @line_array = @$line;
        
        if($line_array[0] =~ /from:/i){
            $date_begin = $line_array[1];
        }
        
        if($line_array[0] =~ /to:/i){
            $date_end = $line_array[1];
        }
    }
    
    #print STDERR "Returning date_begin: $date_begin date_end: $date_end\n";
    
    return($date_begin, $date_end);
}

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