package RPS::Import::IRISLegacy;

use strict;

use Date::Calc qw(Days_in_Month);

use lib '/app/tools/common/lib';
use Common::Consts qw(%COUNTRY_TO_CODE);

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

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

use constant FIELD_TITLE     => 0;
use constant FIELD_ARTIST    => 2;
use constant FIELD_ISRC      => 1;
use constant FIELD_UNITPRICE => 3;
use constant FIELD_UNITS     => 4;
use constant FIELD_COUNTRY   => 5;
use constant FIELD_PRICE     => 10;

my %delivery_formats = (
    'Download'              => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Stream'                => RPS::File::Sale::FORMAT_STREAM,
    'Limited Download'      => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Over the Air Download' => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Ringtone'              => RPS::File::Sale::FORMAT_RINGTONE,
    'Ringback'              => RPS::File::Sale::FORMAT_RINGBACK,
    'Over the Air Download' => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Burn'                  => RPS::File::Sale::FORMAT_DOWNLOAD,
    'Other'                 => RPS::File::Sale::FORMAT_STREAM,
    'Play'                  => RPS::File::Sale::FORMAT_STREAM,
    'Realtone'              => RPS::File::Sale::FORMAT_RINGTONE,
);

my @data_delivery_formats = ( 'Download', 'Stream', 'Burn', 'Limited Download', 'Other', 'Play' );

#
# public methods
#

sub _importLines {
    my $self  = shift;
    my %args  = @_;
    my $lines = $args{lines};
    return undef unless ($lines);

    #my $version = $args{version}; # cmd-line testing
    my $version = $args{file}->VersionNum();

    #my $fileName = $args{OrigFileName}; # cmd-line testing
    my $fileName        = $args{file}->OrigFileName();
    my %buffer          = ();
    my $linenum         = 1;
    my $format          = RPS::File::Sale::FORMAT_DOWNLOAD;
    my $sheet_count     = 0;
    my $was_album_title = 0;
    my ( %errors, $passed_format, $album, $dateBegin, $dateEnd, $total_columns, $fee_percentage, $x, $y );
    my $country = "US";

    foreach my $sheet ( @{ $args{sheets} } ) {
        my $linenum = 1;
        foreach my $line (@$sheet) {
            my $artist = $line->[FIELD_ARTIST];
            my $isrc   = $line->[FIELD_ISRC];
            my $title  = $line->[FIELD_TITLE];
            if ( $sheet_count == 0 ) {
                $buffer{$isrc}{artist} = $artist;
                $buffer{$isrc}{isrc}   = $isrc;
                $buffer{$isrc}{title}  = $title;
                if ( $line->[0] =~ /Start Date/i ) {
                    ( $dateBegin, $dateEnd ) = _get_dates( $line->[FIELD_ISRC] );
                    unless ( $dateBegin && $dateEnd ) {
                        $self->errstr("couldn't get dates");
                        print STDERR "file name: $fileName\n";
                        return undef;
                    }
                } elsif ( ( $artist ne "" ) && ( $artist ne "Artist" ) && ( $title =~ /(\d{4})\:\s([a-zA-Z])/ ) ) {
                    $album = $title;
                    $album =~ s/^.*[^:]:\s//;
                    $buffer{$isrc}{album} = $album;
                    $was_album_title = 1;
                } elsif ( $album ne "" ) {
                    $buffer{$isrc}{album} = $album;
                }
                if ( $buffer{$isrc}{artist} ne "" && $buffer{$isrc}{album} ne "" ) {
                    $title = $line->[FIELD_TITLE];
                    $buffer{$isrc}{title} = $title;
                    if ( $was_album_title == 1 ) {
                        $buffer{$isrc}{is_album} = 1;
                        $was_album_title = 0;
                    }
                    for ( $y = 0 ; $y < @data_delivery_formats ; $y++ ) {
                        if ( ( $line->[ $y + 3 ] !~ /Artist|UPC\/ISRC|Gross|Fee|Net/ ) && ( $line->[ $y + 3 ] ne "" ) ) {
                            $buffer{$isrc}{units}[$y] = $line->[ $y + 3 ];
                            $buffer{$isrc}{units}[$y] =~ m/^(\d+)$/;
                            $buffer{$isrc}{linenum} = $linenum;
                        }
                        $buffer{$isrc}{format}[$y] = $delivery_formats{ $data_delivery_formats[$y] };
                    }
                }
            } elsif ( $line->[0] =~ /percent split/i && $sheet_count == 1 ) {
                $fee_percentage = $line->[1];
                $fee_percentage =~ s/\D//g;
                $fee_percentage *= .01;
            } elsif ( ( $sheet_count == 1 ) && ( $artist ne "Artist" && $title ne "" ) ) {
                for ( $y = 0 ; $y < @data_delivery_formats ; $y++ ) {
                    if ( $buffer{$isrc}{units}[$y] > 0 ) {
                        my $price = sprintf( "%.8f", ( $line->[ $y + 3 ] / $buffer{$isrc}{units}[$y] ) );
                        $buffer{$isrc}{price}[$y] = sprintf( "%.8f", ( $line->[ $y + 3 ] / $buffer{$isrc}{units}[$y] ) );
                    }
                }
            }
            $linenum++;
        }
        $sheet_count++;
    }
    for my $key ( sort { $buffer{$a}{linenum} <=> $buffer{$b}{linenum} } keys %buffer ) {
        if ( $buffer{$key}{artist} ne "" && $buffer{$key}{album} ne "" ) {
            for ( $y = 0 ; $y < @data_delivery_formats ; $y++ ) {
                if ( ( $buffer{$key}{units}[$y] > 0 ) && ( $buffer{$key}{price}[$y] > 0 ) ) {
                    my $sale = RPS::Import::SaleRec->new();
                    if ( $buffer{$key}{is_album} == 1 ) {
                        $sale->productType(RPS::File::Sale::TYPE_ALBUM);
                        $sale->upc( $buffer{$key}{isrc} );
                    } else {
                        $sale->productType(RPS::File::Sale::TYPE_TRACK);
                        $sale->trackName( $buffer{$key}{title} );
                        $sale->isrc( $buffer{$key}{isrc} );
                    }
                    $sale->albumName( $buffer{$key}{album} );
                    $sale->formatType( $buffer{$key}{format}[$y] );
                    $sale->dateBegin($dateBegin);
                    $sale->dateEnd($dateEnd);
                    $sale->artistName( $buffer{$key}{artist} );
                    my $price = $buffer{$key}{price}[$y];
                    my $fee = sprintf( "%.8f", ( $price * $fee_percentage ) );
                    $price -= sprintf( "%.8f", $fee );
                    $sale->price($price);
                    $sale->units( $buffer{$key}{units}[$y] );
                    $sale->countryCode($country);
                    $sale->lineNum( $buffer{$key}{linenum} );

                    #$args{dumper}($sale); ## for cmd-line testing
                    $self->_insertSale( sale => $sale );
                }
            }
        }

        #else { print STDERR "skip " . $key . "\n"; }
    }
    return $linenum;
}

#
# Private methods
#

sub _get_dates {
    my $passed_date = shift;
    return undef unless ( $passed_date =~ m/(\d+)\D(\d{4})/ );
    my ( $month, $year ) = ( $1, $2 );

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

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