package RPS::Import::EMI::Physical;

use strict;

use lib '/app/tools/common/lib';
use Common::Date;

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

use Data::Dumper;

sub _processHeader {
    my $self = shift;

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

    my $label = $self->_getByFieldName('dateLabel') || return;
    my $value = $self->_getByFieldName('dateValue') || return;

    if( $label =~ /month/i && $value ) {
        $self->{_month} = $value;
    }
    elsif( $label =~ /year/i && $value ) {
        $self->{_year} = $value;
    }

    if( $self->{_month} && $self->{_year} ) {
        my $d = new Common::Date( "$self->{_month} 1, $self->{_year}" );
        $self->{_dateBegin} = $self->{_dateEnd} = $d->asString;
    }

    die if( $self->_isHeader() );
}

sub _preProcess {

    my $self = shift;

    my %args = @_;
    my $fileName = $args{file}->OrigFileName();

    my $currencyCode;
    my $countryCode;

    # If the filename contains "_CA" or "_CANADA", followed by spaces or an underscore or period,
    # then assume it's Canadian.
    # If the filename contains "_US" or "_USA", followed by spaces or an underscore or period,
    # then assume it's US.
    #
    if ( $fileName =~ /_ca(nada)?(\s+|_|\.)/i )
    {
        $currencyCode = "CAD";
        $countryCode  = "CA";
    }
    elsif ( $fileName =~ /_us(a)?(\s+|_|\.)/i )
    {
        $currencyCode = "USD";
        $countryCode  = "US";
    }
    else
    {
        return undef;
    }

    # Get date information from the filename if it's there (FB279)
    #
    if ( $fileName =~ /(\d{4})-(\d{1,2})/i ) # YYYY-M or YYYY-MM
    {
        $self->{_dateBegin} = sprintf("%4d-%02d-01", $1, $2, 1 );
    }


    $self->{_currencyCode} = $currencyCode;
    $self->{_countryCode}  = $countryCode;
}


sub _getDateBegin { shift->{_dateBegin} }
sub _getDateEnd   { shift->{_dateEnd} }

sub physical     { 1 }
sub channel      { RPS::File::Sale::CHANNEL_RETAIL }
sub priceLevel   { RPS::File::Sale::PLEVEL_FULL }

sub countryCode  {
    my $self = shift;
    $self->fail("Filename doesn't contain CA or US") if( !$self->{_countryCode} );
    return $self->{_countryCode};
}

sub currencyCode {
    my $self = shift;
    $self->fail("Filename doesn't contain CA or US") if( !$self->{_currencyCode} );
    return $self->{_currencyCode};
}

sub upc {
    my $upc = shift->SUPER::upc() || return;
    $upc =~ /(\d+)/;
    return $1;
}

sub albumName {
    my $name = shift->SUPER::albumName() || return;
    my ( $artist, $album ) = split( /\//, $name );
    return $album;
}

sub artistName {
    my $name = shift->SUPER::albumName() || return;
    my ( $artist, $album ) = split( /\//, $name );
    return $artist;
}

sub productType           {
    my $type = shift->_getByFieldName( 'productType' ) || return;

    if( $type =~ /^p/i ) {
        return RPS::File::Sale::TYPE_CD
    }

    die "Unknown product type '$type'";
}

sub returns {
    my $returns = shift->SUPER::returns();
    return $returns && $returns < 0 ? $returns * -1 : $returns;
}

sub returnsRevenue {
    my $self = shift;
    my $revenue = $self->SUPER::returnsRevenue;

    return $revenue ? $revenue * -1 : 0;
}

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