package RPS::Import::OrchardBase;

use strict;

use Date::Calc qw(Days_in_Month);

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

use lib '/app/tools/data_classes/lib';
use Client::Service;

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

sub _parseServiceCountry {
    my $self = shift;
    my ( $service, $errors ) = @_;
    my $orig_service = $service;
    my $countryCode;

    $service = lc $service;

    my $raw_value = $service;
    my $country;

    # we expect some non-word chars, but not with spaces around them
    my @service_country_parts = split( " ", $service );

    # First see if the values are tab delimited
    if ( $service =~ /:::/ ) {
        ( $service, $country ) = split( ":::", $service );
    }

    # Then try to parse by word count.
    elsif ( @service_country_parts == 2 ) {
        $country = $service_country_parts[1];
    } elsif ( @service_country_parts == 3 ) {
        $country = $service_country_parts[2];
        $service = $service_country_parts[0] . " " . $service_country_parts[1];
    } elsif ( @service_country_parts == 4 ) {
        $service = $service_country_parts[0] . " " . $service_country_parts[1];
        $country = $service_country_parts[2] . " " . $service_country_parts[3];
    } else {
        $country = $service;
    }

    my $backup_service = $service;
    $backup_service =~ s/\s.*$//;

    # by now if there are two or more words separated by a space, then the first chunk
    # is the service and the rest is the country

    $country =~ s/belguim/belgium/;
    $country =~ s/luxambourg/luxembourg/;
    $country = "japan"                                 if ( $raw_value =~ /japan/i );
    $country = "japan"                                 if ( $raw_value =~ /jp/i );
    $country = "germany"                               if ( $raw_value =~ /germany/i );
    $country = "united kingdom"                        if ( $raw_value =~ /uk/ );
    $country = "united kingdom"                        if ( $raw_value =~ /gb/ );
    $country = "spain"                                 if ( $raw_value =~ /spain/ );
    $country = "canada"                                if ( $raw_value =~ /canada/i );
    $country = "us"                                    if ( $country =~ /\sus/i );
    $country = "france"                                if ( $raw_value =~ /france/i );
    $country = "italy"                                 if ( $raw_value =~ /italy/i );
    $country = "Congo, the Democratic Republic of the" if ( $raw_value =~ /congo, ?democratic republic of the/i );
    $country = "Lao People's Democratic Republic"      if ( $raw_value =~ /laos/i );
    $country = "Côte d'Ivoire"                        if ( $raw_value =~ /c\w+te d\\'ivoire/i );
    $country = "TW"                                    if ( $raw_value =~ /taiwan,province of china/i );
    $country = "VI"                                    if ( $raw_value =~ /virgin islands,u.s./i );
    $country = "CI"                                    if ( $country =~ /c\x93te d'ivoire/i );

    if ($country) {
        if ( my $obj = Common::Country->Get($country) ) {
            $countryCode = $obj->alpha2();
        } else {
            die "Unknown country '$country'";

            # It seemed that previous versions of this importer defaulted to US if
            # a country code wasn't found.  This didn't seem right so I've disabled it
            # when this was converted to the new Country API
            #$countryCode = 'US';
        }
    } else {
        $countryCode = "US";
    }

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

    $serviceID = $self->getServiceID($backup_service) || $RPS::Import::ServiceMap::SERVICE_ALIASES{ lc $backup_service }
      if ( $serviceID eq "" );

    unless ( $serviceID || $errors->{$service} ) {
        $self->errstr( "unknown service: " . $service . " : " . $orig_service );
        print STDERR "unknown service: " . $service . " : " . $orig_service . "\n";
        $errors->{$service} = 1;
    }
    $countryCode = "GB" if ( $_[0] =~ /\sUK/ );

    unless ( $countryCode || $errors->{$country} ) {
        $self->errstr( 'unknown country:' . $country );
        print STDERR "unknown country: '$country' ($_[0])\n";
        $errors->{$country} = 1;
    }
    return ( $serviceID, $countryCode );
}

sub _getDates {
    my $self = shift;
    my $date = shift;
    my ( $month, $year );
    my $offset = 0;

    if ( $date =~ m/^(\d+)$/ ) {
        $date = Spreadsheet::ParseExcel::Utility::ExcelFmt( "yyyy-mm-dd", $date );
    }

    if ( $date =~ m/^(\d{4})q([1234]$)/i ) {
        $month  = $2 * 3;
        $year   = $1;
        $offset = 2;
    } elsif ( $date =~ m/Q([1234])(\d\d)/i ) {
        $month  = $1 * 3;
        $year   = $2 + 2000;
        $offset = 2;
    } elsif ( $date =~ m/^(\d{4})m(\d{1,2})$/i ) {
        $month = $2;
        $year  = $1;
    } elsif ( $date =~ m/^(\d{4})-(\d{1,2})-(\d{1,2})$/i ) {
        $month = $2;
        $year  = $1;
    } elsif ( $date =~ m/(\w*) (\d{4})/ ) {
        my %months = (
            Jan => 1,
            Feb => 2,
            Mar => 3,
            Apr => 4,
            May => 5,
            Jun => 6,
            Jul => 7,
            Aug => 8,
            Sep => 9,
            Oct => 10,
            Nov => 11,
            Dec => 12
        );
        ( $month, $year ) = $date =~ m/(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\w* (\d{4})/i;
        $month = $months{$month};
    } elsif ( $date =~ m/(\w*)-(\d{4})/ ) {
        my %months = (
            Jan => 1,
            Feb => 2,
            Mar => 3,
            Apr => 4,
            May => 5,
            Jun => 6,
            Jul => 7,
            Aug => 8,
            Sep => 9,
            Oct => 10,
            Nov => 11,
            Dec => 12
        );
        ( $month, $year ) = $date =~ m/(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\w*-(\d{4})/i;
        $month = $months{$month};
    } elsif ( $date =~ m/(\w{3})-(\d{2})/ ) {
        my %months = (
            Jan => 1,
            Feb => 2,
            Mar => 3,
            Apr => 4,
            May => 5,
            Jun => 6,
            Jul => 7,
            Aug => 8,
            Sep => 9,
            Oct => 10,
            Nov => 11,
            Dec => 12
        );
        ( $month, $year ) = $date =~ m/(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\w*-(\d{2})/i;
        $month = $months{$month};
        $year += 2000;
    }

    return unless ( $year && $month );
    return ( sprintf( "%04d-%02d-01", $year, $month - $offset ),
        sprintf( "%04d-%02d-%02d", $year, $month, Days_in_Month( $year, $month ) ) );
}

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