package RPS::Import::VidZoneDigital2;

use strict;
use Data::Dumper;

use Date::Calc qw(Days_in_Month Decode_Month);
use Spreadsheet::ParseExcel;

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

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

my %field_map = (
    2 => {
        isrc    => 0,
        artist  => 1,
        track   => 2,
        format  => 6,
        units   => 8,
        price   => 9,        
        country => 10,
    },
);

my %service_map = (

);

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

#public methods

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

  my $sheet_names = $args{sheet_names};
  my $currency    = "GBP";
  
	my ($dateBegin,$dateEnd,$linenum,%conversion);
  ($dateBegin,$dateEnd) = _getDates($fileName);
  
  unless ($dateBegin && $dateEnd) {
    print STDERR "Couldn't find dates from:".$fileName."\n";
    $self->errstr("Couldn't find dates from:".$fileName);
    return undef;
  }

  foreach my $sheet(@{ $args{sheets} }) {
    if($sheet_names->[$sheet_count] =~ /summary/i) {
      my ($area_column,$conversion_rate_column);
      foreach my $line(@$sheet) {
        my $x = 0;
        foreach my $column(@$line) {
          $area_column = $x if($column =~ /TERRITORY/i); 
          $conversion_rate_column = $x if($column =~ /CONVERSION RATE/i);
          $x++;
        }
        $conversion{$line->[$area_column]} = $line->[$conversion_rate_column] if($area_column ne "" && $conversion_rate_column ne "" && $line->[$area_column] ne "" && $line->[$conversion_rate_column] ne "" && $line->[$conversion_rate_column] ne "n/a");
      } 
    } 
    elsif($sheet_names->[$sheet_count] !~ /summary/i) 
    {		  
      $linenum = 1;          

	    foreach my $line (@$sheet) {
        my $crate = 1;	        	
  	
  		  my $country = $line->[$offsets->{'country'}];
  		  $country = $Common::Consts::COUNTRY_CODE{lc $country};
  		  
  		  my $conv_country;
  		  # VidZone used SA for South Africa, instead of ZA.
  		  #
  		  if ($country eq 'ZA')
  		  {
  		  	$conv_country = 'SA';
  		  }
  		  else 
  		  {
  		  	$conv_country = $country;
  		  }
  	
	      my $isrc        = $line->[$offsets->{'isrc'}];
	      my $artist		= $line->[$offsets->{'artist'}];
			  my $title		= $line->[$offsets->{'track'}];
			  my $units		= $line->[$offsets->{'units'}];
			  my $price	    = $line->[$offsets->{'price'}];
	      my $format;
	      $format      = RPS::File::Sale::FORMAT_DOWNLOAD if($line->[$offsets->{format}] =~ /track/i);
	      $format      = RPS::File::Sale::FORMAT_RINGTONE if($line->[$offsets->{format}] =~ /tune/i);
        $format      = RPS::File::Sale::FORMAT_STREAM if($line->[$offsets->{format}] =~ /stream/i);	       
        $price       /= $units if($units != 0);
	
	  		if ($price && $units && $artist && $artist ne "ARTIST" && $title && $title ne "TITLE") {
	  		   $crate = $conversion{$conv_country} if($conversion{$conv_country} ne "");
	         $price /= $crate;

		        my $sale = RPS::Import::SaleRec->new();
		
				    $sale->productType(RPS::File::Sale::TYPE_TRACK);
				    $sale->formatType($format);
		        $sale->isrc($isrc);
				    $sale->dateBegin($dateBegin);
				    $sale->dateEnd($dateEnd);
		        $sale->currencyCode($currency);
		        $sale->countryCode($country);
				    $sale->artistName($artist);
				    $sale->trackName($title);
				    $sale->units($units);
				    $sale->price($price);
				    $sale->lineNum($linenum);
				    $self->_insertSale(sale => $sale);
			  }
			  
			  $linenum++;
		  }
      #else { print STDERR "skip s:".$sheet_names->[$sheet_count]." l:".$linenum." u: $units p: $price a: $artist t: $title\n"; }
      
	  }
    $sheet_count++;
  }

  #print STDERR Dumper %conversion;

	return $linenum;
}

#
# Private methods
#

sub _getDates {
    my $passed_date = shift;
    my ($month,$monthName,$emonth,$year,$qtr,$dateBegin,$dateEnd);
    $monthName = $passed_date;
    if($passed_date =~ m/(\d{4}) (\d+)\-(\d+)/) {
        $year = $1;
        $month  = $2;
        $emonth = $3;
    }
    elsif($passed_date =~ m/(\d{4}) (\d+)\.xls/) {
        $year = $1;
        $month = $2;
    }
    elsif($passed_date =~ m/(\w+)_(\d{4})/) {
        $year = $2;
        $monthName = $1;
    }
    elsif($passed_date =~ m/ (\w+) (\d{4})\.xls/) {
        $year = $2;
        $monthName = $1; 
    }
    $monthName =~ s/^.*_//g;
    $monthName = "jan" if($monthName =~ /jan/i);
    $monthName = "feb" if($monthName =~ /feb/i);
    $monthName = "mar" if($monthName =~ /mar/i);
    $monthName = "apr" if($monthName =~ /apr/i);
    $monthName = "may" if($monthName =~ /may/i);
    $monthName = "jun" if($monthName =~ /jun/i);
    $monthName = "jul" if($monthName =~ /jul/i);
    $monthName = "aug" if($monthName =~ /aug/i);
    $monthName = "sep" if($monthName =~ /sep/i);
    $monthName = "oct" if($monthName =~ /oct/i);
    $monthName = "nov" if($monthName =~ /nov/i);
    $monthName = "dec" if($monthName =~ /dec/i);
    $month = Decode_Month($monthName) if($month eq "" && $monthName ne "");
    if($month ne "" & $year ne "") {
        $dateBegin = $year."-".$month."-01";
        $dateEnd = $year."-".$month."-".sprintf("%02d",Days_in_Month($year,$month));
        $dateEnd = $year."-".$emonth."-".sprintf("%02d",Days_in_Month($year,$emonth)) if($emonth ne "");
        return ($dateBegin,$dateEnd);
    }
    else {
        return undef;
    }
}

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