package RPS::Import::ADA::ADACommon;

use strict;

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

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

use base 'RPS::Import::Importer';

sub getServiceID {
    my $self        = shift;
    my $serviceName = shift;

    my $serviceID;
    $serviceName =~ s/\s+$//;
    $serviceID = $self->SUPER::getServiceID( lc($serviceName) ) || $RPS::Import::ServiceMap::SERVICE_ALIASES{ lc $serviceName };

    if ( !$serviceID ) {

        # Trying to get the Korean names to match up...
        my $serviceNameCopy = $serviceName;
        $serviceNameCopy =~ s/(.|\n)/sprintf("%02lx", ord $1)/eg;
        $serviceID = $self->SUPER::getServiceID( lc($serviceNameCopy) ) || $RPS::Import::ServiceMap::SERVICE_ALIASES{ lc $serviceNameCopy };
    }

    if ( !$serviceID && $self->countryCode && $self->countryCode eq 'KR' ) {

        # FB16136: Anything coming out of Korea is mapped to ADA
        #
        $serviceID = Client::Service::DSP_ADA;
    }

    # Apply ADA-specific service mappings, if any (FB33)
    #
    if (
        !$serviceID
        && (   $serviceName =~ /^\(\?\)\?\?\?\?\?$/
            || $serviceName =~ /^mlj inc.$/i )
      ) {
        $serviceID = Client::Service::DSP_ADA;
    }

    $serviceID = Client::Service::DSP_ADA       if ( !$serviceID && $serviceName =~ /^Digital Breakage Adj$/i );                    # FB393
    $serviceID = Client::Service::DSP_ADA       if ( !$serviceID && $serviceName =~ /^Digital Breakage Adjustments CZ$/i );         # FB2106
    $serviceID = Client::Service::DSP_ADA       if ( !$serviceID && $serviceName =~ /^Digital Breakage Adjustments Honduras$/i );   # FB2985
    $serviceID = Client::Service::DSP_ADA       if ( !$serviceID && $serviceName =~ /^Digital Breakage Adjustments Nicaragua$/i );  # FB2985
    $serviceID = Client::Service::DSP_ADA       if ( !$serviceID && $serviceName =~ /^Audit Recovery$/i );                          # FB573
    $serviceID = Client::Service::DSP_AMAZON    if ( !$serviceID && $serviceName =~ /^Amazon Digital Services/i );                  # FB6386
    $serviceID = Client::Service::DSP_NOKIA     if ( !$serviceID && $serviceName =~ /^9999996 Nokia Music Australia od2$/i );       # FB2885
    $serviceID = Client::Service::DSP_SPOTIFY   if ( !$serviceID && $serviceName =~ /^9999822 Spotify$/i );                         # FB2885
    $serviceID = Client::Service::DSP_OVI_MUSIC if ( !$serviceID && $serviceName =~ /^9999996 OVI Music Australia$/i );             # FB2885
    $serviceID = Client::Service::DSP_ORANGE    if ( !$serviceID && $serviceName =~ m/^Orange Mobile UK/i );                        #FB2956
    $serviceID = Client::Service::DSP_UNKNOWN   if ( !$serviceID && $serviceName =~ m/^\xE0\xB8\x{0161}\xE0/i );                    #FB2958

    # ADA has multiple variants of 'Digital Breakage Adjustments'.
    if (
        !$serviceID
        && (   $serviceName =~ /^9999231 DIGITAL BREAKAGE ADJ 4-YT TERM 1$/i
            || $serviceName =~ /^Digital Breakage Adjustments.*$/i )
      ) {
        $serviceID = Client::Service::DSP_ADA;
    }

    if ( !$serviceID && ( $serviceName =~ /^Spotify Digital Breakage Adjustments.*$/i ) ) {
        $serviceID = Client::Service::DSP_SPOTIFY;
    }

    if ( !$serviceID && ( $serviceName =~ /^Netease Information Technology.*$/i ) ) {
        $serviceID = Client::Service::DSP_NETEASE;
    }

    return $serviceID;
}

sub rPrice { shift->SUPER::price }
sub rUnits { shift->SUPER::units }

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