package RPS::Import::DMXmin;

use strict;

use Date::Calc qw(Days_in_Month);

use lib '/app/tools/common/lib';
use Common::Util qw(normalize_date);

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

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

# detail records
use constant FIELD_LABEL  => 1;
use constant FIELD_TRACK  => 2;
use constant FIELD_ARTIST => 3;
use constant FIELD_PRICE  => 4;

#
# Private methods
#

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

    my $lines    = $args{lines};
    my $fileObj  = $args{file};
    my $fileName = $args{file}->OrigFileName();

    #my $fileName = $args{OrigFileName}; # cmd-line testing
    #my $version = $args{version}; ## for cmd-line testing
    my $last_label;

    return undef unless ($lines);
    my ( $dateBegin, $dateEnd ) = _getDates($fileName);

    unless ( $dateBegin && $dateEnd ) {
        $self->errstr("couldn't get dates from $fileName");

        #return undef;
    }

    my $lineNum = 1;

    my ( $label, $artist, $track );

    foreach my $line (@$lines) {
        $label  = $line->[FIELD_LABEL];
        $label  = $last_label if ( $line->[FIELD_LABEL] ne "" && $last_label ne "" );
        $artist = $line->[FIELD_ARTIST];
        $track  = $line->[FIELD_TRACK];
        my ($price) = $line->[FIELD_PRICE] =~ /^(\d+[\.]?\d*)/;
        my $units = $price / 6;
        $price = 6;

        if ( $price && $artist && $track && $units ) {
            my $sale = RPS::Import::SaleRec->new();

            $sale->productType(RPS::File::Sale::TYPE_TRACK);
            $sale->formatType(RPS::File::Sale::FORMAT_BACKGROUNDMUSIC);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->labelName($label);
            $sale->artistName($artist);
            $sale->trackName($track);
            $sale->units($units);
            $sale->price($price);
            $sale->lineNum($lineNum);
            $sale->countryCode('US');

            $self->_insertSale( sale => $sale );

            #$args{dumper}($sale); ## for cmd-line testing
            $last_label = $label;
        }
        $lineNum++;
    }

    return $lineNum;
}

sub _getDates {
    my $date = shift;

    return undef unless ( $date =~ m/^.*DMX[ _](\d{4})(\w).*$/ );
    my ( $year, $qtr ) = ( $1, $2 );

    my ( $dateBegin, $dateEnd );

    if ( $qtr eq "A" ) {
        $dateBegin = $year . "-01-01";
        $dateEnd = $year . "-03-" . Days_in_Month( $year, 3 );
    } elsif ( $qtr eq "B" ) {
        $dateBegin = $year . "-04-01";
        $dateEnd = $year . "-06-" . Days_in_Month( $year, 6 );
    } elsif ( $qtr eq "C" ) {
        $dateBegin = $year . "-07-01";
        $dateEnd = $year . "-09-" . Days_in_Month( $year, 9 );
    } elsif ( $qtr eq "D" ) {
        $dateBegin = $year . "-10-01";
        $dateEnd = $year . "-12-" . Days_in_Month( $year, 12 );
    } else {
        return undef;
    }

    return ( $dateBegin, $dateEnd );
}

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