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.
###