package RPS::Import::Universal::v70;

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 Sales
                labelName   => 'B',
                serviceID   => 'D',
                dateBegin   => 'O',
                dateEnd     => 'O',
                productType => 'F',
                formatType  => 'C',
                upc         => 'I',
                albumName   => 'H',
                isrc        => 'N',
                trackName   => 'K',
                units       => 'P',
                price       => 'O',
                mediaType   => 'C',
            },
            option2 => {    # CAD dig
                labelName   => 'C',
                dateBegin   => 'A',
                dateEnd     => 'A',
                productType => 'G',
                formatType  => 'I',
                artistName  => 'D',
                upc         => 'E',
                albumName   => 'F',
                isrc        => 'G',
                trackName   => 'H',
                units       => 'K',
                price       => 'J',
                mediaType   => 'I',
            },
        },
        physical => {
            option1 => {    # Physical Sales
                labelName    => 'B',
                dateBegin    => 'Q',
                dateEnd      => 'Q',
                productType  => 'H',
                artistName   => 'C',
                upc          => 'E',
                albumName    => 'D',
                priceLevel   => 'J',
                sales        => 'K',
                returns      => 'L',
                totalRevenue => 'Q',
            },
            option2 => {    # CAD phys
                labelName    => 'D',
                dateBegin    => 'B',
                dateEnd      => 'B',
                productType  => 'J',
                artistName   => 'E',
                upc          => 'F',
                albumName    => 'G',
                sales        => 'R',
                returns      => 'S',
                totalRevenue => 'Q',
            },
        },
    };
}

sub _unverifiedFieldMapExtended {
    {
        digital => {
            option1 => {   # Digital Sales
                _albumArtist => 'G',
                _trackArtist => 'J',
            },
        },
        physical => {
            option1 => {    # Physical Sales
                _netUnits => 'M',
            },
            option2 => {    # CAD phys
                _netUnits => 'T',
            },
        },
    };
}

sub _headerIdentifierExtended {
    {
        digital => {
            option1 => {    # Digital
                productType => 'Sold As',
            },
            option2 => {    # Digital Sales
                price => 'Net Sales',
            },
        },
        physical => {
            option1 => {    # Physical
                priceLevel => 'Price Level',
            },
            option2 => {    # Physical Sales
                _netUnits => 'Net Quantity',
            },
        },
    };
}

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 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,
            },
            'conditional mastertone' => {
                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,
            },
            'jukebox' => {
                formatType => RPS::File::Sale::FORMAT_JUKEBOX,
	            mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'kiosk' => {
                formatType => RPS::File::Sale::FORMAT_JUKEBOX,
	            mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'internet broadcast radio' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'mobile audio streams' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'ota permanent downloads' => {
                formatType => RPS::File::Sale::FORMAT_DOWNLOAD,
	            mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'permanent downloads' => {
                formatType => RPS::File::Sale::FORMAT_DOWNLOAD,
	            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,
            },
            'portable sub video dvc plays' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeVideo,
            },
            'programmed streaming' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'programmed streaming (non-royalty bearing)' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'programmed streaming (soundexchange administered)' => {
                formatType => RPS::File::Sale::FORMAT_PERFORMANCE,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'ringbacks' => {
                formatType => RPS::File::Sale::FORMAT_RINGTONE,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'standard mobile ringsounds' => {
                formatType => RPS::File::Sale::FORMAT_RINGTONE,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'streams' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'subscription ota permanent downloads (audio)' => {
                formatType => RPS::File::Sale::FORMAT_DOWNLOAD,
	            mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'subscription programmed streaming' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            'sub user generated streams (umg audio)' => {
                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,
            },
            'user generated streams (umg audio / user video)' => {
                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,
            },
            '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,
            },
        },
    },
    'cad dig' => {
        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 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 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,
            },
            'telco breakage - audio subscr' => {
                formatType => RPS::File::Sale::FORMAT_STREAM,
                mediaType  => RPS::DB::Item::MediaType::kMediaTypeAudio,
            },
            '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,
            },
        },
    },
    'physical sales' => {
        countryCode  => 'US',
	    currencyCode => 'USD',
        productType  => {
            'compact disc' => RPS::File::Sale::TYPE_CD,
            'album'        => RPS::File::Sale::TYPE_LP,
        },
    },
    'cad phys' => {
        countryCode  => 'CA',
	    currencyCode => 'CAD',
        productType => {
            'cd album'               => RPS::File::Sale::TYPE_CD,
            'vinyl album 12" 33 rpm' => 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 =~ /^CAD (?:dig|phys)$/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 =~ /^(?:CAD (?:dig|phys)|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 =~ /^CAD dig$/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 ( 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 ( 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 isrc {
    my $self = shift;

    my $isrc = $self->_getByFieldName('isrc') || '';
    if ( $self->sheetname =~ /^Digital Sales$/i ) {
        return $self->productType eq RPS::File::Sale::TYPE_TRACK
            ? $isrc
            : undef;
    }

    return $isrc;
}

sub trackName {
    my $self = shift;

    my $trackName = $self->_getByFieldName('trackName') || '';
    if ( $self->sheetname =~ /^Digital Sales$/i ) {
        return $self->productType eq RPS::File::Sale::TYPE_TRACK
            ? $trackName
            : undef;
    }

    return $trackName;
}

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 returns            { abs( $_[0]->_getByFieldName('returns') || 0 ) }
sub salesRevenue       { $_[0]->totalRevenue > 0 ? $_[0]->totalRevenue     : 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('albumName') || $self->_getByFieldName('artistName') )
        && ( $self->price || $self->units );
}


1;