package RPS::Import::MusicNowOld;
## for when they were FullAudio

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

#private constants
use constant FIELD_VENDORID		=> 0;
use constant FIELD_TRACKID		=> 1;
use constant FIELD_ISRC 		=> 2;
use constant FIELD_SONGCODE		=> 3;
use constant FIELD_TRACK		=> 4;
use constant FIELD_ARTIST		=> 5;
use constant FIELD_ALBUM		=> 6;
use constant FIELD_UPC  		=> 7;
use constant FIELD_LABEL		=> 8;
use constant FIELD_DISCNUM		=> 9;
use constant FIELD_TRACKPOS     => 10;
use constant FIELD_UNITS        => 11;
use constant FIELD_DAYSPLAY     => 12;
use constant FIELD_MONTH        => 13;
use constant FIELD_PRICE        => 14;

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

#public methods

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

	my $lines = $args{lines};
	my $fileObj = $args{file};
    #my $fileName = $args{OrigFileName}; # for cmd-line testing
    my $fileName = $fileObj->OrigFileName;

	unless ($lines && $fileName) {
        $self->errstr("lines and filename absent");
        return 0;
    }

	my ($year) = $fileName =~ m/\_Q\d(\d\d).txt$/;

	my $linenum = 1;
	foreach my $line(@$lines)
	{
		my $prodtype = RPS::File::Sale::TYPE_TRACK;

		my $upc		= Common::Util::normalize_upc($line->[FIELD_UPC]);
		my $isrc	= Common::Util::normalize_isrc($line->[FIELD_ISRC]);
		my $artist	= $line->[FIELD_ARTIST];
		my $album	= $line->[FIELD_ALBUM];

		my $track = $line->[FIELD_TRACK];

        ## a bit of a guess ATM
		## $format = RPS::File::Sale::FORMAT_DOWNLOAD;
		my $format = RPS::File::Sale::FORMAT_STREAM;

		my $units	= $line->[FIELD_UNITS];
		my $price	= $line->[FIELD_PRICE];
        if ($units > 0) {
            $price = $price / $units;
        } else {
            print STDERR "zero units for an entry!\n";
        }

        my $month = $line->[FIELD_MONTH];
        my ($dateBegin, $dateEnd) = _getDates($year, $month);

		if ($dateBegin && $dateEnd && $prodtype && $format && $units && $price >= 0 && $album && $track)
		{
			my $sale = RPS::Import::SaleRec->new();

			$sale->productType($prodtype);
			$sale->formatType($format);
			$sale->dateBegin($dateBegin);
			$sale->dateEnd($dateEnd);
			$sale->upc($upc);
			$sale->isrc($isrc);
			$sale->artistName($artist);
			$sale->albumName($album);
			$sale->trackName($track);
			$sale->units($units);
			$sale->price($price);
			$sale->lineNum($linenum);

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

#
# Private methods
#


sub _getDates
{
	my $year = shift;
	my $month = shift;

    $year += 2000 if ($year < 2000);
    $month =~ s/^0//g;

	my $dateBegin = sprintf("%04d-%02d-01", $year, $month);
	my $dateEnd   = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));

	return ($dateBegin, $dateEnd);
}

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