package RPS::Import::EMIMusic::iTunesWeekly::v1;

use strict;

use Date::Calc qw(Days_in_Month);

use lib '/app/tools/common/lib';
use Common::Util;
use Common::Consts;

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

use lib '/app/tools/rps/lib';
use RPS::File::Sale;
use RPS::DB::Item::MediaType;

use RPS::Import::Importer;
use base 'RPS::Import::Importer';


#Provider
#Provider Country
#Vendor Identifier
#UPC
#ISRC
#Artist   Show
#Title
#Label Studio Network
#Product Type Identifier
#Units
#Royalty Price
#Download Date (PST)
#Order Id
#Postal Code
#Customer Identifier
#Report Date (Local)
#Sale Return
#Customer Currency
#Country Code
#Royalty Currency
#PreOrder
#ISAN
#Customer Price
#Apple Identifier
#CMA
#Asset Content Flavor
#Vendor Offer Code
#Grid
#Promo Code
#Parent Identifier

sub _fieldMap {
    {
        clientProductID     => 'C',
        upc                 => 'D',
        isrc                => 'E',
        artistName          => 'F',
        labelName           => 'H',
        units               => 'J',
        price               => 'K',
        dateBegin           => 'P',
        countryCode         => 'S',
        currencyCode        => 'T',
        serviceProductID    => 'X',
	}
}

sub _unverifiedFieldMap {{
        title               => 'G',
        appleProductType    => 'I',
}}

sub _headerIdentifier { ( upc => 'UPC' ) }

sub _mapAppleProductType
{
    my ($self) = @_;
    
    my $iTunesType = lc($self->_getByFieldName('appleProductType'));
    my $isrc = $self->isrc();

    if ($iTunesType eq 'v')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_TRACK;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOAD;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeVideo;
    }
    elsif ($iTunesType eq 'j')
    {
        $self->{_productType} = ($isrc) ? RPS::File::Sale::TYPE_TRACK : RPS::File::Sale::TYPE_ALBUM;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOADPREMIUM;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeVideo;
    }
    elsif ($iTunesType eq 'x')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_TRACK;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOADUPGRADE;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeVideo;
    }
    elsif ($iTunesType eq 'p')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_ALBUM;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOAD;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
    elsif ($iTunesType eq 's')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_TRACK;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOAD;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
    elsif ($iTunesType eq 'h')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_TRACK;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOADPREMIUM;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
    elsif ($iTunesType eq 'i')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_ALBUM;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOADPREMIUM;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
    elsif ($iTunesType eq 'u')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_TRACK;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOADUPGRADE;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
    elsif ($iTunesType eq 'w')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_ALBUM;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOADUPGRADE;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
    elsif ($iTunesType eq 'r')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_TRACK;
        $self->{_formatType} = RPS::File::Sale::FORMAT_RINGTONE;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
    elsif ( $iTunesType eq 'e' )
    {
        $self->{_productType} = RPS::File::Sale::TYPE_ALBUM;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOAD; # Case 13085
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeVideo;
    }
    elsif ( $iTunesType eq 'f' )
    {
        $self->{_productType} = RPS::File::Sale::TYPE_ALBUM;
        $self->{_formatType} = RPS::File::Sale::FORMAT_TETHERED; # Case 13085
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeVideo;
    }
    elsif ($iTunesType eq 'pr')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_TRACK;
        $self->{_formatType} = RPS::File::Sale::FORMAT_RINGTONE;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
    elsif ($iTunesType eq 'm')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_ALBUM;
        $self->{_formatType} = RPS::File::Sale::FORMAT_DOWNLOAD;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeVideo;
    }
    elsif ($iTunesType eq 'd')
    {
        $self->{_productType} = RPS::File::Sale::TYPE_ALBUM;
        $self->{_formatType} = RPS::File::Sale::FORMAT_TETHERED;
        $self->{_mediaType} = RPS::DB::Item::MediaType::kMediaTypeVideo;
    }
    # !!! Wait, is 'blank' supposed to be valid?
#    elsif('' ne $iTunesType )
    else
    {
        $self->fail("Unknown iTunes type '$iTunesType'");
        return undef;
    }
                
    return 1;
}


# This method gets called for every line.
# So it's a good place to derive whether this is a track or an album, and
# set the various fields accordingly.
#
sub _isValidSaleRecord 
{
	my $self = shift;

    # Reset the private fields.
    #
    $self->{_productType} = undef;
    $self->{_formatType} = undef;
    $self->{_mediaType} = undef;
    $self->{_albumTitle} = undef;
    $self->{_trackTitle} = undef;

    my $title = $self->_getByFieldName('title');

    # !!! I guess we don't want to treat title as a must-have column?   
    # !!! I find that weird.
    #
#    return undef unless ($self->units && $title && $self->countryCode && $self->currencyCode);
    return undef unless ($self->units && $self->countryCode && $self->currencyCode);

    
    # Try to map Apple's product type code to our three codes.
    #
    return undef unless $self->_mapAppleProductType();

    
    # Now set the correct title.
    #
    if (RPS::File::Sale::TYPE_TRACK eq $self->{_productType})
    {
        $self->{_trackTitle} = $title;
    }
    elsif (RPS::File::Sale::TYPE_ALBUM eq $self->{_productType})
    {
        $self->{_albumTitle} = $title;
    }
    else
    {
        # !!! This shouldn't happen...
        #
        $self->fail("Unable to determine whether this is a track or an album");
    }


    return 1;
}


sub formatType
{
	my $self = shift;
    return $self->{_formatType};
}

sub productType 
{
	my $self = shift;
    return $self->{_productType};
}
	    
sub mediaType 
{
	my $self = shift;
    return $self->{_mediaType};
}

sub trackName
{
    my $self = shift;
    return $self->{_trackTitle};
}

sub albumName
{
    my $self = shift;
    return $self->{_albumTitle};
}



# Overriding this to check the client id.
# We want to limit this to EMI exclusively.
# The advantage of doing that here is that we can just
# throw an exception, and it will gracefully be transformed into an error
# message attached to the file that the user can see on the Tracker page.
#
sub _importLines
{
    my $self = shift;
    my %args = @_;

    die "File Format not available" unless Client::Client::kEMI == Common::RSApp::GetClientID();

    return $self->SUPER::_importLines(%args);
}



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