package RPS::Import::ShockHound;

use strict;

use Date::Calc qw(Days_in_Month Decode_Month);

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

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

my %field_map = (
    1 => {
        'date'     => 3,
        'album'    => 5,
        'album_id' => 6,
        'upc'      => 8,
        'label'    => 11,
        'artist'   => 13,
        'track'    => 14,
        'track_id' => 15,
        'tracknum' => 16,
        'isrc'     => 17,
        'product'  => 19,
        'currency' => 20,
        'country'  => 21,
        'units'    => 24,
        'price'    => 27,
    },
    2 => {
        'date'     => 1,
        'album'    => 5,
        'album_id' => 6,
        'upc'      => 9,
        'label'    => 11,
        'artist'   => 14,
        'track'    => 15,
        'track_id' => 16,
        'tracknum' => 17,
        'isrc'     => 18,
        'product'  => 21,
        'currency' => 22,
        'country'  => 23,
        'units'    => 26,
        'price'    => 29,
    },
    3 => {
        'date'     => 0,
        'album'    => 5,
        'upc'      => 7,
        'label'    => 10,
        'artist'   => 12,
        'track'    => 13,
        'track_id' => 14,
        'tracknum' => 15,
        'isrc'     => 16,
        'product'  => 19,
        'currency' => 20,
        'country'  => 21,
        'units'    => 24,
        'price'    => 27,
    },
    5 => {
        'date'     => 0,
        'album'    => 5,
        'upc'      => 9,
        'label'    => 11,
        'artist'   => 14,
        'track'    => 15,
        'track_id' => 16,
        'tracknum' => 17,
        'isrc'     => 18,
        'product'  => 21,
        'currency' => 22,
        'country'  => 23,
        'units'    => 26,
        'price'    => 31,
    },
);

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

#public methods

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

    my $retval   = undef;
    my $lines    = $args{lines};
    my $fileObj  = $args{file};
    my $fileName = $fileObj->OrigFileName;
    my $version  = $fileObj->VersionNum;

    return undef unless ( $lines && $fileName && $version );

    my $offsets = $field_map{$version};

    my %errors  = ();
    my $linenum = 1;

    my $defaultDate;
    my $defaultDateBegin;
    my $defaultDateEnd;
    my $headerFound;

    foreach my $line (@$lines) {
        $defaultDate = $line->[0];
        if ( $defaultDate =~ m/Reporting Period/ ) {
            my ( $f_defaultDateBegin, $f_defaultDateEnd ) =
              split( "-", $defaultDate );
            if ( $defaultDate =~ /\d{4}\D\d{2}\D\d{2}/ ) {

                ( $defaultDateBegin, $defaultDateEnd ) = $self->_getDates(
                    date_begin => $f_defaultDateBegin,
                    date_end   => $f_defaultDateEnd,
                    type       => "iso"
                );
            } elsif ( $defaultDate =~ /\d{1,2}\D\d{1,2}\D\d{2}/ ) {
                print STDERR "Default date US: $defaultDate at line num: $linenum\n";

                my ( $monthBegin, $monthEnd, $yearBegin, $yearEnd );

                if ( $f_defaultDateBegin =~ /(\d{1,2})\D\d{1,2}\D(\d{4})/ ) {
                    $monthBegin = sprintf( "%02d", $1 );
                    $yearBegin = $2;
                } elsif ( $f_defaultDateBegin =~ /(\d{1,2})\D\d{1,2}\D(\d{2})/ ) {
                    $monthBegin = sprintf( "%02d", $1 );
                    $yearBegin = $2;
                }

                if ( $f_defaultDateBegin =~ /(\d{1,2})\D\d{1,2}\D(\d{4})/ ) {
                    $monthEnd = sprintf( "%02d", $1 );
                    $yearEnd = $2;
                } elsif ( $f_defaultDateBegin =~ /(\d{1,2})\D\d{1,2}\D(\d{2})/ ) {
                    $monthEnd = sprintf( "%02d", $1 );
                    $yearEnd = $2;
                }

                ( $defaultDateBegin, $defaultDateEnd ) = $self->_getDates(
                    date_begin => "$monthBegin/01/$yearBegin",
                    date_end   => "$monthEnd/01/$yearEnd",
                    type       => "us"
                );

                print STDERR "Extracted $f_defaultDateBegin, $f_defaultDateEnd\n";

                print STDERR "Default dates in US: $defaultDateBegin," . "$defaultDateEnd\n";
            }
        }

        unless ($headerFound) {
            if ( $line->[ $offsets->{'product'} ] eq 'Purchasable Type' ) {
                $headerFound = 1;
            }

            $linenum++;
            next;
        }

        my $format = RPS::File::Sale::FORMAT_DOWNLOAD;

        my $prodtype;
        my $serviceID;

        if ( $line->[ $offsets->{'product'} ] eq 'Track' ) {
            $prodtype  = RPS::File::Sale::TYPE_TRACK;
            $serviceID = $line->[ $offsets->{'track_id'} ];
        } elsif ( $line->[ $offsets->{'product'} ] eq 'Album' ) {
            $prodtype = RPS::File::Sale::TYPE_ALBUM;
            $serviceID = $line->[ $offsets->{'album_id'} ] unless ( $version == 3 || $version == 5 );
        }

        my $upc          = Common::Util::normalize_upc( $line->[ $offsets->{'upc'} ] );
        my $isrc         = Common::Util::normalize_isrc( $line->[ $offsets->{'isrc'} ] );
        my $artist       = $line->[ $offsets->{'artist'} ];
        my $album        = $line->[ $offsets->{'album'} ];
        my $track        = $line->[ $offsets->{'track'} ];
        my $label        = $line->[ $offsets->{'label'} ];
        my $units        = $line->[ $offsets->{'units'} ];
        my $countryCode  = $line->[ $offsets->{'country'} ];
        my $currencyCode = $line->[ $offsets->{'currency'} ];
        my $tracknum     = $line->[ $offsets->{'tracknum'} ];
        my $price        = $line->[ $offsets->{'price'} ];
        if ($price) {
            $price = sprintf( "%.8f", $price );
        }

        if ( $prodtype && $units && ( $artist || $album || $track ) ) {

            #print STDERR "passing date: $line->[$offsets->{date}] for line $linenum\n";
            my ( $dateBegin, $dateEnd );

            if ( $line->[ $offsets->{date} ] =~ /\d{4}\D\d{2}\D\d{2}/ ) {
                ( $dateBegin, $dateEnd ) =
                  $self->_getDates( date_begin => $line->[ $offsets->{date} ], type => "iso" );
            } elsif ( $line->[ $offsets->{date} ] =~ /(\d{1,2})\D\d{1,2}\D(\d{2,4})/ ) {
                my $monthBegin = sprintf( "%02d", $1 );

                ( $dateBegin, $dateEnd ) = $self->_getDates( date_begin => "$monthBegin/01/$2", type => "us" );
            }

            unless ( $dateBegin && $dateEnd ) {
                ( $dateBegin, $dateEnd ) = ( $defaultDateBegin, $defaultDateEnd );
                unless ( $dateBegin && $dateEnd ) {
                    print STDERR "Couldn't get dates from '" . $line->[ $offsets->{date} ] . "' (line: $linenum)\n";
                    $self->errstr(
                        "couldn't get dates from '" . $line->[ $offsets->{date} ] . "' (line: $linenum) -- default date is $defaultDate;" );
                    return undef;
                }
            }

            my $sale = RPS::Import::SaleRec->new();

            $sale->productType($prodtype);
            $sale->formatType($format);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->upc($upc);
            $sale->isrc($isrc) if ( $prodtype eq RPS::File::Sale::TYPE_TRACK );
            $sale->artistName($artist);
            $sale->albumName($album);
            $sale->trackName($track) if ( $prodtype eq RPS::File::Sale::TYPE_TRACK );
            $sale->labelName($label);
            $sale->units($units);
            $sale->currencyCode($currencyCode);
            $sale->countryCode($countryCode);
            $sale->trackNum($tracknum);
            $sale->price($price);
            $sale->serviceProductID($serviceID);
            $sale->lineNum($linenum);

            $self->_insertSale( sale => $sale );
        } else {

            #print STDERR "product type: $prodtype units: $units artist: $artist album: $album track: $track\n";
        }
        $linenum++;
    }

    die "Header not found." unless ($headerFound);

    return $linenum;
}

#
# Private methods
#

#sub _getDates
#{
#    my ($syear,$eyear,$smonth,$emonth,$passed_date,$dateBegin,$dateEnd);
#    $passed_date = shift;
#    print "$passed_date\n";
#    if ($passed_date =~ m/(\d+)\D(\d+)\D(\d{4})/)
#    {
#            return ($3."-".sprintf("%02d",$1)."-01",$3."-".sprintf("%02d",$1)."-".Days_in_Month($3,$1));
#    }
#    elsif ($passed_date =~ m/(\d{4})(\d{2})(\d{2})/)
#    {
#        return ($1."-".$2."-01",$1."-".$2."-".Days_in_Month($1,$2));
#    }
#    elsif ($passed_date =~ m/(\d{4})\D(\d+)\D(\d+)/)
#    {
#            return ($1."-".sprintf("%02d",$2)."-01",$1."-".sprintf("%02d",$2)."-".Days_in_Month($1,$2));
#    }
#    elsif ($passed_date =~ m/(\d+)\D(\d+)\D(\d{2})/)
#    {
#    				my $year = "20".$3;
#        		return ($year."-".sprintf("%02d",$1)."-01",$year."-".sprintf("%02d",$1)."-".Days_in_Month($year,$1));
#    }
#    return undef;
#}

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