package RPS::Import::Audible;

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_PRODUCTID => 1;
use constant FIELD_TITLE     => 2;
use constant FIELD_ARTIST    => 3;
use constant FIELD_UNITS     => 10;
use constant FIELD_ROYALTY   => 12;

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

my %date_ranges = (
    Q1 => {
        startDate => '1-1',
        endDate   => '3-31',
    },
    Q2 => {
        startDate => '4-1',
        endDate   => '6-30',
    },
    Q3 => {
        startDate => '7-1',
        endDate   => '9-30',
    },
    Q4 => {
        startDate => '10-1',
        endDate   => '12-31',
    },
);

#
# 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 $sheet_names     = $args{sheet_names};
    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 ( $artist, $title, $price, $units, $sale, $product_id );
    my $country = "united states";

    ( $dateBegin, $dateEnd ) = _get_dates($fileName);
    unless ( $dateBegin && $dateEnd ) {
        $self->errstr("couldn't get dates");
        print STDERR "file name: $fileName\n";
        return undef;
    }
    foreach my $sheet ( @{ $args{sheets} } ) {
        my $linenum = 1;
        foreach my $line (@$sheet) {
            $product_id = $line->[FIELD_PRODUCTID];
            $artist     = $line->[FIELD_ARTIST];
            $title      = $line->[FIELD_TITLE];
            $units      = $line->[FIELD_UNITS];
            $units =~ s/\D//g;
            if ( $artist ne "" && $artist ne "Author Name" && $artist ne "Total" && $units > 0 && $line->[FIELD_ROYALTY] > 0 ) {
                $price = sprintf( "%.8f", ( $line->[FIELD_ROYALTY] / $units ) );
                $sale = RPS::Import::SaleRec->new();

                #$sale->productType(RPS::File::Sale::TYPE_ALBUM);
                $sale->productType(RPS::File::Sale::TYPE_TRACK);
                $sale->clientProductID($product_id);
                $sale->trackName($title);
                $sale->formatType($format);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->artistName($artist);
                $sale->price($price);
                $sale->units($units);
                $sale->countryCode( $sheet_names->[$sheet_count] );
                $sale->lineNum($linenum);

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

                #print STDERR "SKIP => a: ". $artist . " u: ". $units . " t: " . $title . " p: " . $price . "\n";
            }
            $linenum++;
        }
        $sheet_count++;
    }
    return $linenum;
}

#
# Private methods
#

sub _get_dates {
    my $passed_date = shift;
    return undef unless ( $passed_date =~ m/Q(\d) (\d{4}) / );
    my ( $month, $year ) = ( $1, $2 );
    return ( $2 . "-" . $date_ranges{ "Q" . $1 }{startDate}, $2 . "-" . $date_ranges{ "Q" . $1 }{endDate} );
}

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