package RPS::Import::Nokia::BaseNokia;

use strict;

use Date::Calc qw(Days_in_Month Decode_Month);

use lib '/app/tools/rps/lib';
use RPS::DB::Item::Client;

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

use lib '/app/tools/data_classes/lib';

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

use Data::Dumper;

my %delivery_formats = (
    'DOWNLOAD'              => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Stream'                => RPS::File::Sale::FORMAT_STREAM,
    'Limited Download'      => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Over the Air Download' => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Ringtone'              => RPS::File::Sale::FORMAT_RINGTONE,
    'Ringback'              => RPS::File::Sale::FORMAT_RINGBACK,
    'Over the Air Download' => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Burn'                  => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Other'                 => RPS::File::Sale::FORMAT_STREAM,
    'Play'                  => RPS::File::Sale::FORMAT_STREAM,
    'Realtone'              => RPS::File::Sale::FORMAT_RINGTONE,
    'D'                     => RPS::File::Sale::FORMAT_TETHERED,
    'S'                     => RPS::File::Sale::FORMAT_STREAM,
    'C'                     => RPS::File::Sale::FORMAT_TETHERED,
);

my %gCountryCodeToCurrencyMap = (
    'US' => 'USD',
    'JP' => 'JPY',
    'NZ' => 'NZD',
    'IS' => 'ISD',
    'JM' => 'JMD',
    'EU' => 'EUR',
    'GB' => 'GBP',
    'CA' => 'CAD',
    'AU' => 'AUD',
    'DE' => 'EUR',
    'FR' => 'EUR',
    'BE' => 'EUR',
    'IT' => 'EUR',
    'CH' => 'CHF',
    'PL' => 'PLN',
    'LV' => 'LVL',
    'LT' => 'LTL',
    'KR' => 'KRW',
    'ZA' => 'ZAR',
    'GR' => 'EUR',
    'NL' => 'EUR',
);

my $currencyCode;

#
# public methods
#

sub formatType {
    my $self = shift;
    my $type = $self->_getByFieldName('formatType') || return;
    return $delivery_formats{$type};
}

sub productType {
    my $self        = shift;
    my $isrc        = $self->_getByFieldName('isrc');
    my $productType = RPS::File::Sale::TYPE_TRACK;
    if ( !$isrc ) {
        $productType = RPS::File::Sale::TYPE_ALBUM;
    }
    return $productType;
}

sub serviceID {
    my $self    = shift;
    my $service = $self->_getByFieldName('serviceID');

    my $serviceID;
    if ($service) {
        $serviceID = $self->getServiceID($service) || $self->_getServiceID($service);
    }

    $self->fail("Unknown service '$service'") unless ($serviceID);

    return $serviceID;
}

sub mediaType {
    RPS::DB::Item::MediaType::kMediaTypeAudio;
}

sub saleDates {
    my $self     = shift;
    my $fileName = $self->{filename};
    my ( $year, $month ) = $fileName =~ /[^\d](\d{4})(\d{2})[^\d]/;

    # Not the best place for this, but saleDates was already overloaded this class.
    # The better fix would be to remove this overload and implement date selection
    # like we do in bookpub importers.
    return $self->SUPER::saleDates(@_) if ( $self->_getDateBegin() );

    my ( $dateBegin, $dateEnd );

    ( $dateBegin, $dateEnd ) = $self->_getDates( date_begin => $fileName, type => 'text' );

    unless ( $dateBegin && $dateEnd ) {
        ( $dateBegin, $dateEnd ) = $self->_getDates( date_begin => $fileName, type => 'iso' );
    }

    unless ( $dateBegin && $dateEnd ) {
        ( $dateBegin, $dateEnd ) = $self->_getDates( date_begin => $fileName, type => 'us' );
    }

    unless ( $dateBegin && $dateEnd ) {
        ( $dateBegin, $dateEnd ) = $self->_getDates( date_begin => "$month-$year", type => 'numerical' );
    }

    unless ( $dateBegin && $dateEnd ) {
        ( $dateBegin, $dateEnd ) = $self->_getDates( date_begin => $fileName, type => 'numerical' );
    }

    unless ( $dateBegin && $dateEnd ) {
        $self->errstr("couldn't get dates from file name: $fileName");
        print STDERR "$fileName\n";
        return undef;
    }
    return ( $dateBegin, $dateEnd );

}

sub albumName {
    my $self = shift;
    my $isrc = $self->_getByFieldName('isrc');
    my $albumName;
    if ( !$isrc ) {
        $albumName = $self->_getByFieldName('albumName');
    }
    return $albumName;
}

sub trackName {
    my $self = shift;
    my $isrc = $self->_getByFieldName('isrc');
    my $trackName;
    if ($isrc) {
        $trackName = $self->_getByFieldName('trackName');
    }
    return $trackName;
}

#
# Private methods
#

#
# _getCurrencyCode - use this method if the currency code is determined
# from the client's default country code
#
sub _getCurrencyCode {
    my $self = shift;

    my $clientID = $self->{clientID};

    my $client = RPS::DB::Item::Client->Lookup( client_id => $clientID );
    my $country_code = $client->country_code;
    $currencyCode = $gCountryCodeToCurrencyMap{$country_code};

    if ( !$currencyCode ) {
        $self->errstr("couldn't get base currency from country of origin");
        print STDERR "couldn't get base currency from country of origin\n";
        return undef;
    }
    return $currencyCode;
}

sub _getServiceID {
    my $self    = shift;
    my $service = shift;

    if ( $service =~ /^ovi music/i ) {
        return Client::Service::DSP_OVI_MUSIC;
    }

    return undef;
}

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