package RPS::Import::PlayNetwork;

use strict;

use Date::Calc qw(Days_in_Month);

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

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

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

use constant DATE_COL => 0;
use constant DATE_ROW => 2;

my %field_map = (
    1 => {
        date_col => 0,
        date_row => 2,
        track    => 0,
        album    => 1,
        artist   => 2,
        units    => 3,
    },
    2 => {
        date_col => 0,
        date_row => 2,
        track    => 0,
        isrc     => 1,
        album    => 2,
        artist   => 3,
        units    => 4,
    },
    3 => {
        date_col   => 1,
        date_row   => 4,
        track      => 0,
        isrc       => 1,
        album      => 2,
        artist     => 3,
        units      => 5,
        unit_price => 6,
    },
    4 => {
        date_col   => 0,
        date_row   => 0,
        track      => 0,
        isrc       => 1,
        album      => 2,
        artist     => 3,
        units      => 5,
        unit_price => 6,
    },
    5 => {
        date_col => 0,
        date_row => 2,
        track    => 0,
        isrc     => 1,
        album    => 2,
        artist   => 3,
        units    => 4,
        price    => 5,
    },
);

#public methods

sub _importLines {
    my $self     = shift;
    my %args     = @_;
    my $fileObj  = $args{file};
    my $version  = $args{file}->VersionNum();
    my $fileName = $fileObj->OrigFileName;
    my $offsets  = $field_map{$version};

    my $retval = undef;
    my $sheets = $args{sheets};

    my ( $dateBegin, $dateEnd );

    my $linenum = 1;

    foreach my $lines (@$sheets) {
        my $dateStr = '';
        if ( ( $version < 3 ) || ( $version == 5 ) ) {
            $dateStr = $lines->[ $offsets->{date_row} ]->[ $offsets->{date_col} ];
        } elsif ( $version == 3 ) {
            $dateStr = $lines->[ $offsets->{date_row} ]->[ $offsets->{date_col} ] . " - "
              . $lines->[ $offsets->{date_row} ]->[ $offsets->{date_col} + 2 ];
        } elsif ( $version == 4 ) {
            $dateStr = $fileName;
        }

        ( $dateBegin, $dateEnd ) = $self->_getDates($dateStr) if ($dateStr);

        unless ( $dateBegin && $dateEnd ) {
            $self->errstr("couldn't get dates");
            print STDERR "bad date format: $dateStr\n";
            return undef;
        }

        # Removed version-specfic offsets. See case FB13782.
        #$linenum = 4 if ($version==5);
        #$linenum = 2 if ($version==4);
        #$linenum = 2 if ($version==3);
        #$linenum = 5 if ($version==2);
        #$linenum = 7 if ($version==1);
        my $last_track = "";
        foreach my $line (@$lines) {

            my $prodtype = RPS::File::Sale::TYPE_TRACK;
            my $format   = RPS::File::Sale::FORMAT_BACKGROUNDMUSIC;
            $format = RPS::File::Sale::FORMAT_STREAM if ( $version == 4 );
            my $artist  = $line->[ $offsets->{artist} ];
            my $album   = $line->[ $offsets->{album} ];
            my $track   = $line->[ $offsets->{track} ];
            my $isrc    = $line->[ $offsets->{isrc} ] if ( $version > 1 );
            my ($units) = $line->[ $offsets->{units} ] =~ m/^(\d+)$/;
            my $price;

            $isrc =~ s/-//g;

            if ( $version == 5 ) {

                #$price = $line->[$offsets->{price}] =~ m/^(\d+\.?\d*)$/;
                $price = $line->[ $offsets->{price} ] if ( $line->[ $offsets->{price} ] =~ m/^(\d+\.?\d*)$/ );

                #print STDERR "Price: $price\n";
                $price /= $units if ( $units > 0 );
            } elsif ( exists $offsets->{unit_price} ) {
                $price = $line->[ $offsets->{unit_price} ];
            }

            $track = $last_track if ( $last_track ne "" && $track eq "" && $version != 4 );

            #print STDERR "In loop price: $price\n";

            if (   ( $units && $track ne "" && $track !~ /title/i && $track !~ /2007/ && $artist ne "-" )
                || ( $version == 5 && $price ) ) {

                #print STDERR "Made it past if price: $price\n";

                unless ( $dateBegin && $dateEnd ) {
                    $self->errstr( "couldn't get dates from " . $lines->[ $offsets->{date_row} ]->[ $offsets->{date_col} ] );
                    return undef;
                }

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

                $sale->productType($prodtype);
                $sale->formatType($format);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->artistName($artist);
                $sale->trackName($track);
                $sale->albumName($album) if ( $album ne "" );
                $sale->isrc($isrc) if ( ( $version > 1 ) && ( $isrc ne "" ) );
                $sale->units($units);
                $sale->lineNum($linenum);
                $sale->price($price) if ( $price ne "" );
                $sale->countryCode('US');

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

            #else { print STDERR "Skipping-> a: ".$artist." t:".$track." a:".$album." u:".$units." l:".$linenum."\n";}
            $last_track = $track;
            $linenum++;
        }
    }
    return $linenum;
}

#
# Private methods
#

sub _getDates {
    my $self = shift;
    my $date = shift;

    my ( $beginDate, $endDate );

    if ( $date =~ m/^Q(\d) (\d{4})/ ) {
        my $qtr  = $1;
        my $year = $2;
        if ( $qtr == 1 ) {
            $beginDate = $year . "-01-01";
            $endDate = $year . "-03-" . Days_in_Month( $year, 3 );
        } elsif ( $qtr == 2 ) {
            $beginDate = $year . "-04-01";
            $endDate = $year . "-06-" . Days_in_Month( $year, 6 );
        } elsif ( $qtr == 3 ) {
            $beginDate = $year . "-07-01";
            $endDate = $year . "-09-" . Days_in_Month( $year, 9 );
        } elsif ( $qtr == 4 ) {
            $beginDate = $year . "-10-01";
            $endDate = $year . "-12-" . Days_in_Month( $year, 12 );
        }
    } elsif ( $date =~ m/(\d)Q(\d\d)/ ) {
        my $qtr  = $1;
        my $year = $2 + 2000;
        if ( $qtr == 1 ) {
            $beginDate = $year . "-01-01";
            $endDate = $year . "-03-" . Days_in_Month( $year, 3 );
        } elsif ( $qtr == 2 ) {
            $beginDate = $year . "-04-01";
            $endDate = $year . "-06-" . Days_in_Month( $year, 6 );
        } elsif ( $qtr == 3 ) {
            $beginDate = $year . "-07-01";
            $endDate = $year . "-09-" . Days_in_Month( $year, 9 );
        } elsif ( $qtr == 4 ) {
            $beginDate = $year . "-10-01";
            $endDate = $year . "-12-" . Days_in_Month( $year, 12 );
        }
    } elsif ( $date =~ m/(\d+)\/(\d+)\/(\d+)\s+-\s+(\d+)\/(\d+)\/(\d+)$/ ) {
        $beginDate = sprintf( "%04d-%02d-%02d", $3, $1, $2 );
        $endDate   = sprintf( "%04d-%02d-%02d", $6, $4, $5 );
    } elsif ( $date =~ m/(\d{4})\D(\d+)\D(\d+)\s-\s(\d{4})\D(\d+)\D(\d+)$/ ) {
        $beginDate = sprintf( "%04d-%02d-%02d", $1, $2, $3 );
        $endDate   = sprintf( "%04d-%02d-%02d", $4, $5, $6 );
    } else {
        return undef;
    }

    return ( $beginDate, $endDate );
}

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