package RPS::Import::Sony::v8;

use strict;

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

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

use Data::Dumper;

sub _headerIdentifier { ( dateBegin => 'Month' ) }

sub _fieldMap {
    {
        labelName   => 'D',
        countryCode => 'G',
        dateBegin   => 'N',
        dateEnd     => 'N',
        productType => 'O',
        artistName  => 'J',
        albumName   => 'I',
        trackName   => 'I',
        formatType  => 'H',
        units       => 'Z',
        price       => 'AA',
        mediaType   => 'O',
    };
}

sub currencyCode { 'AUD' }

sub mediaType {
    my $self = shift;
    my $mediaType = uc( $self->_getByFieldName('mediaType') ) || return;
    if ( $mediaType =~ /B5$/ ) {
        return RPS::DB::Item::MediaType::kMediaTypeVideo;
    } else {
        return RPS::DB::Item::MediaType::kMediaTypeAudio;
    }
}

sub countryCode {

    my $self = shift;
    my $countryName = uc( $self->_getByFieldName('countryCode') ) || return;

    if ( $countryName eq 'NEZ' ) {
        $countryName = 'NZL';
    }

    my $cObj = Common::Country->Get($countryName);
    my $countryCode = $cObj->alpha2() if ($cObj);
    if ( !$countryCode ) {
        $self->fail("Could not determine country code from $countryName");
        return undef;
    }
    return $countryCode;
}

sub _getDateBegin {

    my $self = shift;
    my $dateBegin = lc( $self->_getByFieldName('dateBegin') ) || return;

    my $month = substr( $dateBegin, 0, 2 );

    my $year = substr( $dateBegin, 2 );

    if ( $month eq '1h' ) {
        $month = '01';
    } elsif ( $month eq '2h' ) {
        $month = '07';
    } else {
        $self->fail("Could not determine date from $dateBegin");
        return undef;
    }

    $dateBegin = $year . "-" . $month . "-01";
    return $dateBegin;
}

sub _getDateEnd {

    my $self = shift;
    my $dateEnd = lc( $self->_getByFieldName('dateEnd') ) || return;

    my $month = substr( $dateEnd, 0, 2 );
    my $year = substr( $dateEnd, 2 );
    if ( $month eq '1h' ) {
        $month = '06-30';
    } elsif ( $month eq '2h' ) {
        $month = '12-31';
    } else {
        $self->fail("Could not determine date from $dateEnd");
        return undef;
    }

    $dateEnd = $year . "-" . $month;
    return $dateEnd;
}

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

    if ( $productType =~ m/\w{1} (.{2})/ ) {
        my $productCode = $1;

        if ( $productCode == 91 ) {
            return RPS::File::Sale::TYPE_TRACK;

        } elsif ( $productCode == 95 ) {
            return RPS::File::Sale::TYPE_ALBUM;

        } elsif ( $productCode eq 'b5' ) {
            return RPS::File::Sale::TYPE_TRACK;

        } elsif ( $productCode eq 'r3' ) {
            return RPS::File::Sale::TYPE_TRACK;

        } elsif ( $productCode eq 'r5' ) {
            return RPS::File::Sale::TYPE_TRACK;

        }
    }

    $self->fail("Could not determine product type from $productType");
    return undef;
}

sub formatType {
    my $self = shift;
    my $format = lc( $self->_getByFieldName('formatType') ) || return;

    if ( $format eq 'cds' ) {
        return RPS::File::Sale::FORMAT_STREAM;

    } elsif ( $format eq 'bdd' ) {
        return RPS::File::Sale::FORMAT_DOWNLOAD;

    } elsif ( $format eq 'dol' ) {
        return RPS::File::Sale::FORMAT_DOWNLOAD;

    } elsif ( $format eq 'dts' ) {
        return RPS::File::Sale::FORMAT_RINGTONE;
    }

    $self->fail("Could not determine format from $format");
    return undef;
}

sub trackName {
    my $self = shift;
    return $self->productType eq RPS::File::Sale::TYPE_ALBUM ? undef : $self->SUPER::trackName;
}

sub albumName {
    my $self = shift;
    return $self->productType eq RPS::File::Sale::TYPE_TRACK ? undef : $self->SUPER::albumName;
}

sub _isValidSaleRecord {
    my $self = shift;

    return ( defined( $self->units ) && ( $self->albumName || $self->trackName ) );
}

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