package RPS::Import::Sony::SMEPreProc;

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;

# okay, this may pretend to be looking like a base class importer
# for something meaningful going forward, but it's really just a hack
# that i threw together so that we could import what appear to be
# spotify sales in sme's preproc format. something real (and generic
# to preproc) would actually not force product and format types
# (or country codes for that matter)
#
# in the big picture i don't really see a future for this importer
# (and we're only doing it now for an *EMI* demo), but i've lost
# track of the future.
#
# for a list of suspects, see scott holcombe, bob kohn and
# damon sheerin (and jeff jengo maybe)

sub _fieldMap {
    {
        # Header
        currencyCode     => 'E',

        # Data
        dateBegin        => 'I',
        dateEnd          => 'J',
        artistName       => 'P',
        upc              => 'L',
        albumName        => 'Q',
        isrc             => 'M',
        trackName        => 'R',
        units            => 'AE',
        price            => 'Z',
    }
}
 
sub _unverifiedFieldMap {
    {
        recordType       => 'A',
    }
}

sub _headerIdentifier { (recordType => 'A') }

sub _processHeader {
    my $self = shift;
    my $currencyCode = $self->SUPER::currencyCode || return;

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

    $self->{_currencyCode} = $currencyCode if ($currencyCode =~ /^\w{3}$/);
}

sub _productTypes { undef }

sub currencyCode { shift->{_currencyCode} }

sub countryCode { 'SE' }

sub formatType { RPS::File::Sale::FORMAT_STREAM }

sub productType { RPS::File::Sale::TYPE_TRACK }

sub upc {
    my $idfield = shift->SUPER::upc;

    my ($upc) = $idfield =~ m/^(\d*)\s*/;

    return $upc;
}


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