#---------------------------------------------------------------
# ____                   _ _         ____  _
#|  _ \ ___  _   _  __ _| | |_ _   _/ ___|| |__   __ _ _ __ ___
#| |_) / _ \| | | |/ _` | | __| | | \___ \| '_ \ / _` | '__/ _ \
#|  _ < (_) | |_| | (_| | | |_| |_| |___) | | | | (_| | | |  __/
#|_| \_\___/ \__, |\__,_|_|\__|\__, |____/|_| |_|\__,_|_|  \___|
#            |___/             |___/
#
# Copyright (C) 2010 RoyaltyShare, Inc.   All Rights Reserved
#---------------------------------------------------------------

package RPS::Import::Cleopatra::v1;

use strict;

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

sub _headerIdentifier { ( countryCode => 'Territory' ) }

sub _fieldMap {
    {
        countryCode => 'U',
        dateBegin   => 'Y',
        productType => 'X',
        formatType  => 'X',
        artistName  => 'AC',
        upc         => 'AA',
        albumName   => 'AB',
        isrc        => 'AA',
        trackName   => 'AB',
        units       => 'T',
        price       => 'AP',
    };
}

sub mediaType    { RPS::DB::Item::MediaType::kMediaTypeAudio }
sub currencyCode { 'USD' }

sub upc {
    my $self = shift;
    my $upc = $self->_getByFieldName('upc') || return;
    return $self->productType eq RPS::File::Sale::TYPE_ALBUM ? $upc : undef;
}

sub isrc {
    my $self = shift;
    my $isrc = $self->_getByFieldName('isrc') || return;
    return $self->productType eq RPS::File::Sale::TYPE_TRACK ? $isrc : undef;
}

sub albumName {
    my $self = shift;
    my $albumName = $self->_getByFieldName('albumName') || return;
    return $self->productType eq RPS::File::Sale::TYPE_ALBUM ? $albumName : undef;
}

sub trackName {
    my $self = shift;
    my $trackName = $self->_getByFieldName('trackName') || return;
    return $self->productType eq RPS::File::Sale::TYPE_TRACK ? $trackName : undef;
}

sub productType {
    my $self = shift;
    my $type = $self->_getByFieldName('productType') || return;    # col S
    my $upc  = $self->_getByFieldName('upc');
    if ( $type =~ /^as|s|dt|td|ut|dr$/i ) {
        return RPS::File::Sale::TYPE_TRACK;
    } elsif ( $type =~ /^da$/i ) {
        return RPS::File::Sale::TYPE_ALBUM;
    } elsif ( $type =~ /^dd$/i ) {

        # if UPC starts with a number then it's an album, otherwise it's a track
        #
        return ( $upc =~ /^\d/ ) ? RPS::File::Sale::TYPE_ALBUM : RPS::File::Sale::TYPE_TRACK;
    }

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

sub formatType {
    my $self = shift;
    my $type = $self->_getByFieldName('formatType') || return;    # col S
    if ( $type =~ /^as|s$/i ) {
        return RPS::File::Sale::FORMAT_STREAM;
    } elsif ( $type =~ /^dt|da|dd$/i ) {
        return RPS::File::Sale::FORMAT_DOWNLOAD;
    } elsif ( $type =~ /^td$/i ) {
        return RPS::File::Sale::FORMAT_TETHERED;
    } elsif ( $type =~ /^ut$/i ) {
        return RPS::File::Sale::FORMAT_DOWNLOADUPGRADE;
    } elsif ( $type =~ /^dr$/i ) {
        return RPS::File::Sale::FORMAT_RINGTONE;
    }

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

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