package RPS::Import::IRIS;

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,
);

#
# 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 $format          = RPS::File::Sale::FORMAT_DOWNLOAD;
    my $linenum         = 1;
    my $was_album_title = 0;
    my ( %errors, $passed_format, $album, $dateBegin, $dateEnd, $total_columns, $fee_percentage );
    my $country = "US";
    foreach my $line (@$lines) {
        my $artist = $line->[FIELD_ARTIST];
        my $isrc   = $line->[FIELD_ISRC];
        my $title  = $line->[FIELD_TITLE];

        if ( $line->[0] =~ /Statement Date/i ) {
            ( $dateBegin, $dateEnd ) = _get_dates( $line->[FIELD_ISRC] );
            unless ( $dateBegin && $dateEnd ) {
                $self->errstr( "couldn't get dates from:" . $line->[FIELD_ISRC] );
                print STDERR "couldn't get dates from:" . $line->[FIELD_ISRC] . "\n";
                return undef;
            }
        } elsif ( $line->[0] =~ /percent split/i ) {
            $fee_percentage = $line->[1];
            $fee_percentage =~ s/\D//g;
            $fee_percentage *= .01;
        } elsif ( $artist eq "Artist" && $isrc eq "UPC/ISRC" && $title eq "" ) {
            $passed_format = $line;
        } elsif ( $artist ne "" ) {
            if ( $title =~ /(\d{4})\:\s([a-zA-Z])/ ) {
                $album = $title;
                $album =~ s/^.*[^:]:\s//;
                $was_album_title = 1;
            }
            if ( $artist ne "" && $album ne "" ) {
                $title = $line->[FIELD_TITLE];
                for ( my $x = 0 ; $x < @$line ; $x++ ) {
                    if (   ( $$passed_format[$x] !~ /Artist|UPC\/ISRC|Gross|Fee|Net/ )
                        && ( $$passed_format[$x] ne "" )
                        && ( $line->[ $x + 1 ] != 0 ) ) {
                        my $units = $line->[$x];
                        $units =~ m/^(\d+)$/;
                        my $price = sprintf( "%.8f", ( $line->[ $x + 1 ] / $units ) );
                        my $fee   = sprintf( "%.8f", ( $price * $fee_percentage ) );
                        $price -= sprintf( "%.8f", $fee );
                        my $unitPrice = $price;
                        my $format    = $delivery_formats{ $$passed_format[$x] };
                        my $sale      = RPS::Import::SaleRec->new();

                        if ( $was_album_title == 1 ) {
                            $sale->productType(RPS::File::Sale::TYPE_ALBUM);
                            $sale->upc($isrc);
                        } else {
                            $sale->productType(RPS::File::Sale::TYPE_TRACK);
                            $sale->trackName($title);
                            $sale->isrc($isrc);
                        }
                        $sale->albumName($album);
                        $sale->formatType($format);
                        $sale->dateBegin($dateBegin);
                        $sale->dateEnd($dateEnd);
                        $sale->artistName($artist);
                        $sale->price($price);
                        $sale->units($units);
                        $sale->countryCode($country);
                        $sale->lineNum($linenum);

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

                    #else { print STDERR "skip: ". join(',', @$line) . "\n"; }
                }
            }
            $was_album_title = 0;
        }
        $linenum++;
    }
    return $linenum;
}

#
# Private methods
#

sub _get_dates {
    my $passed_date = shift;
    my ( $month, $year );
    if ( $passed_date =~ m/(\d+)\D(\d{4})/ ) {
        $month = $1;
        $year  = $2;
    } elsif ( $passed_date =~ /\// ) {
        ( $month, $year ) = split( "\/", $passed_date );
    }
    if ( $month ne "" && $year ne "" ) {
        return ( $year . "-" . sprintf( "%02d", $month ) . "-01",
            $year . "-" . sprintf( "%02d", $month ) . "-" . Days_in_Month( $year, $month ) );
    } else {
        return undef;
    }
}

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