package RPS::Import::Ogangi;

use strict;

use Data::Dumper;
use lib '/app/tools/common/lib';
use Common::Util qw(normalize_upc normalize_isrc);
use Date::Calc qw(Days_in_Month);

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

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

sub _headerIdentifier { ( countryCode => 'Territory' ) }

sub _fieldMap {
    my $self = shift;

    my %fieldMap = (
        1 => {
            serviceID        => 'E',
            countryCode      => 'C',
            dateBegin        => 'B',
            dateEnd          => 'B',
            formatType       => 'F',
            serviceProductID => 'A',
            trackName        => 'B',
            units            => 'I',
            currencyCode     => 'N',
            price            => 'N',
        },
    );

    return $fieldMap{ $self->_version() };
}

sub mediaType   { RPS::DB::Item::MediaType::kMediaTypeAudio }
sub productType { RPS::File::Sale::TYPE_TRACK }

sub countryCode {
    my $self = shift;

    my $name    = $self->_getByFieldName('countryCode');
    my $country = Common::Country->Get($name);
    if ($country) {
        return $country->alpha2();
    } else {
        return $name;
    }
}

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

    my $serviceID = $self->getServiceID( lc($service) ) || $RPS::Import::ServiceMap::SERVICE_ALIASES{ lc $service };

    return $serviceID if ($serviceID);

    $self->fail("Unknown service: $service");
}

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

    if ( $type =~ /^rbt$/i ) {
        return RPS::File::Sale::FORMAT_RINGTONE;
    }

    $self->fail("Could not parse format type from '$type'");
}

sub saleDates {
    my $self = shift;
    return ( $self->{_startDate}, $self->{_endDate} ) if ( $self->{_startDate} );    # from header; see _preProcess
}

sub currencyCode {
    my $self = shift;
    return $self->{_currencyCode} if ( $self->{_currencyCode} );                     # from header; see _preProcess
}

sub _preProcess {
    my $self = shift;
    my %args = @_;

    Log->info("Starting _preProcess");
    $self->SUPER::_preProcess(%args);

    my $linenum = 1;
    foreach my $line ( @{ $args{lines} } ) {

        $self->{line} = $line;

        # Get the currency code from the header
        #
        if ( $linenum == 4 ) {
            my $curstr = $self->_getByFieldName('currencyCode');

            if ( $curstr =~ /(\w{3}) Royalty/i ) {
                $self->{_currencyCode} = $1;
            } else {
                print STDERR "_preProcess: WARNING: Unable to decode '$curstr' in header\n";
                $self->fail("Unable to decode currency code from header");
            }
        }

        # Get the date from the header
        #
        if ( $linenum == 1 ) {
            my $dt = $self->_getByFieldName('dateBegin');

            if ( $dt =~ /^(\d{2}) (\w{3})\w* (\d{4})\s*-\s*(\d{2}) (\w{3})\w* (\d{4})/ ) {
                my ( $startDay, $startMonth, $startYear, $endDay, $endMonth, $endYear ) = ( $1, $2, $3, $4, $5, $6 );

                my %months = (
                    'JAN' => '01',
                    'FEB' => '02',
                    'MAR' => '03',
                    'APR' => '04',
                    'MAY' => '05',
                    'JUN' => '06',
                    'JUL' => '07',
                    'AUG' => '08',
                    'SEP' => '09',
                    'OCT' => '10',
                    'NOV' => '11',
                    'DEC' => '12',
                );

                $startMonth = $months{ uc($startMonth) };
                $endMonth   = $months{ uc($endMonth) };

                $self->{_startDate} = sprintf( "%04d-%02d-%02d", $startYear, $startMonth, $startDay );

                $self->{_endDate} = sprintf( "%04d-%02d-%02d", $endYear, $endMonth, $endDay );

            } else {
                print STDERR "_preProcess: WARNING: Unable to decode date '$dt'\n";
                $self->errstr("Unable to decode date '$dt' in header");
                return undef;
            }

            last;    # done processing header
        }

        $linenum++;
    }
}

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