package RPS::Import::247;

use strict;

use Date::Calc qw(Days_in_Month Add_Delta_Days Decode_Month);

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

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

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

my %fieldMap = (
    1 => {
        catalog   => 1,
        date      => 2,
        service   => 4,
        label     => 6,
        artist    => 7,
        title     => 8,
        code      => 9,
        code_type => 10,
        product   => 11,
        units     => 14,
        price     => 16,
        currency  => 17,
        country   => 22,
    },
    2 => {
        catalog   => 1,
        date      => 2,
        service   => 4,
        label     => 8,
        artist    => 9,
        title     => 10,
        code      => 11,
        code_type => 12,
        product   => 14,
        units     => 17,
        price     => 19,
        currency  => 20,
        country   => 25,
    },
    3 => {
        catalog   => 1,
        date      => 2,
        service   => 4,
        label     => 8,
        artist    => 9,
        title     => 10,
        code      => 11,
        code_type => 12,
        upc       => 13,
        product   => 15,
        units     => 18,
        price     => 20,
        currency  => 21,
        country   => 26,
    },
    4 => {
        catalog   => 1,
        date      => 2,
        service   => 4,
        label     => 6,
        artist    => 7,
        title     => 8,
        code      => 9,
        code_type => 10,
        upc       => 11,
        product   => 12,
        units     => 15,
        price     => 17,
        currency  => 18,
        country   => 23,
    },
);

my %product_map = (
    "ALBUM" => RPS::File::Sale::TYPE_ALBUM,
    "TRACK" => RPS::File::Sale::TYPE_TRACK,
    "MAXI"  => RPS::File::Sale::TYPE_ALBUM,
);

my %error_hash;

#public methods

sub _importLines {
    my $self        = shift;
    my %args        = @_;
    my $fileObj     = $args{file};
    my $version     = $args{file}->VersionNum();
    my $fileName    = $args{file}->OrigFileName();
    my $serviceID   = $args{file}->ServiceID;
    my $sheet_count = 0;

    return undef unless ( defined $args{sheets} && defined $version );

    my $offsets      = $fieldMap{$version};
    my $sheet_names  = $args{sheet_names};
    my $header_found = 0;
    my $linenum      = 1;
    my ( $total_unit_column, $total_price_column, $last_artist );

    foreach my $sheet ( @{ $args{sheets} } ) {
        $linenum = 1;
        if ( $sheet_names->[$sheet_count] !~ /summary/i ) {

            foreach my $line (@$sheet) {

                my $country      = $line->[ $offsets->{country} ];
                my $currency     = $line->[ $offsets->{currency} ];
                my $f_product    = $line->[ $offsets->{product} ];
                my $format       = RPS::File::Sale::FORMAT_DOWNLOAD;
                my $artist       = $line->[ $offsets->{artist} ];
                my $title        = $line->[ $offsets->{title} ];
                my $price        = $line->[ $offsets->{price} ];
                my $units        = $line->[ $offsets->{units} ];
                my $catalog      = $line->[ $offsets->{catalog} ];
                my $label        = $line->[ $offsets->{label} ];
                my $product_code = $line->[ $offsets->{code} ];
                my $code_type    = $line->[ $offsets->{code_type} ];
                my $date         = $line->[ $offsets->{date} ];
                my $upc          = $line->[ $offsets->{upc} ] if ( defined $offsets->{upc} );
                my $f_service    = $line->[ $offsets->{service} ];
                $price /= $units if ( $units != 0 );

                my $product = $product_map{ uc $f_product };

                my ( $dateBegin, $dateEnd ) = $self->_getDates( date_begin => $date, type => "iso" );

                if ( $units && $country && $price && $title ne "Title" && $artist ) {

                    my $service = $self->getServiceID( lc($f_service) ) || $RPS::Import::ServiceMap::SERVICE_ALIASES{ lc $f_service };

                    unless ( $service || $error_hash{$f_service} ) {
                        $error_hash{$f_service} = 1;
                        print STDERR "Couldn't get service from: $f_service at line number $linenum\n";
                        $self->errstr("Couldn't get service from: $f_service at line number $linenum");

                        #return undef;
                    }

                    unless ( $dateBegin && $dateEnd ) {
                        print STDERR "Couldn't get dates from $date at line number $linenum\n";
                        $self->errstr("Couldn't get dates from $date at line number $linenum\n");
                        return undef;
                    }

                    unless ($product) {
                        print STDERR "Unknown product type $f_product on linenum $linenum\n";
                        self->errstr("Unknown product type $f_product on linenum $linenum\n");
                        return undef;
                    }

                    my $sale = RPS::Import::SaleRec->new();

                    $sale->mediaType(2) if ( $format =~ /video/i );
                    $sale->productType($product);
                    $sale->dateBegin($dateBegin);
                    $sale->dateEnd($dateEnd);
                    $sale->artistName($artist);
                    $sale->trackName($title) if ( $product eq RPS::File::Sale::TYPE_TRACK );
                    $sale->albumName($title) if ( $product eq RPS::File::Sale::TYPE_ALBUM );
                    $sale->serviceProductID($catalog);
                    $sale->labelName($label);
                    $sale->isrc($product_code) if ( $code_type =~ /isrc/i );
                    $sale->serviceID($service);

                    if ($upc) {
                        $sale->upc($upc);
                    } elsif ( ( $code_type =~ /upc/i ) || ( $code_type =~ /ean/i ) ) {
                        $sale->upc($product_code);
                    }

                    $sale->formatType($format);
                    $sale->units($units);
                    $sale->price($price);
                    $sale->countryCode($country);
                    $sale->currencyCode($currency);
                    $sale->lineNum($linenum);

                    $self->_insertSale( sale => $sale );
                    $last_artist = $artist;
                }

                #else { print STDERR "skip l:" . $linenum . " - c:".$country." a:".$artist." u:".$units." p:".$price." t:".$title."\n"; }
                $linenum++;
            }
        }
        $sheet_count++;
    }
    return $linenum;
}

#
# Private methods
#

#sub _getDates
#{
#    my ($smonth,$syear,$emonth,$eyear,$passed_date,$dateBegin,$dateEnd);
#	$passed_date = shift;
#    if($passed_date =~ m/\_(\d\d)\_q(\d)/) {
#        $syear = 2000 + $1;
#        $eyear = 2000 + $1;
#        if($2 == 1) {
#            $smonth = "01";
#            $emonth = "03";
#        }
#        elsif($2 == 2) {
#            $smonth = "04";
#            $emonth = "06";
#        }
#        elsif($2 == 3) {
#            $smonth = "07";
#            $emonth = "09";
#        }
#        elsif($2 == 4) {
#            $smonth = "10";
#            $emonth = "12";
#        }

#    }
#    if($smonth && $syear && $emonth && $eyear) {
#        return ($syear."-".$smonth."-01",$eyear."-".$emonth."-".Days_in_Month($eyear,$emonth));
#    }
#    if ($passed_date =~ m/(\d+)\D(\d+)\D(\d{4})/)
#    {
#      return ($3."-".sprintf("%02d",$1)."-01",$3."-".sprintf("%02d",$1)."-".Days_in_Month($3,$1));
#    }
#    if ($passed_date =~ m/(\d{4})\D(\d+)\D(\d+)/)
#    {
#      return ($1."-".sprintf("%02d",$2)."-01",$1."-".sprintf("%02d",$2)."-".Days_in_Month($1,$2));
#    }

#    return undef;
#}

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