package RPS::Import::Universal::v63;

use strict;
use warnings;

use lib '/app/tools/rps/lib';
use RPS::Import::ServiceMap;
use Date::Calc qw(Days_in_Month Add_Delta_Days Decode_Month);

use parent 'RPS::Import::ImporterMixed';

use constant RE_MMM_YYYY => qr/\(?([a-z]{3})[a-z]{0,6}\s(?:20)?(\d{2})\)?/i;


sub physical { 2 }

sub _fieldMapExtended {
    {
        digital => {
            option1 => {    # Digital
                labelName    => 'D',
                dateBegin    => 'B',
                dateEnd      => 'B',
                productType  => 'H',
                formatType   => 'J',
                artistName   => 'E',
                upc          => 'F',
                albumName    => 'G',
                isrc         => 'H',
                trackName    => 'I',
                units        => 'L',
                price        => 'K',
                mediaType    => 'J',
            },
            option2 => {    # Digital Sales
                labelName    => 'A',
                serviceID    => 'D',
                dateBegin    => 'O',
                dateEnd      => 'O',
                productType  => 'F',
                formatType   => 'C',
                upc          => 'I',
                albumName    => 'H',
                isrc         => 'N',
                trackName    => 'K',
                units        => 'P',
                price        => 'O',
                mediaType    => 'C',
            },
            option3 => {    # Digital Sales (alternative header)
                labelName   => 'A',
                serviceID   => 'E',
                dateBegin   => 'O',
                dateEnd     => 'O',
                productType => 'G',
                formatType  => 'D',
                upc         => 'J',
                albumName   => 'I',
                isrc        => 'N',
                trackName   => 'L',
                units       => 'P',
                price       => 'O',
                mediaType   => 'D',
            },
        },
        physical => {
            option1 => {    # Physical
                labelName    => 'D',
                dateBegin    => 'B',
                dateEnd      => 'B',
                productType  => 'J',
                artistName   => 'E',
                upc          => 'F',
                albumName    => 'G',
                sales        => 'R',
                returns      => 'S',
                totalRevenue => 'Q',
            },
            option2 => {    # Physical Sales
                labelName    => 'B',
                dateBegin    => 'Q',
                dateEnd      => 'Q',
                productType  => 'H',
                artistName   => 'C',
                upc          => 'E',
                albumName    => 'D',
                priceLevel   => 'J',
                sales        => 'K',
                returns      => 'L',
                totalRevenue => 'Q',
            },
        },
    };
}

sub _unverifiedFieldMapExtended {
    {
        digital => {
            option2 => {   # Digital Sales
                _albumArtist => 'G',
                _trackArtist => 'J',
            },
            option3 => {   # Digital Sales (alternative header)
                _colMonth    => 'B',
                _albumArtist => 'H',
                _trackArtist => 'K',
                _salesType   => 'F',
            },
        },
        physical => {
            option1 => {    # Physical
                _netUnits => 'T',
            },
            option2 => {    # Physical Sales
                _netUnits => 'M',
            },
        },
    };
}

sub _headerIdentifierExtended {
    {
        digital => {
            option1 => {    # Digital
                price => 'Net Sales',
            },
            option2 => {    # Digital Sales
                productType => 'Sold As',
            },
            option3 => {    # Digital Sales (alternative header)
                _colMonth => 'Month',
            },
        },
        physical => {
            option1 => {    # Physical
                _netUnits => 'Net Quantity',
            },
            option2 => {    # Physical Sales
                productType => 'Configuration',
            },
        },
    };
}

my %months = (
    jan => 1,
    feb => 2,
    mar => 3,
    apr => 4,
    may => 5,
    jun => 6,
    jul => 7,
    aug => 8,
    sep => 9,
    oct => 10,
    nov => 11,
    dec => 12,
);

my %mapping = (
    'digital' => {
        countryCode  => 'CA',
        currencyCode => 'CAD',
        productType  => {
            '#'     => RPS::File::Sale::TYPE_ALBUM,
            '_any_' => RPS::File::Sale::TYPE_TRACK,
        },
        types => {
            'audio cloud services - subscr' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'audio subscription true up' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'audio track stream portable - subscr' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'audio track stream webcast' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'audio track stream webcast - subscr' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'audio track stream webcast portable' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'audio track stream webcast portable - su' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'digital aud track stream -subscr ltdcat' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'digital online aud album permanent' => {
                formatType => RPS::File::Sale::FORMAT_DOWNLOAD,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'digital online aud track permanent' => {
                formatType => RPS::File::Sale::FORMAT_DOWNLOAD,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'digital online aud track stream' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'digital online aud track stream - subscr' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'digital online vid track stream' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
            'user generated content stream - subscr' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'user generated content stream track' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'video stream video portable - subscr' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
        },
    },
    'digital sales' => {
        countryCode  => 'US',
        currencyCode => 'USD',
        productType  => {
            'complete album' => RPS::File::Sale::TYPE_ALBUM,
            'track'          => RPS::File::Sale::TYPE_TRACK,
        },
        types => {
            'ad supported streams' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'ad supported video streaming (no cprt)' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
            'permanent downloads' => {
                formatType => RPS::File::Sale::FORMAT_DOWNLOAD,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'programmed streaming' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'ephemeral plays' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'fixed plays' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'portable sub client plays' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'portable sub device plays' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'portable sub programmed plays' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'portable sub streams' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'streams' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'subscription programmed streaming' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'tethered/conditional downloads' => {
                formatType => RPS::File::Sale::FORMAT_TETHERED,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'programmed streaming (soundexchange administered)' => {
                formatType => RPS::File::Sale::FORMAT_PERFORMANCE,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'jukebox' => {
                formatType => RPS::File::Sale::FORMAT_JUKEBOX,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'portable sub video dvc plays' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
            'sub user generated streams (umg audio)' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'user generated streams (umg audio / user video)' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'video fixed play' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
            'video streams' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
            'broadcast vod' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
            'internet broadcast radio' => {
                formatType => RPS::File::Sale::FORMAT_PERFORMANCE,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'kiosk' => {
                formatType => RPS::File::Sale::FORMAT_DOWNLOAD,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'sub user generated streams (umg video)' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
            'subscription limited catalog' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'video downloads' => {
                formatType => RPS::File::Sale::FORMAT_DOWNLOAD,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
        },
    },
    'physical' => {
        countryCode  => 'CA',
        currencyCode => 'CAD',
        productType  => {
            'blu-ray disc'                => RPS::File::Sale::TYPE_BLURAY,
            'cd album'                    => RPS::File::Sale::TYPE_CD,
            'cd album plus dvd video'     => RPS::File::Sale::TYPE_DVD_CD_SET,
            'dvd video album ntsc'        => RPS::File::Sale::TYPE_DVD,
            'mc album'                    => RPS::File::Sale::TYPE_CASS,
            'vinyl album 10" 33 rpm'      => RPS::File::Sale::TYPE_LP,
            'vinyl album 10" 45 rpm'      => RPS::File::Sale::TYPE_LP,
            'vinyl album 12" 33 rpm'      => RPS::File::Sale::TYPE_LP,
            'vinyl maxisingle 12" 33 rpm' => RPS::File::Sale::TYPE_LP,
            'vinyl single 7" 33 rpm'      => RPS::File::Sale::TYPE_LP5,
            'vinyl single 7" 45 rpm'      => RPS::File::Sale::TYPE_LP5,
            'vinyl single 12" 33 rpm'     => RPS::File::Sale::TYPE_LP5,
        },
    },
    'physical sales' => {
        countryCode  => 'US',
        currencyCode => 'USD',
        productType  => {
            'compact disc'                => RPS::File::Sale::TYPE_CD,
            'album'                       => RPS::File::Sale::TYPE_LP,
        },
    }
);

sub _processHeader {
    my ($self, %args) = @_;

    if ( $self->{_dateBegin} && $self->{_dateEnd} ) {
        return $self->{_dateBegin}, $self->{_dateEnd};
    }

    if ( $self->sheetname =~ /^(?:Digital|Physical) Sales$/i ) {
        ($self->{_dateBegin}, $self->{_dateEnd}) = $self->_getPeriod();
    }

    return 1;
}

sub _getPeriod {
    my $self = shift;

    my ($start, $end);
    my $dateBegin = lc( $self->_getByFieldName('dateBegin') || '' );
    my $dateEnd   = lc( $self->_getByFieldName('dateEnd')   || '' );

    if ( $dateBegin =~ RE_MMM_YYYY && exists $months{$1} ) {
        $start = sprintf "20%02d-%02d-%02d", $2, $months{$1}, 1;
    }
    if ( $dateEnd =~ RE_MMM_YYYY && exists $months{$1} ) {
        $end = sprintf "20%02d-%02d-%02d", $2, $months{$1}, Days_in_Month( $2, $months{$1} );
    }

    return $start, $end if $start && $end;
}

sub saleDates {
    my $self = shift;

    if ( $self->sheetname =~ /^(?:Digital|Physical)$/i ) {
        return $self->_getPeriod();
    } elsif ( $self->sheetname =~ /^(?:Digital|Physical) Sales$/i ) {
        return $self->{_dateBegin}, $self->{_dateEnd};
    }

    $self->fail("Unable to determine sale period for sheetname: " . $self->sheetname);
}

sub serviceID {
    my $self = shift;

    if ( $self->sheetname =~ /^(?:Digital|Physical|Physical Sales)$/i ) {
        return Client::Service::DSP_UNIVERSAL;
    } elsif ( $self->sheetname =~ /^Digital Sales$/i ) {
        my $service = lc( $self->_getByFieldName('serviceID') || '' );
        my $serviceID = $self->getServiceID($service) || $RPS::Import::ServiceMap::SERVICE_ALIASES{$service};
        return $serviceID
            ? $serviceID
            : $self->fail("Unknown service: $service");
    }

    $self->fail("Unable to determine service.");
}

sub countryCode {
    my $self = shift;

    my $sheetName = lc $self->sheetname;
    if ( exists $mapping{$sheetName}{countryCode} && exists $mapping{$sheetName}{countryCode} ) {
        return $mapping{$sheetName}{countryCode};
    }

    $self->fail("Unable to determine country code.");
}

sub currencyCode {
    my $self = shift;

    my $sheetName = lc $self->sheetname;
    if ( exists $mapping{$sheetName}{currencyCode} && exists $mapping{$sheetName}{currencyCode} ) {
        return $mapping{$sheetName}{currencyCode};
    }

    $self->fail("Unable to determine country code.");
}

sub productType {
    my $self = shift;

    my $sheetName = lc $self->sheetname;
    my $type      = lc( $self->_getByFieldName('productType') || '' );

    if ( $sheetName =~ /^Digital$/i ) {
        return exists $mapping{$sheetName}{productType}{$type} && $mapping{$sheetName}{productType}{$type}
            ? $mapping{$sheetName}{productType}{$type}
            : $mapping{$sheetName}{productType}{_any_};
    }

    if ( exists $mapping{$sheetName}{productType}{$type} && $mapping{$sheetName}{productType}{$type} ) {
        return $mapping{$sheetName}{productType}{$type};
    }

    $self->fail("Unable to determine product type from: '$type'");
}

sub formatType {
    my $self = shift;

    my $sheetName = lc $self->sheetname;
    my $type      = lc( $self->_getByFieldName('formatType') || '' );

    if ( $self->sheetname =~ /^Digital Sales$/i && $type =~ /^broadcast linear programming$/i ) {
        my $salesType = $self->_getByFieldName('_salesType') || '';
        return RPS::File::Sale::FORMAT_PERFORMANCE if $salesType =~ /^ad supported video streaming \(no cprt\)$/i;
    }

    if ( exists $mapping{$sheetName}{types}{$type}{formatType} && $mapping{$sheetName}{types}{$type}{formatType} ) {
        return $mapping{$sheetName}{types}{$type}{formatType};
    }

    $self->fail("Unable to determine format type from: '$type'");
}

sub mediaType {
    my $self = shift;

    return if $self->dataType =~ /physical/i;

    my $sheetName = lc $self->sheetname;
    my $type      = lc( $self->_getByFieldName('mediaType') || '' );

    if ( $self->sheetname =~ /^Digital Sales$/i && $type =~ /^broadcast linear programming$/i ) {
        my $salesType = $self->_getByFieldName('_salesType') || '';
        return RPS::DB::Item::MediaType::kMediaTypeVideo if $salesType =~ /^ad supported video streaming \(no cprt\)$/i;
    }

    if ( exists $mapping{$sheetName}{types}{$type}{mediaType} && $mapping{$sheetName}{types}{$type}{mediaType} ) {
        return $mapping{$sheetName}{types}{$type}{mediaType};
    }

    $self->fail("Unable to determine media type from: '$type'");
}

sub artistName {
    my $self = shift;

    if ( $self->sheetname =~ /^Digital Sales$/i ) {
        return $self->productType eq RPS::File::Sale::TYPE_ALBUM
            ? $self->_getByFieldName('_albumArtist')
            : $self->_getByFieldName('_trackArtist');
    }

    return $self->_getByFieldName('artistName');
}

sub upc {
    my $self = shift;

    my $upc = $self->_getByFieldName('upc') || '';
    $upc =~ s/^(?:00)?(.*)$/$1/;

    return $upc;
}

sub channel    {
    return RPS::File::Sale::CHANNEL_RETAIL;
}

sub priceLevel {
    my $self = shift;

    if ( $self->sheetname =~ /^Physical Sales$/i ) {
        my $level = $self->_getByFieldName('priceLevel') || '';
        return RPS::File::Sale::PLEVEL_BUDGET  if $level =~ /^BUDGET$/i;
        return RPS::File::Sale::PLEVEL_FULL    if $level =~ /^REGULAR FRONTLINE$/i;
        $self->fail("Unable to determine price_level from: '$level'.");
    }

    return RPS::File::Sale::PLEVEL_UNKNOWN;
}

# digital
sub price     { abs( shift->_getByFieldName('price') || 0 ) }
sub unitPrice { abs shift->SUPER::unitPrice }
sub units {
    my $self = shift;

    my $units = $self->_getByFieldName('units') || 0;
    my $price = $self->_getByFieldName('price') || 0;

    if ( $price > 0 ) {
        $units = $units ? abs($units) : 1;
    } elsif ( $price < 0 ) {
       $units = $units ? -1 * abs($units) : -1;
    }

    return $units;
}

# physical
sub netUnits           { $_[0]->_getByFieldName('_netUnits')    || 0 }
sub totalRevenue       { $_[0]->_getByFieldName('totalRevenue') || 0 }
sub sales              { abs( $_[0]->_getByFieldName('sales') || 0 ) }
sub salesRevenue       { $_[0]->totalRevenue > 0 ? $_[0]->totalRevenue     : 0 }
sub returns            { abs( $_[0]->_getByFieldName('returns') || 0 ) }
sub returnsRevenue     { $_[0]->totalRevenue < 0 ? abs $_[0]->totalRevenue : 0 }

sub _isValidSaleRecord {
    my $self = shift;

    my $upc = $self->_getByFieldName('upc') || '';
    # skip multiline header
    return if $upc =~ /UPC/i;

    if ( $self->dataType =~ /physical/i ) {
        return $upc
            && ( $self->_getByFieldName('albumName') || $self->_getByFieldName('artistName') )
            && ( $self->_getByFieldName('_netUnits') || $self->_getByFieldName('totalRevenue') );
    }

    return $self->_getByFieldName('isrc')
        && ( $self->_getByFieldName('albumName') || $self->_getByFieldName('artistName') );
}

1;