package RPS::Import::INGrooves::Nettwerk2;

use strict;

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

sub _fieldMap {
    {
        labelName        => 'N',
        serviceID        => 'B',
        countryCode      => 'L',
        dateBegin        => 'C',
        dateEnd          => 'C',
        productType      => 'Q', # PRODUCT TYPE
        formatType       => 'P', # ASSET TYPE
        mediaType        => 'O', # SALES TYPE
        artistName       => 'D',
        serviceProductID => 'K', # CATALOG
        upc              => 'F',
        albumName        => 'E',
        isrc             => 'I',
        trackName        => 'G',
        units            => 'R',
        price            => 'T',
    }
}

sub _headerIdentifier { ( artistName => 'ARTIST' ) }

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 );

sub _processDates
{
    my $self = shift;
    my $period = $self->_getByFieldName( 'dateBegin' );
    my ($begin_y, $begin_m, $begin_d, $end_y, $end_m, $end_d);

    # this period looks like this: '2013-Apr-01 - 2013-Apr-30'
    $period =~ m/^(\d{4})-(\w{3})-(\d{1,2}) - (\d{4})-(\w{3})-(\d{1,2})$/i;
    $begin_y = $1; $begin_m = $2; $begin_d = $3; $end_y = $4; $end_m = $5; $end_d = $6;

    return $begin_y, $begin_m, $begin_d, $end_y, $end_m, $end_d;
}

sub _getDateBegin
{
    my $self = shift;
    my ($begin_y, $begin_m, $begin_d, $end_y, $end_m, $end_d) = $self->_processDates();

    my $startDate = sprintf( "%04s-%02s-%02s", $begin_y, $months{lc($begin_m)}, $begin_d );

    return $startDate;
}

sub _getDateEnd
{
    my $self = shift;
    my ($begin_y, $begin_m, $begin_d, $end_y, $end_m, $end_d) = $self->_processDates();

    my $endDate = sprintf( "%04s-%02s-%02s", $end_y, $months{lc($end_m)}, $end_d );

    return $endDate;
}


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